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FOREWORD 


This  document  was  produced  under  Air  Force  Contract  F33615-82-C-5036, 
Product  Definition  Data  Interface  (PDDI).  This  contract  is  sponsored  by  the 
Air  Force  Wright  Aeronautical  Laboratories,  Materials  Laboratory,  Air  Force 
Systems  Command,  Wright-Patterson,  Air  Force  Base,  Ohio. 

The  program  is  being  administered  under  the  technical  direction  of  Lt.  Eric 
Gunther,  ICAM  Project  Manager.  The  MCAIR  Program  Manager  is  Mr.  Jerry  Weiss 
and  Mr.  Herb  Ryan  is  the  Deputy  Program  Manager. 

This  document  was  prepared  in  accordance  with  the  ICAM  Configuration 
Management  Life  Cycle  Documentation  requirements  for  the  Configuration  Item. 
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SECTION  1 

££GRE 


1.1  Identification 

This  Product  Specification  manual  describes  the  "As  Built"  software 
specifications  for  the  Product  Definition  Data  Interface  (PDDI)  Project  5601. 
This  project  was  developed  under  the  Air  Force  Contract  F33516-82-C-5036. 

1.2  Introduction 


This  manual  is  a  reference  document  for  programming  personnel  who  maintain 
and  enhance  the  PDDI  software.  The  remainder  of  this  document  presents  the 
PDDI  data  in  detail  at  three  levels  of  complexity;  the  individual  data  entities 
(data  dictionaries),  the  routines  comprising  the  software  and  the  relationships 
between  these  routines.  A  glossary  is  also  provided  to  clarify  unique  PDDI 
terms. 

Three  data  dictionaries  are  presented  to  provide  a  complete  listing  of 
data  within  the  Translator,  the  Access  Software  and  the  entire  PDDI  schema. 

The  software  routines  are  listed  for  the  Translator  and  the  Access 
Software.  Routines  are  groups  of  code  which  perform  a  specific  function.  The 
software  hierarchy  presents  the  relationships  between  these  routines. 

1.3  Other  PDDI  Documents 

The  PDDI  Access  Software  User's  Manual  provides  a  guide  for  application 
programmers  to  use  the  Access  Software  capabilities.  Described  in  this  manual 
is  Access  Software  Initialization,  Entity  Creation,  Deletion  and  Manipulation, 
and  List  Operations. 

The  associated  PDDI  Operator's  Manual  (0M)  provides  a  guide  for  PDDI 
software  installation  and  IBM  to  VAX  conversion  procedures.  The  PDDI 
Translator  User's  Manual  (UM)  provides  a  guide  for  use  of  the  PDDI  Translator. 

The  PDDI  software  was  designed  to  be  transportable  and  has  been  operated 
on  IBM  43xx  and  DEC  VAX  11/780  computers. 

This  manual  provides  IBM  software  descriptions  only. 
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1.4  Approach 

This  Product 
Scope,  References, 
information. 

Section  1  - 

Section  2  - 

Section  3  - 
Appendix  A 
Appendix  B 
Appendix  C 
Appendix  D- 
Appendix  E- 
Appendix  F- 
Appendix  G- 
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Specification  is  divided  into  three  (3)  main  sections: 
and  System  Overview.  The  appendices  provide  supplemental 


Scope  of  this  document. 

Reference  documentation  applicable  to  PDDI  and 
document. 

A  PDDI  System  Overview. 

Glossary  of  Terms  used  in  this  document. 

Translator  Software  Routines  with  Hierarchy  Chart. 
Translator  Data  Dictionary.  * 

Access  Software  Hierarchy. 

Access  Software  Routines. 

Access  Software  Data  Dictionary. 

PDDI  Data  Dictionary  (Schema). 


this 


1-2 


PS  560130000A 
1  January  1987 


SECTION  2 
REFERENCES 


2.1  Applicable  Documents 


2.1.1  Specification: 
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2.1.2  Standards: 
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ANSI  B46.1 
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CLD150120000 
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ITR560130004U 

ITR560130005U 


First  Interim  Technical  Report 
(Period  1  Oct  82  -  31  Dec  82) 

Second  Interim  Technical  Report 
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System  Specification  Document  - 
Draft  Standard 

System  Design  Specification  Document 

System  Test  Plan 

System  Test  Report 

Operator's  Manual 

User's  Manual  -  Translator 

User's  Manual  -  Access  Software 


2.2  Terms  and  Abbreviations 

Refer  to  Appendix  A  for  Glossary. 
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SYSTEM  OPERATIONS 
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3.1  System  Overview 

The  purpose  of  the  PDDI  Software  System  is  to  provide  a  prototype  for  the 
communication  of  complete  Production  Definition  Data  (PDD)  between  dissimilar 
CAD/CAM  Systems.  This  system  will  serve  as  the  information  interface  between 
Engineering  and  Manufacturing  functions.  It  is  composed  of  Access  Software, 
Conceptual  Schema,  Exchange  Format  and  a  Translator.  (See  Figure  3-1). 

The  Access  Software  is  a  set  of  callable  utility  programs  that  will  allow 
applications  to  manipulate  and  query  PDD.  The  Conceptual  Schema  is  a  data 
dictionary  that  contains  the  data  needed  to  define  a  CAD/CAM  model.  The 
Exchange  Format  is  a  neutral  physical  sequential  format  for  passing  data 
between  dissimilar  systems.  The  PDDI  Translator  is  the  software  mechanism  for 
passing  this  data  between  the  Exchange  Format  and  the  Working  Form  of  the  PDD. 

Physical  Schemas 

The  Working  Form  physical  schema  is  determined  through  a  data  dictionary 
or  PASCAL  include  files.  The  Exchange  Format  physical  schema  is  defined  by  a 
data  dictionary  and  the  specification  for  the  neutral  file  format. 

Software  Packages 

The  software  for  the  system  consists  of  two  (2)  packages  -  Access  Software 
and  Translator. 

3.2  Access  Software 

The  PDDI  Access  Software  package  is  an  integrated  set  of  routines  that 
create  and  manage  an  incore  Working  Form  of  the  PDDI  data  structure  through  key 
access.  This  Access  Software  keeps  the  application  independent  of  the  actual 
physical  definition  of  the  Working  Form.  It  also  serves  as  a  bridge  between 
existing  CAD/CAM  systems  and  the  PDDI  Exchange  Format.  The  PDDI  Access 
Software  reduces  the  task  of  writing  the  Exchange  Format  by  providing  the 
utility  functions  for  initializing  the  Working  Form  model,  manipulating 
entities,  and  maintaining  lists. 

The  PDDI  Access  Software  operates  on  the  data  structure  of  the  application 
and  the  Working  Form,  by  using  either  entity  or  list  operations.  The  entity 
operations  allow  the  user  to  create,  delete,  modify  and  query  entities.  List 
operations  manage  the  lists  which  are  temporary  data  structures  containing 
references  to  entities  (keys).  An  application  can  build  and  maintain  lists 
specifically  for  its  needs. 

The  Access  Software  package  allows  the  structuring  of  the  user  data.  The 
entities  can  be  related  in  user/constituent  order.  An  entity  may  be  related  to 
multiple  user  entities,  creating  a  network  structure  in  the  Working  Form.  An 
entity  may  also  contain  multiple  constituent  entities.  Figure  3-2  shows  the 
Schema  for  PDDI  Access  Software  Interface  routines. 
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Figure  3-1  PDDI  Architecture 
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Figure  3-2  Access  Software  Schema 


3-3 


PS  560130000A 
1  January  1987 


3.3  Translator 


The  PDDI  Translator  is  the  software  package  used  to  transmit  the  PDD 
between  systems.  The  Translator  consists  of  three  main  sub-packages.  These 
sub-packages  are:  "Run  System",  "Pre-Processor"  and  "Post-Processor".  (See 
Figure  3-3). 

The  Run  System  is  the  interface  between  the  user  and  the  "processors". 
This  package  provides  menus,  queries  and  system  responses  to  the  user. 

Functions  of  this  package  include:  Perform  system  configuration 
activities,  determine  files  needed  by  the  processors  and  make  them  available, 
and  provide  messages  to  aid  user  interfaces. 

Access  to  the  native  database  is  provided  for  by  this  package  via  calls  to 
user-supplied  routines.  These  routines  allow  data  from  the  native  database  to 
be  placed  into  or  obtained  from  the  Working  Form  using  calls  to  the  Access 
Software.  The  pre-processor  or  post-processor  is  then  called  to  perform  the 
desired  translation. 

The  Pre-Processor  provides  the  interface  from  the  Working  Form  to  the 
Exchange  Format. 

Working  Form  entities,  in  the  Working  Form  physical  schema,  are  accessd^ 
via  the  Access  Software.  Tables,  obtained  from  the  Run  System,  are  then  used 
to  map  the  Working  Form  entities  to  the  Exchange  Format  physical  schema.  The 
Exchange  Format  entities  are  then  encoded  and  placed  into  the  Exchange  Format 
file. 


Transfer  data  is  collected  during  entity  processing.  This  data  is  encoded 
and  placed  into  the  Exchange  Format  file. 

Error  messages  or  condition  codes  are  sent  to  the  "Run  System"  to  indicate 
the  status  of  the  transfer. 

The  Post-Processor  provides  the  interface  from  the  Exchange  Format  to  the 
Working  Form. 

A  set  of  tables,  obtained  from  the  Run  System,  is  used  to  map  the  Exchange 
Format  entities  to  the  Working  Form  physical  schema.  The  Access  Software  is 
then  used  to  place  these  entities  into  the  Working  Form. 

3.4  System  Interfaces 

The  PDDI  software  must  interface  with  the  computer  system  on  which  it  is 
installed,  the  local  (native)  CAD/CAM  database,  the  Exchange  Format,  the 
Working  Form,  and  the  user  (application).  It  does  this  via  the  PDDI  Access 
Software,  the  PDDI  Translator  and  local  (native)  developed  software  packages. 
The  left-hand  side  of  Figure  3-4  shows  the  PDDI  development  environment. 
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3-5  System  Environment 

The  PDDI  system  was  developed  in  the  following  computing  environment: 
Computer/Operating  System 

IBM  43XX/MVS  with  TSO  and  associated  tape  drives,  disk  drives  and 
terminals. 

DEC  VAX  11/780  VMS  with  associated  tape  drives,  disk  drives  and  terminals. 
Storage  (Corel  Requirements 

The  development  PDDI  system  required  the  following  core  requirements: 

Model  (large)  .57M 

PDDI  Software  .66M  (No  Overlay) 

Database  3.00M 

4.23M 


Compilers 


IBM-Pascal/VS  Release  2.2 
DEC-Pascal  V3.3,  FORTRAN  77  V4.4 


Terminals 

E&S  PS300  (or  equivalent  for  graphics  applications) 


The  PDDI  system  is  transportable  to  other  computing  systems.  However, 
appropriate  local  (native)  interfaces  must  be  provided.  The  right-hand  side  of 
Figure  3-4  shows  the  PDDI  commercial  demonstration  architecture  for  UNIGRAPHICS 
and  Computervision  and  United  Technologies  Research  Center  (UTRC)  Systems. 
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GLOSSARY 


ACCESS  SOFTWARE  -  A  set  of  routines  for  creating,  managing  and  querying  an 
incore  Working  Form  model. 

ANSI  -  American  National  Standards  Institute. 

APPLICATION  -  Refers  generically  to  any  software  modules  which  are  used  in 
CAD/CAM  functions. 

APPLICATION  REQUEST  -  A  request  initiated  by  an  application  program,  either 
through  batch  or  interactive  processing,  which  will  interrogate  the  model 
through  the  PDDI  Access  Software  to  obtain  or  operate  on  specific  information 
regarding  the  model  and  its  components  or  elements. 

APPLICATION  REQUESTED  DATA  -  The  data  which  fulfills  the  application’s  original 
request  and  which  is  in  the  proper  format  and  readable  by  the  application. 

ASCII  -  American  Standard  Code  for  Information  Interchange. 

ATTRIBUTE  -  An  item  of  information  about  an  entity.  A  key  attribute  identifies 
the  entity;  a  role  attribute  gives  a  fact  about  an  entity. 

CAD/CAM  -  Computer  Aided  Design/Computer  Aided  Manufacturing. 

CLASS  -  A  collection  of  entities  that  are  alike  in  some  manner. 

CLIST  -  IBM  Command  lists. 

CONSTITUENT  -  A  specific  instance  of  an  entity  that  is  used  in  the  definition 
of  some  other  entity. 

CONTEXT-FREE  GRAMMAR  -  The  syntax  of  the  language  gives  a  precise  specification 
of  the  data  without  interpretation  of  it. 

CRB  -  Constituent  Read  Block. 

CSECT  -  Control  Section,  the  name  sometimes  used  for  a  routine  in  software 
descriptions. 

DOMAIN  -  The  set  of  values  permissible  in  a  given  context.  A  natural  domain  is 
the  value  set  native  to  a  given  machine  architecture;  an  imposed  domain  is  a 
specific  subset  of  the  natural  domain. 
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DYNAMIC  ALLOCATION  -  The  allocation  (and  deallocation)  of  memory  resources  as 
required  by  the  application.  The  opposite  is  static  allocation  where  a  fixed 
size  segment  of  memory  is  available  to  the  application. 

EBCDIC  -  Extended  Binary  Coded  Decimal  Interchange  Code  (IBM  character  set). 

ENTITY  -  A  collection  of  facts  (attributes)  about  something  of  interest. 

EXTERNAL  REFERENCE  -  A  reference  to  some  quantity  of  data  that  exists  somewhere 
outside  the  scope  of  the  immediate  body  of  information. 

FUNCTIONALITY  -  (1)  To  show  that  the  configuration  item  has  fulfilled  the 
specified  requirements.  (2)  The  receiving  and  sending  systems  can  operate  on 
the  entity  in  the  same  manner  with  the  same  results  within  a  pre-defined 
tolerance. 

IDB  -  Integrated  Database,  MCAIR  internal  database  system. 

I  IT  -  Internal  Item. 

INCLUDE  FILE  -  Pascal  source  code  from  another  file  or  library  included  on  the 
compilation  of  a  Pascal  source  file. 

INPUT  DATA  -  That  information  which  the  application  needs  to  supply  in  order  tA 
interrogate  or  operate  on  the  model.  This  data  may  assume  only  these  form^ 
prescribed  by  the  PDDI  Access  Software  specifications. 

INTERPRETED  REQUEST  -  Input  data  which  has  been  appropriately  modified  to 
conform  to  the  PDDI  Access  Software's  internal  data  representation  so  that  it 
may  be  further  processed. 

JCL  -  Job  Control  Language  -  IBM  language  used  to  identify  a  job  and  describe 
its  requirements  to  an  operating  system. 

KEY  -  An  item  of  data  that  uniquely  identifies  some  specific  instance  of  an 
entity. 

MAS  -  The  MCAIR  acronym  with  the  PDDI  Access  Software  (Model  Access  System). 

METAMODEL  -  A  body  of  data  that  defines  the  characteristics  of  a  data  model  or 
structure. 

MODEL  -  A  collection  of  PDD  that  is  transferable,  displayable,  accessible,  and 
equivalent  to  a  Part.  The  internal  representation  of  the  application  data,  as 
initiated  and  organized  by  the  user.  The  model  is  also  referred  to  as  the 
Working  Form. 

MODEL  NETWORK  DEFINITION  -  The  set  of  rules  and  definitions  which  outline  in 
detail  the  data  structure  whereby  higher  order  entities  may  be  composed  of 
lower  order  entities,  or  constituents,  and  the  lower  order  entities  may 
constituents  of  one  or  more  higher  order  entities. 
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NATIVE  SYSTEM  -  The  PDD  and  applications  in  a  format  that  is  unique  to  the 
database  of  a  CAD  system. 

NDS  -  Network  Data  Structure. 

PARSE  -  The  process  of  analyzing  input  strings  (records)  to  identify  fields  and 
to  verify  that  the  data  has  a  valid  format. 

PDD  -  Product  Definition  Data. 

POST- PROCESSOR  -  A  phase  of  the  translator  where  data  is  received  from  the 
Exchange  Format  and  is  converted  to  the  Working  Form. 

PRE-PROCESSOR  -  A  phase  of  the  translator  where  data  is  taken  from  the  Working 
Form  and  is  converted  to  the  Exchange  Format. 

QUALITY  -  The  composite  of  all  the  attributes  or  characteristics  including 
performance  of  an  item  or  product. 

QUALITY  ASSURANCE  -  The  planned  and  systematic  establishment  of  all  actions 
(management/engineering)  necessary  to  provide  adequate  confidence  and 
nonconformance  prevention  provisions  and  reviews  are  established  during  the 
design  phase  and  performed  throughout  the  software  development  and  life  cycle 
phases. 

QUALITY  CONTROL  -  The  planned  and  systematic  application  of  all  actions 
(management/technical)  necessary  to  control  raw  materials  or  products  through 
the  use  of  test,  inspect,  evaluate,  and  control  of  processes. 

REQUESTED  DATA  -  See  Application  Request  Data. 

RUN  SYSTEM  -  The  Translator  sub-package  which  provides  the  communication 
interface  between  the  user  and  the  pre/post-processors. 

SCHEMA  -  Those  definitions  which  describe  the  content  of  the  data  and  the 
relationship  between  the  various  elements  or  components  of  the  data. 

SOFTWARE  QUALITY  ASSURANCE  (SQA)  -  The  planned  and  systematic  establishment  of 
all  actions  necessary  to  provide  adequate  confidence  that  nonconformance 
prevention  provisions  and  reviews  are  established  during  the  design  phase  and 
performed  throughout  the  software  development  and  life  cycle  phases. 

SOFTWARE  QUALITY  ASSURANCE  PLAN  (SOAP)  -  An  organized  description  of  the 
methods,  policies,  and  procedures  necessary  to  conduct  software  quality 
assurance  and  control  activities  during  the  design,  development,  delivery,  and 
maintenance  phases. 

SOFTWARE  QUALITY  CONTROL  -  The  planned  and  systematic  application  of  all 
actions  (management/technical)  necessary  to  ensure  that  the  software  under 
development  or  maintenance  satisfies  the  technical  requirements  through  the  use 
of  tests,  demonstrations,  inspections,  evaluations,  and  control  of  processes. 
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SYSTEM  CONSTRAINTS  -  Those  hardware  and  software  environmental  constraints 
which  will  be  imposed  upon  the  PDDI  Access  Software  that  will  limit  its 
implementation  and  application.  An  example  of  such  constraints  might  be  the 
particular  compiler  used  to  compile  the  PDDI  Access  Software  package. 

TRANSFER  DATA  -  The  data  required  to  make  an  exchange  of  data  between  systems 
(e.g.,  delimiters,  record  counts,  record  length,  entity  counts,  numeric 
precision). 

TRANSLATOR  -  A  software  program  that  is  used  for  passing  data  between  the 
Exchange  Format  and  Working  Form  of  the  PDD. 

TSO  -  Time  Sharing  Option  -  IBM  function  which  provides  conversational  time 
sharing  from  remote  terminals. 

UDB  -  User  Data  Block  (AKA,  Attribute  Data  Block). 

USER  COMPUTER  SYSTEM  -  The  specific  hardware,  operating  systems,  and 
applications  software  systems  that  the  user  will  employ  to  implement  the  PDDI 
Access  Software. 


WORKING  FORM  -  A  memory  resident  form  of  a  model  that  supports  rapid  access  to 
entities  via  the  Access  Software. 


WORKING  FORMAT 
computer. 


The  physical  representation  of  the  Working  Form  within  tru 
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APPINPIX  g 

TRANSLATOR  SOFTWARE  ROUTINES 

This  appendix  provides  a  listing  of  each  routine  in  the  Translator  Software 
package.  The  routines  are  listed  in  alphabetic  order.  Hierarchy  charts  are 
included  and  an  index  gives  a  brief  description  of  each  routine  function. 


Routine  Index . B-2 

Post-Processor  Hierarchy  Chart  .  B-4 

Pre-Processor  Hierarchy  Chart . B-10 

Routine  Dictionary  .  B- 13 
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ACSSWF 

ADDCNST 

ATRTWT 

OCNIDK 

OCNIROL 

OONVRT 

CRDECL 

CRHEAD 

CRRUIE 

DOTOP 

ENCODE 

FTLEFER 

fhewf 

FILLADB 

FTTIQGT 

FHISTRC 

FTLLSUB 

FTTirmp 

FILLVAL  - 

PQRINPO 

FTCHADB 

FTCHCHR 

FTCHHAF 

FTQHINr 

FICHLOG 

FTCHKEL 

FTCHSCL 

GETCCMM 

GEIDOPOS 

geim 

GETIND 

GETKND 

GEIMTOK 

GETNEW 

GETQUOT 

GEISCKEN 

GETSEMI 

GEITOKEN 

GETUNI 

GETWKF 
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PDDI  TRANSLATOR  SOFTWARE  ROUTINE  INDEX 


-  retrieves  the  working  form  model 

-  an  entity  to  a  constituent  list  at  a  specified  position,  adding 
nil  entities  if  necessary  for  padding 

-  Creates  Data  Section  from  Attribute  data 

-  converts  a  field  from  character  type  to  whatever  type  is  specified 

-  Controls  the  flew  of  entire  system 

-  convert  to  or  from  native  form 

-  create  declaration  section  i  *  PDES  file 

-  create  Header  Section  of  PDES  file 

-  create  Pules  Section  of  PDES  file 


-  set  up  parameters  for  routine  AERDAT 

-  Create  an  Exchange  Format  Entity 

-  update  or  query  the  relationship  structure  of  file  pointer  to  kind 
and  ident 

-  file  the  working  form  model  to  native  database 

-  to  fill  values  in  the  attribute  data  block  of  the  current  entity 

-  to  fill  values  in  the  constituent  list  of  the  current  entity 

-  to  fill  values  in  structures 

-  to  fill  values  in  the  current  subentity 

-  places  values  that  are  common  to  all  kinds  in  the  attribute  data 

block  for  the  current  entity  d 

to  fill  values  in  the  working  form  ™ 

-  Formats  user  provided  data 

-  to  read  the  attribute  data  block  and  give  the  actual  value  in  the 
data  field. 

-  Obtains  a  character  string  from  the  ADB 

-  obtains  a  2 -byte  integer  from  the  ADB 

-  Obtains  an  integer  from  the  ADB 

-  Obtains  a  logical  from  the  ADB 

-  Obtains  an  8 -byte  real  number  from  the  ADB 

-  Obtains  a  1-byte  integer  from  the  ADB 

-  to  extract  a  Garment  and  write  it  to  the  message  file 

-  gets  the  position  in  the  current  data  dictionary  of  the  next 
exchange  format  field. 

-  obtains  current  highest  instance  of  specified  entity  kind 

-  Gets  the  instance  of  an  entity  kind 

-  gets  the  kind  corresponding  to  the  string  name 

-  gets  the  next  meaningful  token,  or  a  null  string  if  there  is  a 


defaulted  value. 

-  Reads  the  Data  Dictionary  of  a  specified  entity 

-  gets  a  character  string  from  the  exchange  format  file 

-  gets  the  position  in  the  current  data  dictionary 
exchange  format  field. 

-  sets  the  position  to  after  the  next  semi-colon  -  the 
the  next  entity. 

-  gets  a  token  from  the'  exchange  format  file 

-  gets  the  starting  line  in  the  data  dictionary 

-  Gets  the  information  about  the  Working  Form  entity 


of  the  next 


beginning  of 


B-2 


PS  560130000A 
1  January  1987 


INTTIR  -initializes  the  level  reconi 

INTMAP  -  initializes  the  mapping  array 

INTINEW  -  Initializes  Data  Dictionary  to  blanks 

KNDLIS  -  reads  a  list  of  kinds  and  their  associated  entity  names 

MAERRM  -  Produces  Input  Error  Message 

MAKDAT  -  Makes  Exchange  Format  Entity 

NIPPON  -  Writes  the  appropriate  punctuation  to  the  data  section  record  for  a 
nil  attribute 

OPERAT  -  Converts  Values  to  character  form 
FERROR  -  communicates  with  the  user 

POST  -  Post-process  PDD 

PRDAIA  -  puts  data  information  from  exchange  file  into  the  working  form 
FRDECL  -  processes  declaration  information  from  the  exchange  file 
FEE  -  pre-prooess  PDD 

FEHEAD  -  processes  header  information  from  the  exchange  file 

FREENT  -  Prints  the  definitions  of  all  entities  in  the  input  list 

PRIDKEN  -  processes  an  input  token  RETMAP  -  retrieves  mapping  information 

PUNTAB  -  Generates  Delimiters  for  Fields 

READEF  -  Reads  Exchange  Format  Record 

REMAP  Retreives  mapping  information 

STEP  -  Steps  through  processors 

STQRADB  -  puts  a  value  in  the  attribute  data  block 

STQRCHR  -  Puts  a  character  string  into  the  ADB 

STQRHAF  -  Puts  a  scalar  into  the  ADB 

STQRINT  -  Puts  an  integer  into  the  ADB 

STQRLOG  -  Puts  a  logical  into  the  ADB 

STORMAP  Stores  the  Exchange  Format  pointer  and  associated  entity  key  in  an 
array 

STQRREL  -  Puts  an  8 -byte  real  number  into  the  ADB 
STQRSCL  -  Puts  a  scalar  into  the  ADB 

STRNAM  -  gets  the  string  name  corresponding  to  the  input  kind  VALOON  - 
validates  the  field 

TAERED  -  Converts  a  value  to  character  and  concatenate  punctuation  onto  it 
for  Exchange  Format  file 

TRMFKT  -  Determines  whether  a  print  "all  entity"  or  ,!by  kind  of  entity"  will 
run  on  the  Working  Form  model 
VMJXN  validates  the  field 

WFEENT  -  Initiates  the  print  of  a  Working  Form  model 
WRTIEMSG  -  writes  output  to  the  message  file 
WREREC  -  Writes  a  string  to  Record  and  File 
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Routine  Hierarchy  for  the  POST  Processor 
Exchange  Format  /  Working  Format  Translator 
(  IBM  Version  ) 


Legend: 

*  MAS  Rountine 

+  Stub  Rountine 

**  IDB  Rountine  (Not  Deliverable) 

++  McAir  Utility  (Not  Deliverable) 


USERMENU  (  CLIST  ) 
CONTROL 
FORINFO 
STEP 
PERROR 
MAINIT 
MAKILL 
FILEWF  ++ 

CONVRT  ++ 

ACSSWF  ++ 

WFPRNT 
TRMPRT 
GETNEW 
INITNEW 
PRTENT 
MALRD  * 
MALSTF  * 
MALD  * 
MALNO  * 
MALGTK  * 
MAEU  * 
FTCHADB 
FTCHCHR 
FTCHINT 
FTCHSCL 
FTCHHAF 
FTCHLOG 
FTCHREL 
FTCHSCL 
MAECTK  * 
MAEKND  * 
MALK  * 

MALNO  * 

PRE 
POST 
PERROR 
MAERRM  * 

MAECR  * 

FILLTOP 
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GETHI 
MAERRM  * 
MALK  * 
MALD  * 
MALNO  * 
MALSTF  * 
MALRD  * 
MAEGTK  * 
PERROR 
STORADB 
STORINT 
STORSCL 
STORHAF 
STORREL 
STORCHR 
STORLOG 
STORSCL 
GETNEW 
INITNEW 
GETMTOK 
GETTOKEN 
PERROR 
READEF 
GETCOMM 
PERROR 
WRITEMSG 
PERROR 
READEF 
GETQUOT 
PERROR 
READEF 

PRHEAD 
PERROR 
WRITEMSG 
PERROR 
PRDECL 
PERROR 
WRITEMSG 
PERROR 
PRDATA 
PERROR 
MAERRM  * 
MAECR  * 

MALD  * 
STORMAP 
ADDCNST 
PERROR 
MAERRM  * 
MALNO  * 
MALRPL  * 
MALATC  * 
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GETDDPOS 
FTCHADB 
FTCHCHR 
FTCHINT 
FTCHSCL 
FTCHHAF 
FTCHLOG 
FTCHREL 
FTCHSCL 
PRTOKEN 
PERROR 
GETNEW 
INITNEW 
GETKND 
FILLTOP 
GETHI 
MAERRM  * 
MALK  * 
MALD  * 
MALNO  * 
MALSTF  * 
MALRD  * 
MAEGTK  * 
PERROR 
STORADB 
STORINT 
STORSCL 
STORHAF 
STORREL 
STORCHR 
STORLOG 
STORSCL 
INITLR 
FILLVAL 
PERROR 
GETDDPOS 
FILLADB 
PERROR 
CONTOK 
VALCON 
STORADB 
STORINT 
STORSCL 
STORHAF 
STORREL 
STORCHR 
STORLOG 
STORSCL 
FILLCNST 
PERROR 
MAERRM  * 
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MAL  * 

MALD  * 

MALATC  * 

MAECR  * 

INITLR 
GETDDPOS 
GETNEW 
INITNEW 
ADDCNST 
PERROR 
MAERRM  * 
MALNO  * 
MALRPL  * 
MALATC  * 
FILLTOP 
GETHI 
MAERRM  * 
MALK  * 
MALD  * 
MALNO  * 
MALSTF  * 
MALRD  * 
MAEGTK  * 
PERROR 
STORADB 
STORINT 
STORSCL 
STORHAF 
STORREL 
STORCHR 
STORLOG 
STORSCL 
CONTOK 
VALCON 
RETMAP 
FILLSUB 
PERROR 
MAERRM  * 

MAL  * 

MALATC  * 
MAECR  * 

MALD  * 

INITLR 
FILLTOP 
GETHI 
MAERRM  * 
MALK  * 
MALD  * 
MALNO  * 
MALSTF  * 
MALRD  * 
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MAEGTK  * 
PERROR 
STORADB 
STORINT 
STORSCL 
STORHAF 
STORREL 
STORCHR 
STORLOG 
STORSCL 
GETNEW 
INITNEW 
ADDCNST 
PERROR 
MAERRM  * 
MALNO  * 
MALRPL  * 
MALATC  * 
GETDDPOS 
FILLSUB 
PERROR 
MAERRM  * 

MAL  * 

MALATC  * 

MAECR  * 

MALD  * 

INITLR 
FILLTOP 
GETHI 
MAERRM  * 
MALK  * 

MALD  * 
MALNO  * 
MALSTF  * 
MALRD  * 
MAEGTK  * 
PERROR 
STORADB 
STORINT 
STORSCL 
STORHAF 
STORREL 
STORCHR 
STORLOG 
STORSCL 
GETNEW 
INITNEW 
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ADDCNST 

PERROR 

MAERRM 

MALNO 

MALRPL 

MALATC 

GETDDPOS 

FILLSTRC 

KNDLIS 

GETSEMI 

PERROR 

READEF 

INITMAP 


* 

* 

* 

* 
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Routine  Hierarchy  for  the  PRE  Processor 
Exchange  Format  /  Working  Format  Translator 
(  IBM  Version  ) 

Legend: 

*  MAS  Rountine 

+  Stub  Rountine 

**  IDB  Rountine  (Not  Deliverable) 

++  McAir  Utility  (Not  Deliverable) 


USERMENU  (  CL 1ST  ) 
CONTROL 
FORINFO 
STEP 
PERROR 
FILEWF  ++ 

CONVRT  ++ 

ACSSWF  ++ 

WFPRNT 
TRMPRT 
MAECTK  * 
MAEKND  * 

MALK  * 

MALNO  * 
GETNEW 
INITNEW 
PRTENT 
FTCHADB 
FTCHCHR 
FTCHINT 
FTCHSCL 
FTCHHAF 
FTCHLOG 
FTCHREL 
FTCHSCL 
MALRD  * 
MALSTF  * 
MALD  * 
MALNO  * 
MALGTK  * 
MAEGTK  * 
MAEU  * 

PRE 

PERROR 
MAERRM  * 

MALNO  * 

MALSTF  * 

MALRD  * 

MALK  * 
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KNDLIS 
WRTREC 
ENCODE 
PERROR 
MAKDAT 
PERROR 
FTCHADB 
FTCHCHR 
FTCHINT 
FTCHSCL 
FTCHHAF 
FTCHLOG 
FTCHREL 
FTCHSCL 
STRNAM 
FILEPTR 
MAEGTK  * 
GETNEW 
INITNEW 
WRTREC 


ATRDAT 

FILEPTR 

GETUNI 

DOTOP 

WRTREC 

GETSCRIN 

GETSCRIN 

GETNEW 

INITNEW 

WRTREC 

FTCHADB 

FTCHCHR 

FTCHINT 

FTCHSCL 

FTCHHAF 

FTCHLOG 

FTCHREL 

FTCHSCL 

GETIND 

FTCHADB 

FTCHCHR 

FTCHINT 

FTCHSCL 

FTCHHAF 
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FTCHLOG 
FTCHREL 
FTCHSCL 
MAEGKN  * 
MALGTK  * 
MAEGTK  * 
MAEC  * 
MALSTF  * 
MALRD  * 
MALNO  * 
NILCON 
GETSCRIN 
WRTREC 
OPERAT 
PERROR 
WRTREC 
TABRED 
PUNTAB 
PERROR 

GETWKF 
PERROR 
MAERRM  * 

MAEGTK  * 

MAEC  * 

CRHEAD 
PERROR 
MAERRM  * 

MAECTK  * 

MAECTK  * 

MAEKND  * 

MALK  * 


MALNO  * 
MALO  * 
WRTREC 
STRNAM 
CRDECL 
CRRULE 
MAINIT  * 
MAKILL  * 
POST 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. - . *) 

*) 

AUTHOR:  A.  M.  WHELAN  K315  2G  CREATED:  86/10/29  *) 

VERSION:  1  REVISED:  *) 

*) 

ROUTINE  NAME  :  ACSSWF  *) 

*) 

FUNCTION  :  RETRIEVES  THE  WORKING  FORM  MODEL  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLED  BY:  *) 

STEP  *) 

CALLS:  *) 

ENRTV  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

USEREC  I  A  RECORD  OF  USER  INFORMATION  *) 

IRC  0  RETURN  CODE  *) 

*) 

COMMONS:  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

THIS  ROUTINE  RETRIEVES  THE  WORKING  FORM  MODEL  FROM  EITHER  *) 

THE  NATIVE  DATABASE  OR  THE  PDDI  SUPPLIED  DATABASE  *) 

*) 

COMMENTS:  *) 

*) 

CHANGE  CONTROL:  *) 

*) 

. . . *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

AUTHOR:  PHIL  DORR  ORG  ID  CREATED:  06/06/86  *) 

VERSION:  1  REVISED:  *) 

*) 

ROUTINE  NAME  :  ADDCNST  *) 

*) 

FUNCTION  :  *) 

ADDS  AN  ENTITY  TO  A  CONSTITUENT  LIST  AT  A  SPECIFIED  POSITION,  *) 

ADDING  NIL  ENTITIES  IF  NECESSARY  FOR  PADDING.  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLS:  *) 

"  PERROR  WRITES  OUT  ERROR  MESSAGES  *) 

MALNO  DETERMINES  THE  NUMBER  OF  ELEMENTS  IN  LIST  *) 

MALRPL  REPLACES  AN  ENTITY  IN  A  LIST  *) 

MALATC  ATACHES  AN  ENTITY  TO  THE  END  OF  A  LIST  *) 

CALLED  BY:  *) 

PRDATA  *) 

FILLCNST  FILLS  THE  CONSTITUENT  LIST  *) 

FILLSUB  FILLS  THE  SUBENTITY  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

WFDD  I/O  THE  ARRAY  OF  DATA  DICTIONARYS  *) 

WFDD_POS  I  THE  POSITION  IN  THE  CURRENT  WFDD  *) 

CLIST  I/O  THE  ARRAY  OF  ENTITY  CONTITUENT  LISTS  *) 

CUR_LEVEL  I  THE  CURRENT  LEVEL  WITHIN  CLIST  ARRAY  *) 

ENTITY.KEY  I  THE  KEY  OF  THE  ENTITY  TO  INSERT  *) 

RC  0  RETURN  CODE  *) 

0  :  OK  *) 

1  :  NIL  ENTITY  NOT  CREATED  EARILIER  -  FAILURE  *) 

2  :  MAS  ERROR  -  FAILURE  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

ADDS  A  KEY  TO  THE  CONSTITUENT  LIST  IN  THE  APPROPRIATE  POSITION  *) 

*) 

CHANGE  CONTROL:  *) 

*) 

. *) 
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. *) 

*) 

AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  84/12/20  CC  *) 

VERSION:  1.0  REVISED:  85/09/17  CC  *) 

*) 

ROUTINE  NAME:  ATRDAT  *) 

CREATE  DATA  SECTION  FROM  ATTRIBUTE  DATA  *) 

*) 

FUNCTION:  *) 

CREATES  DATA  SECTION  RECORD  INFORMATION  FROM  ATTRIBUTE  *) 

DATA  BLOCK  AND  CONSTITUTENT  LIST.  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLED  BY:  *) 

MAKDAT  *) 

SELF  (REV  IVE  ROUTINE)  *) 

CALLS:  *) 

GETUNI  *) 

FILZPTR  *) 

GETNEW  *) 

WRTREC  *) 

FTCHADB  *) 

GETIND  *) 

NILCON  *) 

OPERAT  *) 

PERROR  *) 

GETSCRIN  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

KIND  I  ENTITY  KIND  *) 

PASADB  I  ATTRIBUTE  DATA  BLOCK  FOR  ENTITY  *) 

EDBCOM  I  WORKING  FORM  DATAD I CT IONARY  FOR  KIND  *) 

CONSTI  I  WORKING  FORM  KEY  TO  ENTITY'S  CONSTITUENT  LIST  *) 

EFFILE  I  EXCHANGE  FORMAT  FILE  *) 

IRC  0  RETURN  CODE  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

USING  THE  DATA  DICTIONARY,  PROCESS  THE  DATA  ASSOCIATED  *) 

WITH  THE  ENTITY.  *) 

*) 

CHANGE  CONTROL:  *) 

09/17/85  -  L. A. DAVIS  USES  NEW  GLOBAL  EF  DATADICTIONARY  *) 

*) 

.  . *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR:  K.  CHI  W315  2G  CREATED:  84/12/04 

VERSION:  1.0  REVISED: 

ROUTINE  NAME  :  CONTOK 

FUNCTION  :  CONVERT  FIELDS 

CONVERT  A  FIELD  FROM  CHARACTER  TYPE  TO  WHATEVER 
TYPE  IS  SPECIFIED 


ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLED  BY: 

FILL-VALUE-IN-ATTRIBUTE-DATA-BLOCK 

FILL-VALUE-IN-CONSTITUENT-LIST 

CALLS: 

VALIDATE-CONVERSION-FIELD 

DESCRIPTION  OF  ARGUMENTS: 

TOKEN  I  FIELD  TO  BE  CONVERTED 

CONREC  I/O  RECORD  OF  INFORMATION  TO  BE  PASSED  IN  AND  OUT 
RC  0  RETURN  CODE 


PROCESSING  DESCRIPTION: 

THIS  ROUTINE  NEEDS  NO  OPEN/CLOSE  FILES 

CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR:  K.  CHI 
VERSION:  1.0 

ROUTINE  :  CONTROL 


W315  2G  CREATED:  84/10/19 
REVISED:  85/09/17 
86/06/06 


FUNCTION: 

CONTROLS  THE  FLOW  OF  THE  ENTIRE  SYSTEM. 

WHEN  A  MESSAGE  NEEDS  TO  BE  PRINTED  OR  HAS  BEEN  PRINTED 
CONTROL  WILL  CALL  THE  APPROPRIATE  SUBROUTINE  FOR  FURTHER 
ACTION 

ENTRY  POINT  FOR  ANY  TRANSLATOR  FUNCTION 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

THIS  ROUTINE  WILL  BE  CALLED  BY  A  CLIST 
CALLS: 

FORINFO 

STEP 

COMMONS: 

U_REC  0  HOLDS  THE  USER  RECORD.  IE.  DRAWING  NAME 

DISK/TAPE... 

DSECT  0  FLAG  THAT  INDICATES  WHETHER  THE  CURRENT 
DATA  IS  PART  OF  THE  DATA  SECTION. 

AT  FIRST  ENTRY,  DSECT  IS  SET  TO  FALSE. 

PROCESSING  DESCRIPTION: 

THIS  ROUTINE  NEEDS  OPEN/CLOSE  NO  FILES 

CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


.  . *) 

*) 

AUTHOR:  L.  A.  DAVIS  ORG_ID  CREATED:  84/12/11  CC  *) 

VERSION:  1.0  REVISED:  86/06/10  CC  *) 

*) 

ROUTINE  NAME  :  CONVRT  *) 

*) 

FUNCTION:  CONVERT  TO  OR  FROM  NATIVE  FORM  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

*) 

EXECUTION  PROCEDURE:  *) 

THIS  ROUTINE  WILL  BE  CALLED  BY  STEP'  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

FORMAT  I  WHICH  PROCESSOR  IN  USE  *) 

IRC  0  RETURN  CODE  *) 

0  :  OKAY  *) 

2  :  CONVERSION  UNSUCCESSFUL  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

*) 

CHANGE  CONTROL:  *) 

*) 

. - .  . . *) 
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(* . 

(* 

(*  AUTHOR:  A.  M.  WHELAN  ORG.ID  CREATED:  86/12/04 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  CRDECL 
(* 

(*  FUNCTION  :  CREATE  DECLARATION  SECTION  OF  PDES  FILE 
(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  NONE 

(*  CALLED  BY: 

(*  PRE 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  RC  0  RETURN  CODE 

(*  0  :  OK 

(*  >0  :  FAILURE 

(* 

(*  PROCESSING  DESCRIPTION: 

(* 

(*  CHANGE  CONTROL: 

(* 

(* .  . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 

(*  AUTHOR:  A.  M.  WHELAN  ORG.ID  CREATED:  86/12/04  *) 

(*  VERSION:  1  (JAN.  DEMO  )  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  CRHEAD  *) 

(*  *) 

(*  FUNCTION  :  CREATE  HEADER  SECTION  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  .  *) 
(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  PRE  *) 

(*  CALLS:  *) 

(*  PERROR  *) 

(*  WRTREC  *) 

(*  STRNAM  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  EFFILE  I  EXCHANGE  FORMAT  FILE  *) 

(*  KNDTBL  I  TABLE  OF  KINDS  AND  THEIR  ASSOCIATED  NAME  *) 

(*  NUMKND  I  NUMBER  OF  ENTRIES  IN  KNDTBL  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  0  :  OK  *) 

(*  1  :  FAILURE  *) 

(*  2  :  MAS  FAILURE  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  READ  INFORMATION  FROM  HEADER  FILE  FOR  HEADER  *) 

(*  CREATE  STATISTICS  *) 

(*  COLLECT  INFORMATION  INTO  HEADER  *) 

(*  WRITE  HEADER  TO  THE  FILE  (WRTREC)  *) 

(*  READ  COMMENTS  FROM  EXPLANATION  FILE  *) 

(*  WRITE  COMMENTS  TO  EXCHANGE  FILE  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 

(* . - . *) 
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(* 

(* 

AUTHOR:  A.  M.  WHELAN 

ORG  ID  CREATED:  85/12/04 

(* 

(  * 

VERSION:  1 

REVISED: 

V 

(* 

1  * 

ROUTINE  NAME  :  CRRULE 

(* 

/* 

FUNCTION  :  TO  CREATE  RULE  SECTION  OF  PDES  FILE 

V 

(* 

ENVIRONMENT: 

(* 

IBM  PASCAL  LANGUAGE 

(* 

/* 

IBM  30XX,  43XX  DEPENDENT  CODE, 

OR  OTHER  APPROPRIATE  H/W. 

V 

(* 

EXECUTION  PROCEDURE: 

- 

(* 

CALLS: 

(* 

NONE 

(* 

CALLED  BY: 

(* 

(* 

PRE 

\ 

(* 

DESCRIPTION  OF  ARGUMENTS: 

(* 

RC  0  RETURN  CODE 

(* 

0  :  OK 

(* 

(* 

>0  :  FAILURE 

\ 

(* 

( * 

PROCESSING  DESCRIPTION: 

V 

(* 

CHANGE  CONTROL: 

PS  560130000A 
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(*■ 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 


AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  84/12/20  CC 

VERSION:  1.0  REVISED:  85/09/17  CC 

ROUTINE  NAME:  DOTOP 

FUNCTION: 

SET  UP  PARAMETERS  FOR  ATRDAT 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLED  BY: 

ATRDAT 

CALLS: 

WRTREC 

GETSCRIN 

DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

UNIDEX  I  BEGINNING  LINE  IN  WFDD 

WEDONE  I  FLAG  INDICATING  END  OF  ENTITY 

EDBCOM  I  WORKING  FORM  DATAD I CT IONARY  FOR  KIND 

WEHERE  I  CS  ORDER  PLACE  HOLDER 

SCRIND  I  PLACE  HOLDER  IN  WFDD 

BNAME  I  STRUCTURE  NAMES 

INSTRC  I  FLAG  INDICATING  IN  A  STRUCTURE 

MTSTRC  I  FLAG  INDICATING  AN  EMPTY  STRUCTURE 

FFLAG  I  FIELD  FLAG  FOR  PUNCTUATION 

SFLAG  I  STRUCTURE  FLAG  FOR  PUNCTUATION 

LEVEL  I  LEVEL  OF  STRUCTURES 

IRC  0  RETURN  CODE 

PROCESSING  DESCRIPTION: 

CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 

(*  AUTHOR:  A.  M.  WHELAN  W315  2G  CREATED:  86/05/10  *) 

(*  VERSION:  1  (  JAN.  DEMO  )  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  ENCODE  *) 

(*  *) 

(*  FUNCTION  :  CREATE  AN  EXCHANGE  FORMAT  ENTITY  *) 

(*  CREATE  EXCHANGE  FORMAT  ENTITIES  FROM  THE  *) 

(*  WORKING  FORM.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  PRE  *) 

(*  CALLS:  *) 

(*  PERROR  *) 

(*  MAKDAT  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  KIND  I  THE  WORKING  FORM  KIND  *) 

(*  INDEX  0  THE  INSTANCE  IN  KIND  *) 

(*  WFKEY  I  THE  WORKING  FORM  KEY  *) 

(*  KNDTBL  I  A  TABLE  OF  KINDS  *) 

(*  AND  THEIR  ASSOCIATED  NAMES  *) 

(*  NUMKND  I  THE  NUMBER  OF  ENTRIES  IN  KNDTBL  *) 

(*  CURRENT.NUMBER  I/O  THE  CURRENT  EXCHANGE  FORMAT  INDEX  *) 

(*  ENTADB  I  THEN  ENTITY  ATTRIBUTE  DATA  BLOCK  *) 

(*  CONLIS  I  THE  ENTITY  CONSTITUENT  LIST  *) 

(*  EFFILE  I/O  THE  EXCHANGE  FORMAT  FILE  *) 

(*  IRC  0  THE. RETURN  CODE  *) 

(*  0  :  OK  *) 

(*  2  :  DATA  ENTITY  NOT  MADE  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  GETS  THE  INSTANCE  OF  THE  KIND,  AND  CREATES  *) 

(*  THE  DATA  ENTITY.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 

(* . *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR:  A.  M.  WHELAN  K315  2G  CREATED:  85/12/04 

VERSION:  1  (  JAN.  DEMO  )  REVISED: 

ROUTINE  NAME:  FILEPTR 

FUNCTION  : 

UPDATE  OR  QUERY  THE  RELATIONSHIP  STRUCTURE  OF  FILE 
POINTER  TO  KIND  AND  IDENT 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLED  BY: 

MAKDAT 

ATRDAT 

CALLS: 

NONE 

DESCRIPTION  OF  ARGUMENTS: 

OPERATION  I  THE  OPERATION  TO  BE  PERFORMED 
VALID  CHOICES: 

'UPDATE' 

'QUERY' 

KIND  I/O  THE  KIND  NUMBER  TO  BE  PUT  IN  OR  KEYED  ON 

INDEX  I/O  THE  IDENT  TO  BE  PUT  IN  OR  KEYED  ON 

EFPTR  I/O  THE  EXCHANGE  FORMAT  POINTER 

RC  0  RETURN  CODE 

0  :  OK 

1  :  KIND  OR  IDENT  NOT  FOUND  (QUERY) 

2  :  DUPLICATE  KIND  AND  IDENT  (UPDATE) 

3  :  INVALID  OPERATION 


PROCESSING  DESCRIPTION: 
CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 

(*  AUTHOR:  A.  M.  WHELAN  K315  2G  CREATED:  86/10/29  *) 

(*  VERSION:  1  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  FILEWF  *) 

(*  *) 

(*  FUNCTION  :  FILE  THE  WORKING  FORM  MODEL  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  -  *) 
(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  STEP  *) 

(*  CALLS:  *) 

(*  ENFILE  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  FILES  THE  WORKING  FORM  MODEL  TO  EITHER  *) 

(*  THE  NATIVE  DATABASE  OR  THE  PDDI  SUPPLIED  DATABASE  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 

(* . *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

*) 


AUTHOR:  A.  M.  WHELAN  ORG.ID  CREATED:  86/05/14  *) 

VERSION:  1  REVISED:  *) 

*) 

ROUTINE  NAME  :  FILLADB  *) 

*) 

FUNCTION  :  TO  FILL  VALUES  IN  THE  ATTRIBUTE  DATA  BLOCK  OF  THE  *) 

CURRENT  ENTITY  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLS:  *) 

PERROR  *) 

CONTOK  *) 

STORADB  *) 

CALLED  BY:  *) 

FILL-VALUE-IN-ENTITY  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

TOKEN  I  THE  INPUT  TOKEN  *) 

ENTADB  I/O  THE  ARRAY  OF  ENTITY  ADB'S  *) 

CLIST  I/O  THE  ARRAY  OF  ENTITY  CONSTITUENT  LIST'S  *) 

WFDD  I/O  THE  ARRAY  OF  DATA  DICTIONARIES  *) 

WFDD_POS  I/O  THE  POSITION  IN  THE  CURRENT  WFDD  *) 

CURRJLEVEL  I/O  CURRENT  LEVEL  WITHIN  ARRAYS  *) 

LEVEL  REC  I/O  RECORD  OF  LEVEL  INFORMATION  *) 

ENTITY  COMPLETE  I/O  FLAG  INDICATING  THE  END  OF  THE  ENTITY  *) 

RC  0  RETURN  CODE  *) 

0  :  OK  *) 

>0  :  FAILURE  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

COMMENTS:  *) 

THIS  ROUTINE  WILL  MAINTAIN  UP  TO  5  'LAYERS'  OF  STORAGE  SPACE  *) 

FOR  ATTRIBUTE  DATA  BLOCKS,  CONSTITUENT  LISTS,  AND  DATA  DICTION-  *) 


ARIES.  IF  THAT  LIMIT  IS  EXCEEDED,  THEN  A  MESSAGE  WILL  BE  PRINTED  *) 
OUT,  AND  THE  PROGRAM  WILL  GO  ON  TO  THE  NEXT  ENTITY,  LEAVING  THIS  *) 
ONE  NOT  TRANSLATED.  TO  FIX  THIS,  MORE  SPACE  WILL  HAVE  TO  BE  *) 
ALLOCATED.  *) 

*) 

CHANGE  CONTROL:  *) 

*) 

.  . *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR:  A.  M.  WHELAN 
VERSION:  1 

ROUTINE  NAME  :  FILLCNST 


EXECUTION  PROCEDURE: 

CALLS: 

PERROR 

GETNEW 

ADDCNST 

INITIALIZE- LEVEL-RECORD 

FILL-TOP-OF-ENTITY 

CONTOK 

RETRIEVE-MAPPING- INFORMATION 
GET-DATA-DICTIONARY-POSITION 
FILL-VALUE- IN-SUBENTITY 
CALLED  BY: 

FILL-VALUE-IN-ENTITY 


. *) 

*) 

ORG_ID  CREATED:  86/05/14  *) 

REVISED:  *) 

*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


DESCRIPTION  OF  ARGUMENTS: 


TOKEN  I 

ENTADB  I/O 

CLIST  I/O 

WFDD  I/O 

WFDD_POS  I/O 

CURR  LEVEL  I/O 

LEVEL_REC  I/O 

ENTITY_COMPLETE  I/O 
RC  0 


THE  INPUT  TOKEN 

THE  ARRAY  OF  ENTITY  ADB'S 

THE  ARRAY  OF  ENTITY  CONSTITUENT  LIST'S 

THE  ARRAY  OF  DATA  DICTIONARIES 

THE  POSITION  IN  THE  CURRENT  WFDD 

CURRENT  LEVEL  WITHIN  ARRAYS 

RECORD  OF  LEVEL  INFORMATION 

FLAG  INDICATING  THE  END  OF  THE  ENTITY 

RETURN  CODE 

0  :  OK 

>0  :  FAILURE 


PROCESSING  DESCRIPTION: 

COMMENTS: 

THIS  ROUTINE  WILL  MAINTAIN  UP  TO  5  'LAYERS'  OF  STORAGE  SPACE 
FOR  ATTRIBUTE  DATA  BLOCKS,  CONSTITUENT  LISTS,  AND  DATA  DICTION¬ 
ARIES.  IF  THAT  LIMIT  IS  EXCEEDED,  THEN  A  MESSAGE  WILL  BE  PRINTED 
OUT,  AND  THE  PROGRAM  WILL  GO  ON  TO  THE  NEXT  ENTITY,  LEAVING  THIS 
ONE  NOT  TRANSLATED.  TO  FIX  THIS,  MORE  SPACE  WILL  HAVE  TO  BE 
ALLOCATED. 


FUNCTION  :  TO  FILL  VALUES  IN  THE  CONSTITUENT  LIST  OF  THE 
CURRENT  ENTITY 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 
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(*  *) 

(*  AUTHOR:  A.  M.  WHELAN  ORG  ID  CREATED:  86/05/15  *) 

(*  VERSION:  1  “  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  FILLSTRC  *) 

(*  *) 

(*  FUNCTION  :  TO  FILL  VALUES  IN  STRUCTURES  *) 

(*  *) 

(*  ENVIRONMENT :  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *  *) 

(*  CALLS:  *) 

(*  NONE  *) 

(*  CALLED  BY:  *) 

(*  FILL-VALUE-IN-ENTITY  *) 

('  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  TOKEN  I  THE  INPUT  TOKEN  *) 

(*  ENTADB  I/O  THE  ARRAY  OF  ENTITY  ADB'S  *) 

(*  CLIST  I/O  THE  ARRAY  OF  ENTITY  CONSTITUENT  LIST'S  *) 

(*  WFDD  I/O  THE  ARRAY  OF  DATA  DICTIONARIES  *) 

(*  WFDD_POS  I/O  THE  POSITION  IN  THE  CURRENT  WFDD  *) 

(*  CURR_LEVEL  I/O  CURRENT  LEVEL  WITHIN  ARRAYS  *) 

(*  LEVEL_REC  I/O  RECORD  OF  LEVEL  INFORMATION  *) 

(*  ENTITY_COMPLETE  I/O  FLAG  INDICATING  THE  END  OF  THE  ENTITY  *) 

(*  RC  0  RETURN  CODE  *) 

(*  0  :  OK  *) 

(*  >0  :  FAILURE  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  COMMENTS:  *) 

(*  THIS  ROUTINE  WILL  MAINTAIN  UP  TO  5  'LAYERS'  OF  STORAGE  SPACE  *) 

(*  FOR  ATTRIBUTE  DATA  BLOCKS,  CONSTITUENT  LISTS,  AND  DATA  DICTION-  *) 


(*  ARIES.  IF  THAT  LIMIT  IS  EXCEEDED,  THEN  A  MESSAGE  WILL  BE  PRINTED  *) 
(*  OUT,  AND  THE  PROGRAM  WILL  GO  ON  TO  THE  NEXT  ENTITY,  LEAVING  THIS  *) 


(*  ONE  NOT  TRANSLATED.  TO  FIX  THIS,  MORE  SPACE  WILL  HAVE  TO  BE  *) 

(*  ALLOCATED.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 

(* . *) 
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(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

AUTHOR:  A.  M.  WHELAN  ORG  ID  CREATED:  86/05/14  *) 

VERSION:  1  REVISED:  *) 

*) 

ROUTINE  NAME  :  FILLSUB  *) 

*) 

FUNCTION  :  TO  FILL  VALUES  IN  THE  CURRENT  SUBENTITY  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLS:  *) 

PERROR  *) 

INITIALIZE- LEVEL- RECORD  *) 

FILL-TOP-OF-ENTITY  *) 

FILL-DATA-DICTIONARY  '  *) 

GET- DATA- D I CT I ONARY -POSITION  *) 

ADD-CONSTITUENT  *) 

CALLED  BY:  *) 

FILL-VALUE-IN-ENTITY  *) 

FILL-VALUE-IN-CONSTITUENT-LIST  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

TOKEN  I  THE  INPUT  TOKEN  *) 

ENTADB  I/O  THE  ARRAY  OF  ENTITY  ADB'S  *) 

CLIST  I/O  THE  ARRAY  OF  ENTITY  CONSTITUENT  LIST'S  *) 

WFDD  I/O  THE  ARRAY  OF  DATA  DICTIONARIES  *) 

WFDD  POS  I/O  THE  POSITION  IN  THE  CURRENT  WFDD  *) 

CURR_LEVEL  I/O  CURRENT  LEVEL  WITHIN  ARRAYS  *) 

LEVEL.REC  I/O  RECORD  OF  LEVEL  INFORMATION  *) 

ENTITY_COMPLETE  I/O  FLAG  INDICATING  THE  END  OF  THE  ENTITY  *) 

RC  0  RETURN  CODE  *) 

0  :  OK  *) 

>0  :  FAILURE  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

COMMENTS:  *) 

THIS  ROUTINE  WILL  MAINTAIN  UP  TO  5  'LAYERS'  OF  STORAGE  SPACE  *) 


FOR  ATTRIBUTE  DATA  BLOCKS,  CONSTITUENT  LISTS,  AND  DATA  DICTION-  *) 
ARIES.  IF  THAT  LIMIT  IS  EXCEEDED,  THEN  A  MESSAGE  WILL  BE  PRINTED  *) 
OUT,  AND  THE  PROGRAM  WILL  GO  ON  TO  THE  NEXT  ENTITY,  LEAVING  THIS  *) 
ONE  NOT  TRANSLATED.  TO  FIX  THIS,  MORE  SPACE  WILL  HAVE  TO  BE  *} 
ALLOCATED.  *) 

*) 

CHANGE  CONTROL:  *) 

*) 

. *) 
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(*  *) 

(*  AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  85/02/02  *) 

(*  VERSION:  1  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME:  FILLTOP  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  PLACES  VALUES  IN  ADB  FOR  THOSE  AREAS  COMMON  TO  ALL  KINDS  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  -  *) 
(*  EXECUTION  PROCEDURE:  *) 

(*  CALLS:  *) 

(*  GETHI  *) 

(*  STORADB  *) 

(*  CALLED  BY:  *) 

(*  PROCESS-TOKEN  *) 

(*  FILL-VALUE-IN-CONSTITUENT-LIST  *) 

(*  FILL-VALUE-IN-SUBENTITY  *) 

(*  POST  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  KIND  I  TYPE  OF  WORKING  FORM  ENTITY  *) 

(*  ENT ADB  I/O  BUILDING  AREA  FOR  WORKING  FORM  ENTITY  *) 

(*  EDBCOM  I/O  WORKING  FORM  DATA  DICTIONARY  *) 

(*  RC  0  THE  RETURN  CODE  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  FILLS  IN  THE  AREAS  IN  THE  ADB  COMMON  TO  ALL  WORKING  FORM  *) 

(*  TYPES.  USES  DATA  DICTIONARIES  TO  DETERMINE  HOW  DATA  SHOULD  *) 

(*  BE  PLACED  IN  THE  ADB.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(* . - . - . *) 
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(* . -*) 

(*  *) 

(*  AUTHOR:  A.  M.  WHELAN  ORG  ID  CREATED:  86/05/09  *) 

(*  VERSION:  1  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  FILLVAL  *) 

(*  *) 

(*  FUNCTION  :  TO  FILL  VALUES  IN  THE  WORKING  FORM  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  CALLS:  *) 

(*  PERROR  *) 

(*  FILL-VALUE-IN-ADB  *) 

(*  FILL-VALUE-IN-CONSTITUENT-LIST  '  *) 

(*  FILL-VALUE-IN-SUBENTITY  *) 

(*  FILL-VALUE- IN-STRUCTURE  *) 

(*  GET-DATA-DICTIONARY- POSITION  *) 

(*  CALLED  BY:  *) 

(*  PROCESS-TOKEN  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  TOKEN  I  THE  INPUT  TOKEN  *) 

(*  ENTADB  I/O  THE  ARRAY  OF  ENTITY  ADB'S  *) 

(*  CLIST  I/O  THE  ARRAY  OF  ENTITY  CONSTITUENT  LIST'S  *) 

(*  WFDD  I/O  THE  ARRAY  OF  DATA  DICTIONARIES  *) 

(*  CURR_LEVEL  I/O  CURRENT  LEVEL  WITHIN  ARRAYS  *) 

(*  LEVEL_REC  I/O  RECORD  OF  LEVEL  INFORMATION  *) 

(*  ENTITY_COMPLETE  I/O  FLAG  INDICATING  THE  END  OF  THE  ENTITY  *) 

(*  RC  0  RETURN  CODE  *) 

(*  0  :  OK  *) 

(*  1  :  FAILURE  FROM  LOWER  ROUTINES  *) 

(*  2  :  LEVELS  DIDN'T  MATCH  UP  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  COMMENTS:  *) 

(*  THIS  ROUTINE  WILL  MAINTAIN  UP  TO  5  'LAYERS'  OF  STORAGE  SPACE  *) 

(*  FOR  ATTRIBUTE  DATA  BLOCKS,  CONSTITUENT  LISTS,  AND  DATA  DICTION-  *) 

(*  ARIES.  IF  THAT  LIMIT  IS  EXCEEDED,  THEN  A  MESSAGE  WILL  BE  PRINTED  *) 

(*  OUT,  AND  THE  PROGRAM  WILL  GO  ON  TO  THE  NEXT  ENTITY,  LEAVING  THIS  *) 

(*  ONE  NOT  TRANSLATED.  TO  FIX  THIS,  MORE  SPACE  WILL  HAVE  TO  BE  *) 

(*  ALLOCATED.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 

(* .  . -*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 


AUTHOR:  K.  CHI  W315  2G  CREATED:  84/10/19 

VERSION:  1.0  REVISED: 

ROUTINE  NAME:  FORINFO 

FUNCTION: 

FORMATS  THE  USER  PROVIDED  INFORMATION  FROM  INTERFACE 
INTO  A  RECORD  FORM 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLED  BY: 

CONTROL 

CALLS: 

NONE 

DESCRIPTION  OF  ARGUMENTS: 

NONE 

COMMONS: 

U.REC  I  CONTAINS  ALL  THE  USER  INFORMATION  IN  A  RECORD 
FORMAT 

PROCESSING  DESCRIPTION: 

THIS  ROUTINE  WILL  OPEN  THE  PASFIL  FILE  WHERE  ALL  THE  USER 
INFORMATION  IS  KEPT 

COMMENTS: 

THIS  ROUTINE  WILL  ONLY  BE  CALLED  UPON  ONCE  THROUGHOUT 

THE  ENTIRE  PROCESS 

THAT  IS  ONLY  IN  THE  BEGINNING 

CHANGE  CONTROL: 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*') 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


B- 32 


PS  560130000A 
1  January  1987 


(*  *) 

(*  AUTHOR:  LAUREL  A.  CASSIN  ORG_ID  CREATED:  85/01/04  CC  *) 

(*  VERSION:  1.0  REVISED:  CC  *) 

(*  *) 

(*  ROUTINE  NAME:  FTCHADB  *) 

(*  *) 

(*  FUNCTION:  TO  READ  THE  ATTRIBUTE  DATA  BLOCK  AND  GIVE  THE  *) 

(*  ACTUAL  VALUE  IN  THE  DATA  FIELD.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  PRTENT  *) 

(*  MAKDAT  *) 

(*  ATRDAT  '  *) 

(*  GETIND  *) 

(*  PRDATA  *) 

(*  CALLS:  *) 

(*  FTCHCHR  *) 

(*  FTCHINT  *) 

(*  FTCHLOG  *) 

(*  FTCHREL  *) 

(*  FTCHSCL  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  INPUT  :  *) 

(*  PASABD  -  THE  ARRAY  OF  ADB  INFO.  IT  IS  SET  EQUAL  TO  *) 

(*  EDBCOM  IN  THE  CALLING  ROUTINE.  *) 

(*  *) 

(*  FTCHI  -  A  RECORD  WITH  INFORMATION  THAT  FCTHADB  NEEDS.  *) 

(*  SUCH  AS  LENGTH, TYPE, DISP, MIN, MAX.  *) 

(*  OUTPUT  :  *) 

(*  FTCHER  -  A  RECORD  WITH  INFORMATION  FROM  FTCHADB,  SUCH  AS  *) 

(*  WHETHER  THE  DATA  FIELD  IS  AN  INTEGER, REAL, CHAR,  *) 

(*  LOGICAL, SCALAR, SET, POINTER, SUBENTITY, STRUCTURE.  *) 

(*  *) 

(*  CRC  -  THE  RETURN  CODE  THAT  INDICATES  THE  CONDITION  *) 

(*  OF  THE  ROUTINE.  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  THIS  PROGRAM  USES  AMPXMOVE  WHICH  IS  A  SUB-SUBROUTINE  *) 

(*  IT  READS  THE  BYTES  OF  THE  ATTRIBUTE  DATA  BLOCK.  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  NO  RETURN  CODE  IS  SET  *) 

(*  *) 
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AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  85/01/04 

VERSION:  1  REVISED: 

ROUTINE  NAME  :  FTCHCHR 

FUNCTION:  OBTAIN  A  CHARACTER  STRING  FROM  THE  ADB 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLED  BY: 

FTCHADB 

CALLS: 

NONE 

DESCRIPTION  OF  ARGUMENTS: 

VAROUT  0  THE  STRING  MADE  BY  THE  ROUTINE 

PAS ADB  I  THE  ADB  TO  GET  THE  STRING  FROM 

DDISP  I  DISPLACEMENT  INTO  ADB  WHERE  STRING  STARTS 

LENG  I  THE  LENGTH  OF  THE  STRING 

PROCESSING  DESCRIPTION: 

MOVE  A  NUMBER  OF  BYTES  FROM  THE  ADB  TO  A  TEMPORARY  ARRAY. 
CREATE  A  STRING  FROM  THIS  ARRAY. 

CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*] 

*] 

*] 

*] 

*] 

*) 

*] 

j 

i 

i 

*1 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 


*) 

AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  85/01/11  CC  *) 

VERSION:  1  REVISED:  CC  *) 

*) 

ROUTINE  NAME  :  FTCHHAF  *) 

*) 

FUNCTION:  *) 

OBTAIN  A  TWO-BYTE  INTEGER  FROM  THE  ADB  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLED  BY:  *) 

FTCHINT  *) 

CALLS:  *) 

NONE  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

VAROUT  0  HOLDS  THE  INTEGER  *) 

PASADB  I  AREA  TO  GET  THE  INTEGER  FROM  (ADB)  *) 

DDISP  I  DISPLACEMENT  INTO  THE  ADB  *) 

LENG  I  LENGTH  OF  THE  INTEGER  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

PUT  TWO  BYTES  OF  THE  ADB  INTO  THE  LAST  TWO  BYTE  OF  A  *) 

"NORMAL"  (FOUR-BYTE)  INTEGER.  *) 

*) 

CHANGE  CONTROL:  *) 

*) 

.  . *) 
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(*  *) 
(*  AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  85/01/04  *) 

(*  VERSION:  1  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  FTCHINT  *) 

(*  *) 

(*  FUNCTION:  OBTAIN  AN  INTEGER  FROM  THE  ADB  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  .  *) 
(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  FTCHADB  *) 

(*  CALLS:  *) 

(*  FTCHSCL  *) 

(*  FTCHHAF  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  VAROUT  0  THE  INTEGER  FROM  THE  ADB  *) 

(*  PASADB  I  AREA  TO  GET  THE  INTEGER  FROM  *) 

(*  DDISP  I  DISPLACEMENT  INTO  ADB  *) 

(*  LENG  I  LENGTH  OF  INTEGER  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  IF  A  1-BYTE  INTEGER  CALL  FTCHSCL.  IF  2-BYTE  CALL  FTCHHAF  *) 

(*  ELSE  MOVE  BYTES  FROM  ADB  TO  TEMPORARY  ARRAY.  *) 

(*  EQUIVALENCE  TO  INTEGER.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 

(*— - . *) 
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. *) 

*) 

AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  85/01/04  *) 

VERSION:  1  REVISED:  *) 

*) 

ROUTINE  NAME  :  FTCHLOG  *) 

*) 

FUNCTION:  *) 

OBTAIN  A  LOGICAL  FROM  THE  ADB  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLED  BY:  *) 

FTCHADB  *) 

CALLS:  *) 

NONE  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

VAROUT  0  VARIABLE  TO  BE  RETURNED  *) 

PASADB  I  AREA  TO  GET  LOGICAL  FROM  *) 

DDISP  I  DISPLACEMENT  INTO  ADB  *) 

LENG  I  LENGTH  OF  VARIABLE  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

PUT  BYTES  FROM  ADB  INTO  TEMPORARY  ARRAY.  EQUIVALENCE  TO  *) 

A  LOGICAL  (BOOLEAN).  *) 


CHANGE  CONTROL: 


* 

* 
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(*  ,  *) 
(*  AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  85/01/04  *) 

(*  VERSION:  1  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  FTCHREL  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  OBTAIN  AN  8-BYTE  REAL  NUMBER  FROM  THE  ADB  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  '  *) 
(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  FTCHADB  *) 

(*  CALLS:  *) 

(*  NONE  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  VAROUT  0  THE  VARIABLE  TO  BE  OUTPUT  *) 

(*  PAS ADB  I  THE  ADB  TO  GET  THE  VARIABLE  FROM  *) 

(*  DDISP  I  DISPLACEMENT  INTO  THE  ADB  *) 

(*  LENG  I  THE  LENGTH  OF  THE  VARIABLE  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  PUT  BYTES  FROM  ADB  INTO  TEMPORARY  ARRAY.  EQUIVALENCE  TO  *) 

(*  A  REAL.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 

(* . *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  85/12/14  CC 

VERSION:  1  REVISED:  CC 

ROUTINE  NAME  :  FTCHSCL 

FUNCTION: 

OBTAIN  A  ONE-BYTE  INTEGER  FROM  THE  ADB. 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLED  BY: 

FTCHADB 

FTCHINT 

CALLS: 

NONE 

DESCRIPTION  OF  ARGUMENTS: 

VAROUT  0  VARIABLE  TO  HOLD  THE  SCALAR 

PAS ADB  I  AREA  TO  GET  THE  INTEGER  FROM  (ADB) 

DDISP  I  DISPLACEMENT  INTO  THE  ADB 

LENG  I  LENGTH  OF  THE  INTEGER 

PROCESSING  DESCRIPTION: 

MOVE  ONE  BYTE  OF  ADB  INTO  ARRAY  OVERLAYED  BY  INTEGER. 
CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*» 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


PS  560130000A 
1  January  1987 


AUTHOR: 

VERSION: 


A.  M.  WHELAN 
1 


ORG  ID  CREATED:  86/05/12 
REVISED: 


ROUTINE  NAME  :  GETCOMM 


EFFILE 

EFREC 

POS 

ENDFIL 

RC 


THE  EXCHANGE  FORMAT  FILE 

THE  CURRENT  RECORD 

THE  CURRENT  POSITION  IN  THE  RECORD 

END  OF  EXCHANGE  FILE  FLAG 

RETURN  CODE 

0  :  OK 

-1  :  WRITE  TO  MESSAGE  FILE  FAILED 

1  :  UNABLE  TO  READ  EXCHANGE  FORMAT  RECORD 

2  :  END  OF  FILE  BEFORE  LOGICAL  END  OF  EXCHANGE 

FORMAT 


PROCESSING  DESCRIPTION: 
CHANGE  CONTROL: 


a 


FUNCTION  :  TO  EXTRACT  A  COMMENT  AND  WRITE  IT  TO  THE  MESSAGE  FILE 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLS: 

PERROR 

READEF 

WRITE-TO-MESSAGE-FILE 
CALLED  BY: 

GETTOKEN 

DESCRIPTION  OF  ARGUMENTS: 
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(*  AUTHOR:  A.  M.  WHELAN 

(*  VERSION:  1 
* 

(*  ROUTINE  NAME  :  GETDDPOS 
* 


ORG  ID  CREATED:  86/05/15 
REVISED: 


(*  FUNCTION 
* 


TO  GET  THE  POSITION  IN  THE  CURRENT  WFDD  WHERE 
THE  CURRENT  EFDD-POS  IS  EQUAL  TO  THE  CSORDR 


ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *} 

*) 

EXECUTION  PROCEDURE:  *) 

CALLS:  *) 

NONE  *) 

CALLED  BY:  *) 

FILL-VALUE-IN-ENTITY  *) 

FILL-VALUE-IN-CONSTITUENT-LIST  *) 

FILL-VALUE-IN-SUBENTITY  *) 

PROCESS-DATA  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

LEVEL_REC  I/O  RECORD  OF  LEVEL  INFORMATION  *) 

CURRJ.EVEL  I/O  CURRENT  LEVEL  WITHIN  ARRAYS  *) 

WFDD  I/O  THE  ARRAY  OF  DATA  DICTIONARIES  *) 

WFDD.POS  0  THE  POSITION  IN  THE  WFDD  *) 

RC  0  RETURN  CODE  *) 

0  :  OK  *) 

1  :  POSITION  NOT  FOUND  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

COMMENTS:  *) 

THIS  ROUTINE  WILL  MAINTAIN  UP  TO  5  'LAYERS'  OF  STORAGE  SPACE  *) 

FOR  ATTRIBUTE  DATA  BLOCKS,  CONSTITUENT  LISTS,  AND  DATA  DICTION-  *) 

ARIES.  IF  THAT  LIMIT  IS  EXCEEDED,  THEN  A  MESSAGE  WILL  BE  PRINTED  *) 

OUT,  AND  THE  PROGRAM  WILL  GO  ON  TO  THE  NEXT  ENTITY,  LEAVING  THIS  *) 

ONE  NOT  TRANSLATED.  TO  FIX  THIS,  MORE  SPACE  WILL  HAVE  TO  BE  *) 

ALLOCATED.  *) 


CHANGE  CONTROL: 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

AUTHOR:  L.  A.  DAVIS  W315  3G  CREATED:  84/12/12  *) 

VERSION:  1.0  REVISED:  *) 

*) 

ROUTINE  NAME  :  GETHI  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLED  BY:  *) 

FILLTOP  '  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

KIND  I  THE  KIND  TO  FIND  HIGH  INSTANCE  OF  *) 

FREEID  0  THE  HIGHEST  INSTANCE  *) 

IRC  0  THE  RETURN  CODE  *) 

0  :  OK  *) 

2  :  A  MAS  ROUTINE  FAILED  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

MAKE  A  LIST  OF  ALL  KEYS  OF  THIS  KIND.  RUN  THROUGH  LIST,  *) 

SAVING  HIGHEST  INSTANCE.  *) 

*) 

CHANGE  CONTROL:  *) 

*) 

. *) 
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(* .  .  . 

(* 

(*  AUTHOR:  A.  M.  WHELAN  ORG_ID  CREATED:  85/12/04 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  GETIND 
(* 

(*  FUNCTION  :  GET  IDENT  OF  ENTITY 
(* 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  FTCHADB 

(*  CALLED  BY: 

(*  ATRDAT 

(* 

(*  DESCRIPTION 
(*  PAS AD B 

(*  INDEX 

(*  RC 

(* 

(* 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  GETS  THE  IDENT  OF  THE  ENTITY 

(* 

(*  CHANGE  CONTROL: 

(* 

(* . 


OF  ARGUMENTS: 

I  THE  ATTRIBUTE  DATA  BLOCK  OF  THE  ENTITY 
0  THE  IDENT  OF  THE  ENTITY 
0  RETURN  CODE 
0  :  OK 

>0  :  FAILURE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


B-43 


PS  560130000A 
1  January  1987 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*• 


AUTHOR:  A.  M.  WHELAN  K315  2G  CREATED:  86/05/15 

VERSION:  1  REVISED: 

ROUTINE  NAME:  GETKND 


FUNCTION  : 

GET  THE  KIND  CORRESPONDING  TO  THE  STRING  NAME 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLS: 

NONE 

CALLED  BY: 

PROCESS -TOKEN 

DESCRIPTION  OF  ARGUMENTS: 

STR.NAME  I  THE  STRING  NAME  CORRESPONDING  TO  THE  KIND 
KNDTBL  I/O  TABLE  OF  KINDS  AND  CORRESPONDING  NAMES 
NUMKND  I/O  NUMBER  OF  ENTRIES  IN  THE  KNDTBL 
KIND  0  THE  KIND  VALUE 

RC  0  RETURN  CODE 

0  :  OK 

2  :  KIND  VALUE  NOT  VALID 


PROCESSING  DESCRIPTION: 

SEARCH  KNDTBL  FOR  KIND  AND  ASSOCIATED  ENTITY  NAME. 
CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

AUTHOR:  PHIL  DORR  ORG_ID  CREATED:  07/02/86  *} 

VERSION:  1  REVISED:  *) 

*) 

ROUTINE  NAME  :  GETMTOK  *) 

*) 

FUNCTION  :  TO  RETURN  THE  NEXT  MEANINGFUL  TOKEN  OR  A  NULL  *) 

STRING  IF  THERE  IS  A  DEFAULTED  VALUE.  *) 

*) 

ORIGINALLY  THIS  FUNCTION  WAS  PERFORMED  BY  GETTOKEN.  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLS:  *) 

GETTOKEN  '  *) 

CALLED  BY:  *) 

POST  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

EFFILE  I/O  THE  EXCHANGE  FORMAT  FILE  *) 

EFREC  I/O  THE  CURRENT  EXCHANGE  FORMAT  RECORD  *) 

POS  I/O  THE  CURRENT  POSITION  IN  THE  RECORD  *) 

TOKEN  0  THE  OUTPUT  TOKEN  OR  NULL  FOR  DEFAULTED  FIELDS  *) 

TOKENO  I/O  THE  LAST  TOKEN  (CALLING  PROGRAM  SHOULD  NOT  ALTER)  *) 

SNDAGN  I/O  SEND  LAST  TOKEN  AFTER  NULL  FIELD  IS  PROCESSED  *) 

EOF  0  END  OF  EXCHANGE  FILE  FLAG  *) 

RC  0  RETURN  CODE  *) 

0  :  OK  *) 

-1  :  WARNING  :  NO  SEMI-COLON  AFTER  ENDSEC  *) 

KEYWORD  *) 

1  :  ERROR  :  END  OF  FILE  BEFORE  LOGICAL  END  OF  *) 

EXCHANGE  FORMAT  *) 

2  :  ERROR  :  BAD  TOKEN  *) 

***  NOTE  ***  *) 

THESE  RETURNS  CODES  ARE  GENERATED  IN  GlTTOKEN  AND  PASSED  *) 

TO  GET-MEANINGFUL-TOKEN  (GETMTOK)  AND  THEN  PASSED  UNALTERD  *) 

TO  POST.  GETMTOK  DOES  NOT  DETECT  OR  REPORT  ANY  OTHER  *) 

ERRORS.  *) 

***  NOTE  ***  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

THIS  PROCEDURE  WILL  CALL  GETTOKEN  EITHER  ONCE  OR  TWICE  TO  *) 

GET  THE  NEXT  MEANINGFUL  TOKEN  AND  DETECTING  NULL  FIELDS.  *) 

A  NULL  STRING  IS  RETURNED  IF  A  NULL  FIELD  IS  DETECTED  TO  *) 

INDICATE  THAT  A  VALUE  HAS  BEEN  DEFAULTED.  ALL  TOKENS,  *) 

INCLUDING  DELIMITERS  ARE  PASSED  UP  FROM  GETTOKEN.  *) 

.  . *) 
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(*  AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  84/12/19  *) 

(*  VERSION: 1.0  REVISED:  *) 

(*  *) 

(*  ROUTINE  :  GETNEW  *) 

(*  FROM  JOHN  PURSES  PGM  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  READS  THE  DATA  DICTIONARY  OF  A  SPECIFIED  PDD  ENTITY  FROM  *) 

(*  THE  DATA  SET  "CADS. GMAP.DEFN0801 .DATA"  AND  INSERTS  THE  *) 

(*  DATA  INTO  AN  AREA  REQUESTED  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  TRMPRT  *) 

(*  MAKDAT  *) 

(*  ATRDAT  *) 

(*  POST  *) 

(*  PRTOKEN  *) 

(*  FILLCNST  *) 

(*  FILLSUB  *) 

(*  CALLS:  *) 

(*  INITNEW  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  KIND  I  THE  KIND  NUMBER  OF  THE  ENTITY  DEFINITION  *) 

(*  TO  BE  READ  *) 

(*  DATDIC  0  THE  ARRAY  FILLED  WITH  INFO  *) 

(*  RC  0  THE  RETURN  CODE  *) 

(*  0  :  OK  *) 

(*  >0  :  FAILURE  *) 

(*  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(•  THIS  PROGRAM  OPENS  'CAD5.GMAP.DEFN0801 .DATA'  AND  READS  THE  *) 

(*  DATA  FROM  IT  FOR  THE  KIND.  EACH  MEMBER  IN  THE  INPDD  STREAM  *) 

(*  LOOKS  LIKE:  *) 

(*  *) 

(*  FIRST  RECORD:  *) 

(*  ABBBBBBBBBBBBBBBB,CCCCC,DD,E  *) 

(*  *) 

(*  A:  CONTINUATION  FLAG  FIELD  (NOT  USED  ON  FIRST  RECORD)  *) 

(*  B:  ENTITY  NAME  (16  CHARACTERS)  *) 

(*  C:  KIND  NUMBER  *) 

(*  D:  NUMBER  OF  ATTRIBUTES  *) 

(* .  . *) 
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(*  AUTHOR:  A.  M.  WHELAN  ORG  ID  CREATED:  86/05/12  *) 

(*  VERSION:  1  '  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  GETQUOT  *) 

(*  *) 

(*  FUNCTION  :  TO  EXTRACT  A  CHARACTER  STRING  FROM  THE  EXCHANGE  FILE  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 


(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  EFFI LE  I  THE  EXCHANGE  FORMAT  FILE  *) 

(*  EFREC  I/O  THE  CURRENT  RECORD  *) 

(*  POS  I/O  THE  CURRENT  POSITION  IN  THE  RECORD  *) 

(*  ENDFIL  0  END  OF  EXCHANGE  FILE  FLAG  *) 

(*  TOKEN  0  THE  OUTPUT  CHARACTER  STRING  *) 

(*  RC  0  RETURN  CODE  *) 

(*  0  :  OK  *) 

(*  1  :  UNABLE  TO  READ  EXCHANGE  FORMAT  RECORD  *) 

(*  2  :  END  OF  FILE  BEFORE  LOGICAL  END  OF  EXCHANGE  *) 

(*  FORMAT  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 


(*  EXECUTION  PROCEDURE: 
(*  CALLS: 

(*  READEF 

(*  PERROR 

(*  CALLED  BY: 

(*  GETTOKEN 
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(* . 

(* 

(*  AUTHOR:  A.  M.  WHELAN  ORG.ID  CREATED:  86/05/15 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  GETSCRIN 
(* 

(*  FUNCTION  :  TO  GET  THE  POSITION  IN  THE  WFDD  WHERE  WEHERE 
(*  IS  EQUAL  TO  THE  CSORDR 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  NONE 

(*  CALLED  BY: 

(*  ATRDAT 

(*  NILCON 

(*  DOTOP 

(* 

(*  DESCRIPTION  OF 
(*  WFDD 

(*  WEHERE 

(*  WFDD.POS 

(*  RC 

(* 

(* 

(* 

(*  PROCESSING  DESCRIPTION: 

(* 

(*  CHANGE  CONTROL: 

(* 

(* . 


ARGUMENTS: 

I/O  THE  WORKING  FORM  DATA  DICTIONARY 
I/O  THE  EFDD  POS 
0  THE  POSITION  IN  THE  WFDD 
0  RETURN  CODE 
0  :  OK 

1  :  POSITION  NOT  FOUND 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* . 

(* 

(*  AUTHOR:  PHIL  DORR  ORG_ID  CREATED:  5/29/86 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  GETSEMI 
(* 

(*  FUNCTION  :  SET  THE  POSITION  TO  AFTER  THE  NEXT  SEMI-COLON  - 
(*  THE  BEGINNING  OF  THE  NEXT  ENTITY. 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  READEF 

(*  PERROR 

(*  CALLED  BY: 

(*  POST 

(* 


(* 

DESCRIPTION 

OF 

ARGUMENTS: 

(* 

EFFILE 

I/O 

THE  EXCHANGE  FORMAT  FILE 

(* 

EFREC 

I/O 

THE  CURRENT  EXCHANGE  FORMAT 

RECORD 

(* 

POS 

I/O 

THE  CURRENT  POSITION  IN  THE 

RECORD 

(* 

ENDFIL 

I/O 

A  FLAG  INDICATING  THE  END  OF 

FILE 

(* 

RC 

0 

RETURN  CODE 

(* 

0  :  OK 

(* 

>0  :  FAILURE 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  THIS  PROCEDURE  WILL  SET  THE  VARIBLE  POS  EQUAL  TO  THE 

(*  POSITION  AFTER  THE  NEXT  SEMICOLON  IN  THE  FILE, 

(*  READING  NEW  RECORDS  IF  IT  HAS  TO. 

(* 

(*  CHANGE  CONTROL: 

(* 

(* .  . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


B-49 


(* 

(* 
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(* 

(* 

(* 

(* 

(* 

(*- 
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(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR:  A.  M.  WHELAN 
VERSION:  1 

ROUTINE  NAME  :  GETTOKEN 


ORG_ID  CREATED:  86/05/12 
REVISED: 


FUNCTION  :  TO  EXTRACT  A  TOKEN  FROM  THE  EXCHANGE  FILE 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 


ERROR  :  END  OF  FILE  BEFORE  LOGICAL  END  OF 
EXCHANGE  FORMAT 
ERROR  :  BAD  TOKEN 


PROCESSING  DESCRIPTION: 
CHANGE  CONTROL: 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


(* 

(* 

EXECUTION  PROCEDURE: 

*) 

*) 

(* 

CALLS: 

*) 

(* 

PERROR 

*) 

(* 

READEF 

*) 

(* 

GET-COMMENT 

*) 

(* 

GET-QUOTE 

*) 

(* 

CALLED  BY: 

*) 

(* 

GETMTOK  (GET  MEANINGFUL  TOKEN) 

*) 

(* 

(* 

DESCRIPTION  OF 

ARGUMENTS: 

*) 

*) 

(* 

EFFILE  I/O 

THE  EXCHANGE  FORMAT  FILE 

*) 

(* 

EFREC  I/O 

THE  CURRENT  EXCHANGE  FORMAT  RECORD 

*) 

(* 

POS  I/O 

THE  CURRENT  POSITION  IN  THE  RECORD 

*) 

(* 

TOKEN  0 

THE  OUTPUT  TOKEN 

*) 

(* 

EOF  0 

END  OF  EXCHANGE  FILE  FLAG 

*) 

(* 

RC  0 

RETURN  CODE 

*) 

(* 

0  :  OK 

*) 

(* 

-1  :  WARNING  :  NO  SEMI-COLON  AFTER  ENDSEC 

*) 

(* 

KEYWORD 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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(*  *) 

(*  AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  84/12/20  CC  *) 

(*  VERSION:  1.0  REVISED:  85/09/17  CC  *) 

(*  *) 

(*  ROUTINE  NAME:  GETUNI  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  GETS  STARTING  LINE  IN  DATA  DICTIONARY  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  '  *) 
(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  ATRDAT  *) 

(*  CALLS:  *) 

(*  NONE  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  EDBCOM  I/O  WORKING  FORM  DATAD I CT IONARY  FOR  KIND  *) 

(*  UNIDEX  0  STARTING  LINE  ID  DD  *) 

(*  WEDONE  0  FLAG  INDICATING  IF  DONE  WITH  ENTITY  OR  NOT  *) 

(*  WEHERE  0  WHERE  WE  ARE  IN  THE  EXCHANGE  FORMAT  *) 

(*  LEVEL  0  WHAT  LEVEL  OF  STRUCTURES  WE  ARE  IN  *) 

(*  BNAME  0  STRUCTURE  NAMES  *) 

(*  INSTRC  0  FLAG  INDICATING  IF  IN  A  STRUCTURE  *) 

(*  RC  0  RETURN  CODE  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  USING  THE  DATA  DICTIONARY,  FIND  THE  STARTING  LINE  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*•  *) 

(* . - . *) 
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(*  AUTHOR:  A.  M.  WHELAN  K315  2G  CREATED:  85/12/30 

(*  VERSION:  1  (  JAN.  DEMO  )  REVISED: 

(* 

(*  ROUTINE  NAME  :  GETWKF 
(* 

(*  FUNCTION  :  GET  WORKING  FORM  ENTITY  INFORMATION 

(*  GET  THE  ATTRIBUTES  AND  CONSTITUENTS  OF  THE 

(*  WORKING  FORM  ENTITY  TO  BE  MAPPED. 

(*  RETURN  THE  KIND  VALUE. 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  THIS  ROUTINE  IS  CALLED  BY  PRE  TO  GET  THE  WORKING  FORM 

(*  INFORMATION.  IT  CALLS  MAEGTK  TO  GET  THE  ADB  AND  MAEC  TO 

(*  GET  THE  CONSTITUENT  LIST  KEY. 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  WFKEY  I  THE  MAS  KEY  TO  THE  ENTITY 

(*  KIND  0  THE  KIND  OF  THE  ENTITY 

(*  ENTADB  0  THE  ATTRIBUTE  DATA  BLOCK  OF  THE  ENTITY 

(*  CONLIS  0  THE  CONSTITUENT  LIST  OF  THE  ENTITY 

(*  IRC  0  THE  RETURN  CODE 

(*  0  :  GOOD 

(*  2  :  MISSING  ADB  OR  CONSTITUENT  LIST 

(* 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  OBTAINS  THE  ADB  AND  THE  KEY  TO  THE 

(*  CONSTITUENT  LIST  GIVEN  THE  MAS  KEY. 

(* 

(*  CHANGE  CONTROL: 

(* 

(* .  . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 

(*  AUTHOR:  A.  M.  WHELAN  ORG  ID  CREATED:  86/05/14  *) 

(*  VERSION:  1  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  INITLR  *) 

(*  *) 

(*  FUNCTION  :  INITIALIZE  THE  LEVEL  RECORD  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  .  *) 
(*  EXECUTION  PROCEDURE:  *) 

(*  CALLS:  *) 

(*  NONE  *) 

(*  CALLED  BY:  *) 

(*  PROCESS-TOKEN  *) 

(*  F ILL-VALUE-IN-CONSTITUENT-LIST  *) 

(*  ILL-VALUE- IN-SUBENTITY  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  L£VEL_REC  I/O  RECORD  OF  LEVEL  INFORMATION  *) 

(*  CURR_LEVEL  I/O  CURRENT  LEVEL  WITHIN  ARRAYS  *) 

(*  RC  0  RETURN  CODE  *) 

(*  0  :  OK  *) 

(*  >0  :  FAILURE  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  CH'vNGE  CONTROL:  *) 

(*  *) 

(*— -  .  . *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 


AUTHOR:  A.  M.  WHELAN  ORG_ID  CREATED:  86/05/27 

VERSION:  1  REVISED: 

ROUTINE  NAME  :  INITMAP 

FUNCTION  :  INITIALIZE  THE  MAPPING  ARRAY 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLS: 

NONE 

CALLED  BY: 

POST 

DESCRIPTION  OF  ARGUMENTS: 

NONE 

PROCESSING  DESCRIPTION: 

CHANGE  CONTROL: 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* . 

(* 

(*  AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  85/01/07  CC 

(*  VERSION: 1.0  REVISED:  CC 

(* 

(*  ROUTINE  NAME  :  INITNEW 

(* 

(*  FUNCTION: 

(*  INITIALIZE  DATDIC  TO  BLANKS 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLED  BY: 

(*  GETNEW 

(*  CALLS: 

(*  NONE 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  DATDIC  I/O  AREA  TO  BE  INITIALIZED 

(* 

(*  COMMONS: 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  THIS  PROGRAM  FILLS  DATDIC  ARRAY  WITH  BLANKS 

(* 

(*  COMMENTS: 

(* 

(*  CHANGE  CONTROL: 

(* 

(* . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*■ 


AUTHOR:  A.  M.  WHELAN  W315  2G  CREATED:  86/03/17  *) 

VERSION:  1  REVISED:  *) 

*) 

ROUTINE  NAME  :  KNDLIS  *) 

*) 

FUNCTION  :  READ  A  LIST  OF  KINDS  AND  ASSOCIATED  ENTITY  *) 

NAMES.  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLED  BY:  *) 

PRE  *) 

POST  *) 

CALLS:  *) 

NONE  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

KNDTBL  0  TABLE  OF  KINDS  AND  THEIR  ASSOCIATED  NAMES  *) 

NUMKND  0  NUMBER  OF  ENTRIES  IN  THE  KNDTBL  *) 

IRC  0  RETURN  CODE  *) 

0  :  OK  *) 

>0  :  FAILURE  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

THIS  ROUTINE  READS  IN  THE  KIND  TABLE  FROM  THE  FILE  KNDFIL  *) 

*) 

CHANGE  CONTROL:  *) 

*) 


*) 
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(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

AUTHOR:  J.  M.  FRANKLIN  K315  2G  CREATED:  84/11/12  CC  *) 

VERSION:  1  (  DEC.  DEMO  )  REVISED:  85/01/09  CC  *) 

ROUTINE  NAME  :  MAERRM  *) 

*) 

FUNCTION  :  PRODUCE  AN  ERROR  MESSAGE  FROM  AN  INPUT  ERROR  NUMBER  *) 

*) 

ENVIRONMENT:  IBM  PASCAL  *) 

*) 

EXECUTION  PROCEDURE:  *) 

THIS  ROUTINE  IS  CALLED  BY  ANY  ROUTINE  THAT  CALLS  MAS  *) 

ROUTINES.  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

I ERR  I  MAS  ERROR  NUMBER  *) 

ERRM  0  ERROR  MESSAGE  *) 

IRC  0  RETURN  CODE  *) 

0  -  OK  *) 

*) 

COMMONS:  *) 

NONE  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

THE  MAS  ERROR  NUMBER  IS  USED  TO  GET  AN  ERROR  MESSAGE.  EACH  *) 
NUMBER  HAS  A  UNIQUE  MESSAGE.  *) 

*) 

COMMENTS:  *) 

NONE  *) 

*) 

CHANGE  CONTROL:  *) 

NONE  *) 

.  . *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 


AUTHOR:  LAUREL  A.  CASS IN  W315  2G  CREATED:  84/12/17  CC 

VERSION:  1.0  REVISED:  85/09/17  CC 

ROUTINE  NAME:  MAKDAT 

FUNCTION:  TO  MAKE  AN  EXCHANGE  FORMAT  ENTITY  WITH  THE  DATA 
SECTION  OF  THE  WORKING  FORM  DATA 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLED  BY: 

ENCODE 

CALLS: 

PERROR 

FTCHADB 

FILEPTR 

STRNAM 

GETNEW 

ATRDAT 

WRTREC 

DESCRIPTION  OF  ARGUMENTS: 

KIND  I  THE  KIND  TO  LOOK  FOR  IN  THE  ADB 

INDEX  I  THE  INSTANCE  OF  THE  KIND 

WFKEY  I  THE  KEY  OF  THE  INSTANCE 

KNDTBL  I  A  TABLE  OF  KINDS  AND  THEIR  NAMES 

NUMKND  I  THE  NUMBER  OF  ENTRIES  IN  KNDTBL 

CURRENT.NUMBER  I  THE  CURRENT  EXCHANGE  FORMAT  IDENTIFIER 

CONLIS  I  THE  INSTANCE  OF  THE  KIND 

EFFILE  I/O  THE  EXCHANGE  FORMAT  FILE 

MAPFIL  I/O  THE  MAPPING  FILE 

IRC  0  THE  RETURN  CODE 


PROCESSING  DESCRIPTION: 

CHANGE  CONTROL: 

09/17/85  -  L. A. DAVIS  USE  NEW  GLOBAL  EF  DATADICTIONARY 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* . 

(* 

(*  AUTHOR:  L.  A.  DAVIS  W315  2G  CREATED:  85/05/24 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME:  NILCON 

(* 

(*  FUNCTION:  NIL  CONSTITUENT  - 

(*  WRITE  THE  APPROPRIATE  PUNCTUATION  TO  THE  DATA  SECTION 

(*  RECORD  GIVEN  A  NIL  OR  DEFAULTED  ENTITY  POINTER. 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLED  BY: 

(*  ATRDAT 

(*  CALLS: 

(*  GETSCRIN 

(*  WRTREC 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  EDBCOM  I/O  WORKING  FORM  DATA  DICTIONARY 

(*  WEHERE  I/O  POINTER  TO  CURRENT  LINE  OF  DATADICTIONARY 

(*  LEVEL  I  NUMBER  OF  EMBEDDEDNESS  INSIDE  STRUCTURES 

(*  INSTRC  I  POINTER  INSIDE  STRUCTURE  FLAG 

(*  WEDONE  I/O  END  OF  ENTITY  FLAG 

(*  EFFILE  I/O  EXCHANGE  FORMAT  FILE 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  DETERMINE  WHETHER  THIS  IS  THE  LAST  CONSTITUENT  OF  THE 

(*  ENTITY.  IF  NOT,  WRITE  A  COMMA  TO  THE  DATA  RECORD. 

(*  UPDATE  THE  DATADICTIONARY  POINTER. 

(* 

(*  CHANGE  CONTROL: 

(* 

(* . . . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

AUTHOR:  LAUREL  A.  CASSIN  W315  2G  CREATED:  84/12/18  *) 

VERSION:  1.0  REVISED:  *) 

*) 

ROUTINE  NAME:  OPERAT  *) 

*) 

FUNCTION  :  TO  TAKE  CARE  OF  CONVERTING  THE  VALUE  BY  CALLING  *) 

THE  APPROPRIATE  ROUTINES  AND  LOOKING  AT  THE  *) 

RETURN  CODES.  *) 

*) 

ENVIRONMENT:  *) 

'  IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLED  BY:  *) 

ATRDAT  *) 

CALLS:  '  *) 

PERROR  *) 

WRTREC  *) 

TABRED  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

INPUT:  *) 

FTCHER  -  A  PIECE  OF  THE  ENTITY'S  ATTRIBUTE  DATA  BLOCK  *) 

OR  CONSTITUENT  LIST  THAT  NEEDS  PUNCTUATION  IN  *) 

A  RECORD  BY  VARIABLE  TYPE.  *) 

FTCHI  -  A  PIECE  OF  THE  ENTITY'S  ATTRIBUTE  DATA  BLOCK  *) 

OR  CONSTITUENT  LIST  THAT  NEEDS  PUNCTUATION  IN  *) 

A  RECORD  BY  VARIABLE  TYPE.  *) 

SFLAG  -  A  FLAG  FOR  A  STRUCTURE  THAT  SIGNALS  1 : START,  *) 

2:  END  STRUCTURE  AND  3: NONE.  *) 

FFLAG  -  A  FLAG  FOR  A  FIELD  THAT  SIGNALS  1:LAST,  *) 

2:  NEITHER  AND  3:0NLY.  *) 

AFLAGS  -  A  FLAG  FOR  AN  ARRAY  THAT  SIGNALS  1 : START,  *) 

2:  LAST  AND  3:NEITHER  AND  4:B0TH--F0R  BOTH  *) 

DIMENSIONS  *) 

EFFILE  -  THE  DATA  FILE  TO  FILL  WITH  RECORDS  OF  VARSTR.  *) 

*) 

OUTPUT:  *) 

RC  -  THE  RETURN  CODE  THAT  INDICATES  THE  CONDITION  *) 

OF  THE  ROUTINE.  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

EFFILE  IS  OPENED  FOR  THE  CHARACTER  DATA  TO  BE  PUT  INTO  IT.  *) 

*) 

CHANGE  CONTROL:  *) 
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r*. 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

★ 

★ 

★ 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

★ 

★ 

★ 

★ 

* 

*. 


AUTHOR:  A.  H.  WHELAN  W315  2G  CREATED:  86/05/21 

VERSION:  1.0  REVISED: 

ROUTINE  NAME:  PERROR 

FUNCTION:  COMMUNICATE  WITH  THE  USER 

WRITES  MESSAGES  OUT  TO  THE  USER  OR  TO  A  BATCH  FILE 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 
EXECUTION  PROCEDURE: 

THIS  ROUTINE  CAN  BE  CALLED  FROM  ANY  ROUTINE  AND  WILL 
RETURN  BACK  TO  THE  CALLER  ROUTINE 

DESCRIPTION  OF  ARGUMENTS: 

STR_MSG  I  MESSAGE  IDENTIFIER 

COMMONS: 

STA  I  INDICATES  WHETHER  THE  MESSAGE  TABLE  NEEDS 
TO  BE  INITIALIZED 

M_TAB  I  ARRAY  OF  MESSAGES 

PROCESSING  DESCRIPTION: 

THIS  ROUTINE  WILL  OPEN  AND  CLOSE  THE  FILE  -  MGTAB 
MGTAB  CONTAINS  THE  MESSAGE  TABLE  DATA  WHICH  NEEDS  TO 
BE  INITIALIZED  FIRST  TIME  IN  THE  PROGRAM 

CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* . - . 

(* 

(*  AUTHOR:  A.  M.  WHELAN  ORG_ID  CREATED:  86/05/09 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  POST 
(* 

(*  FUNCTION  :  TO  POSTPROCESS  A  PDES  EXCHANGE  FILE 
(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  PERROR 

(*  KNDLIS 

(*  GETSEMI 

(*  INITMAP 

(*  GET-MEANINGFUL-TOKEN  (GETMTOK) 

{*  PROCESS-HEADER-TOKEN 

(*  PRCCESS-DECLARATION-TOKEN 

(*  PROCESS -DATA-TOKEN 

(*  GETNEW 

(*  FILLTOP 

r 

(*  CALLED  BY: 

(*  STEP 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  RC  0  RETURN  CODE 

(*  0  :  OK 

(*  >0  :  FAILURE 

(* 

(*  PROCESSING  DESCRIPTION: 

(* 

(*  CHANGE  CONTROL: 

(* 

(* .  . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* .  . 

(* 

(*  AUTHOR:  A.  M.  WHELAN  ORG_ID  CREATED:  86/05/12 

(*  VERSION:  1  REVISED: 

(* 

(*  -  ROUTINE  NAME  :  PRDATA 
(* 

(*  FUNCTION: 

(*  PUT  DATA  INFORMATION  FROM  EXCHANGE  FILE  INTO  THE  WORKING  FORM 
(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  PERROR 

(*  PROCESS-TOKEN 

(*  FTCHADB 

(*  ADDCNST 

(*  GETDDPOS 

(*  STORE-MAPPING- INFORMATION 

(*  CALLED  BY: 

(*  POST 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 


(* 

TOKEN 

I 

THE  EXCHANGE  FORMAT  TOKEN 

(* 

MAPFIL 

I/O 

THE  MAPPING  FILE 

(* 

ENTADB 

I/O 

THE  ARRAY  OF  ENTITY  ADB'S 

(* 

CLIST 

I/O 

THE  ARRAY  OF  ENTITY  CONSTITUENT  LIST'S 

(* 

WFDD 

I/O 

THE  ARRAY  OF  DATA  DICTIONARIES 

(* 

CURR  LEVEL 

I/O 

CURRENT  LEVEL  WITHIN  ARRAYS 

(* 

FIRST  TOKEN 

I/O 

FLAG  INDICATING  BEGINNING  OF  ENTITY 

(* 

SECOND  TOKEN 

I/O 

FLAG  INDICATING  SECOND  TOKEN  IN  ENTITY 

(* 

LEVEL  REC 

I/O 

RECORD  OF  LEVEL  INFORMATION 

(* 

ENTITY  COMPLETE 

I/O 

FLAG  INDICATING  END  OF  ENTITY 

(* 

EFPTR 

I/O 

EXCHANGE  FORMAT  IDENTIFIER 

(* 

KNDTBL 

I/O 

TABLE  OF  KINDS  AND  THE  ASSOCIATED  NAMES 

(* 

NUMKND 

I/O 

NUMBER  OF  ENTRIES  IN  THE  KNDTBL 

(* 

or 

tw 

0 

RETURN  CODE 

(* 

0  :  OK 

(* 

>0  :  FAILURE 

(* 

(*  PROCESSING  DESCRIPTION: 
(* 

(*  CHANGE  CONTROL: 

(* 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  AUTHOR:  A.  M.  WHELAN  ORG_ID  CREATED:  86/05/12 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  PRDECL 
(* 

(*  FUNCTION: 

(*  TO  PROCESS  DECLARATION  INFORMATION  FROM  THE  EXCHANGE  FILE 
(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  PERRORSG 

(*  WRITEMSG 

(*  CALLED  BY: 

(*  POST 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  TOKEN  I  THE  EXCHANGE  FORMAT  TOKEN 

(*  RC  0  RETURN  CODE 

(*  0  :  OK 

(*  >0  :  FAILURE 

(* 

(*  PROCESSING  DESCRIPTION: 

(* 

(*  CHANGE  CONTROL: 

(* 

(* . . . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 
(*  AUTHOR:  A.  M.  WHELAN  ORG_ID  CREATED:  86/05/10  *) 

(*  VERSION:  1  (  JAN.  DEMO  )  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  PRE  *) 

(*  *) 

(*  FUNCTION  :  PREPROCESS  PDD  *) 

(*  INFORMATION  GIVEN  ABOUT  THE  PDD,  WORKING  FORM  *) 

(*  ENTITIES,  AND  THE  METADATA  RULES  ARE  USED  TO  CREATE  *) 

(*  THE  PDD.  IT  IS  THEN  PLACED  IN  THE  APPROPRIATE  *) 

(*  FILE.  *) 

(*  *) 

(*  ENVIRONMENT:  '  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  STEP  *) 

(*  CALLS:  *) 

(*  PERROR  .*  *) 

(*  KNDLIS  *) 

(*  WRTREC  *) 

(*  ENCODE  *) 

(*  GETWKF  *) 

(*  CRHEAD  *) 

(*  CRDECL  *) 

(*  CRRULE  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  0  :  OK  *) 

(*  >0  :  FAILURE  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  THE  HEADER,  DECLARATION,  AND  RULES  SECTIONS  ARE  CREATED.  *) 

(*  A  LIST  OF  ENTITIES  AND  THEIR  CORRESPONDING  ENTITY  NAMES  *) 

(*  IS  READ  IN  AND  THAT  LIST  IS  USED  TO  PLACE  THE  *) 

(*  ENTITIES  IN  EXCHANGE  FORMAT  RECORDS.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 

(* . *) 
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(* .  . 

(* 

(*  AUTHOR:  A.  M.  WHELAN  ORG_ID  CREATED:  86/05/12 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  PRHEAD 
(* 

(*  FUNCTION  :  TO  EXTRACT  HEADER  INFORMATION  FROM  THE  EXCHANGE  FILE 
(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  PERROR 

(*  WRITEMSG 

(*  CALLED  BY: 

(*  POST 

(* 


(* 

DESCRIPTION 

OF 

ARGUMENTS: 

(* 

TOKEN 

I 

THE  EXCHANGE  FORMAT  TOKEN 

(* 

RC 

0 

RETURN  CODE 

(* 

0  :  OK 

(* 

>0  :  FAILURE 

(* 

(*  PROCESSING  DESCRIPTION: 
(* 

(*  CHANGE  CONTROL: 

(* 

(*- . . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. — - . *) 

*) 

AUTHOR:  J.M.  PURSES  W315  2G  CREATED:  6/24/85  *) 

VERSION:  1.0  REVISED:  *) 

*) 

ROUTINE  NAME:  PRTENT  *) 

*) 

FUNCTION:  *) 

PRINTS  THE  DEFINITIONS  OF  ALL  THE  ENTITIES  IN  THE  INPUT  *) 

LIST.  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

THIS  ROUTINE  WILL  BE  CALLED  BY  TRMPRT  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

OUTFIL  0  FILE  TO  WHICH  THE  ENTITIES  ARE  TO  BE  WRITTEN  *) 

KIND  I  THE  KIND  VALUE  OF  THE  ENTITY  TYPE  TO  BE  WRITTEN  *) 

LSTKY  I  THE  LIST  OF  ALL  ENTITIES  OF  A  CERTAIN  KIND  *) 

NUMATT2  I  NUMBER  OF  ATTRIBUTES  FOR  THE  ENTITY  *) 

EDBCOM  I  WORKING  FORM  DATA  DICTIONARY  FOR  THIS  ENTITY  *) 

RETCOD  0  RETURN  CODE  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

THIS  ROUTINE  NEEDS  NO  OPEN/CLOSE  FILES  *) 

*) 

CHANGE  CONTROL:  *) 

*) 

. *) 
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(*  AUTHOR:  A.  M.  WHELAN  ORG.ID  CREATED:  86/05/12 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  PRTOKEN 
(* 

(*  FUNCTION  :  PROCESSES  THE  INPUT  TOKEN.  IF  IT  IS  A  VALUE,  THEN 
(*  IT  IS  CONVERTED  TO  THE  CORRECT  TYPE  AND  PUT  IN  THE 

(*  WORKING  FORM 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  PERROR 

(*  FILL-VALUE-IN-ENTITY 

(*  FILL-DATA-DICTIONARY 

(*  GET-ENTITY-KIND 

(*  FILL-TOP-OF-ENTTY 

(*  INITIALIZE- LEVEL -RECORD 

(*  CALLED  BY: 

(*  PROCESS-DATA-TOKEN 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  TOKEN  I  THE  TOKEN  TO  BE  PROCESSED 

(*  ENTADB  I/O  THE  ARRAY  OF  ENTITY  ADB'S 

(*  CLIST  I/O  THE  ARRAY  OF  ENTITY  CONSTITUENT  LIST'S 

(*  WFDD  I/O  THE  ARRAY  OF  DATA  DICTIONARIES 

(*  CURR_LEVEL  I/O  CURRENT  LEVEL  WITHIN  ARRAYS 

(*  FIRST.TOKEN  I/O  FLAG  INDICATING  BEGINNING  OF  ENTITY 

(*  SECOND_TOKEN  I/O  FLAG  INDICATING  SECOND  TOKEN  IN  ENTITY 

(*  LEVEL_REC  I/O  RECORD  OF  LEVEL  INFORMATION 

(*  ENTITY  COMPLETE  I/O  FLAG  INDICATING  THE  END  OF  THE  ENTITY 

(*  EFPTR  I/O  EXCHANGE  FORMAT  POINTER 

(*  KNDTBL  I/O  THE  LIST  OF  KINDS  AND  THE  ASSOCIATED  NAMES 

(*  NUMKND  I/O  NUMBER  OF  ENTRIES  IN  THE  KNDTBL 

(*  RC  0  RETURN  CODE 

(*  0  :  OK 

(*  >0  :  FAILURE 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  COMMENTS: 

(*  THIS  ROUTINE  WILL  MAINTAIN  UP  TO  5  'LAYERS'  OF  STORAGE 
{*  SPACE  FOR  ATTRIBUTE  DATA  BLOCKS,  CONSTITUENT  LISTS,  AND  DATA 
(*  DICTIONARIES.  IF  THAT  LIMIT  IS  EXCEEDED,  THEN  A  MESSAGE  WILL 

(*  BE  PRINTED  OUT,  AND  THE  PROGRAM  WILL  GO  ON  TO  THE  NEXT  ENTITY, 

(*  LEAVING  THIS  ONE  NOT  TRANSLATED.  TO  FIX  THIS,  MORE  SPACE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

-*) 


AUTHOR:  F.  E.  DISNEY 
VERSION:  1 


W315  2G  CREATED:  85/01/05 
REVISED: 


ROUTINE  NAME  :  PUNTAB 

FUNCTION  :  GENERATE  THE  DELIMITERS  FOR  FIELDS. 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE;  PROCEDURE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLED  BY: 

TABRED 

CALLS: 

NONE 

DESCRIPTION  OF  ARGUMENTS: 

SFLAG  I  STRUCTURE  FLAG  (1-START, 2-END, 3-NEITHER) 

FFLAG  I  FIELDS  FLAG  (1-LAST, 2-NOT  LAST,3-0NLY) 

AFLAGS  I  ARRAY  FLAGS  (1-FIRST, 2-LAST, 3-NEITHER, 4-B0TH, 

5-NOT  AN  ARRAY) 

PUNC1  0  DELIMITERS  THAT  GO  BEFORE  THE  FIELD 

PUNC2  0  DELIMITERS  THAT  GO  AFTER  THE  FIELD 

PRC  0  RETURN  CODE 

0  -  OK 

1  -  DELIMITERS  COULD  NOT  BE  PRODUCED 

DUE  TO  AN  INVALID  COMBINATION  OF  FLAGS 

COMMONS: 

NONE 

PROCESSING  DESCRIPTION: 

THIS  ROUTINE  IS  GIVEN  FLAGS  THAT  DEFINE  THE  CONTEXT  OF  A 
FIELD.  THE  PRECEDING  AND  FOLLOWING  DELIMITERS  ARE  PRODUCED 
FROM  THE  DIFFERENT  COMBINATIONS  OF  THE  FLAGS. 

COMMENTS: 

NONE 

CHANGE  CONTROL: 

NONE 
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(*  *) 

(*  AUTHOR:  A.  M.  WHELAN  W315  2G  CREATED:  85/05/12  *) 

(*  VERSION:  1  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  READEF  *) 

(*  *) 

(*  FUNCTION  :  READ  AN  EXCHANGE  FORMAT  RECORD  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

{*  -  *) 
(*  EXECUTION  PROCEDURE:  *) 

(*  CALLS:  *) 

(*  NONE  *) 

(*  CALLED  BY:  *) 

(*  GETTOKEN  *) 

(*  GET-COMMENT  *) 

(*  GET-QUOTE  *) 

(*  GETSEMI  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  EFFILE  I  THE  EXCHANGE  FORMAT  FILE  *) 

(*  EFREC  0  AN  EXCHANGE  FORMAT  RECORD  *) 

(*  ENDFIL  0  THE  END-OF-FILE  FLAG  *) 

(*  RC  0  THE  RETURN  CODE  *) 

(*  0  GOOD  *) 

(*  >0  FAILURE  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  USES  EFFILE  FOR  THE  EXCHANGE  FORMAT  FILE  FROM  WHICH  TO  *) 

(*  OBTAIN  THE  RECORDS  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 

(* . - . *) 
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(* . 

(* 

(*  AUTHOR:  A.  M.  WHELAN  ORG_ID  CREATED:  86/05/27 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  RETMAP 
(* 

(*  FUNCTION  :  RETRIEVES  THE  ENTITY  KEY  USING  THE  EXCHANGE  FORMAT 
(*  POINTER  AS  AN  INDEX  INTO  A  STORAGE  ARRAY. 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  NONE 

(*  CALLED  BY: 

(*  FILL-VALUE-IN-CONSTITUENT 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  EFPTR  I  THE  EXCHANGE  FORMAT  POINTER 

(*  KEY  0  THE  ENTITY  KEY 

(*  RC  0  RETURN  CODE 

(*  0  :  OK 

(*  1  :  KEY  DOES  NOT  EXIST 

(* 

(*  PROCESSING  DESCRIPTION: 

(* 

(*  CHANGE  CONTROL: 

(* 

(* .  . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

AUTHOR:  L.  A.  DAVIS  K315  26  CREATED:  84/10/15  CC  *) 

VERSION:  1  REVISED:  86/06/06  CC  *) 

*) 

ROUTINE  NAME  :  STEP  *) 

*) 

FUNCTION  :  STEP  THROUGH  PROCESSORS  *) 

THE  SYSTEM  IS  INITIALIZED  AND  ONE  OF  THE  *) 

PROCESSORS  IS  CALLED.  ANY  CONVERSIONS  BETWEEN  *) 

NATIVE  AND  WORKING  FORM  NECESSARY  ARE 
ACCOMPLISHED.  *) 

NOTE  :  LOWER  LEVEL  ROUTINES  ARE  TO  PUT  OUT  THEIR  *) 

OWN  MESSAGES.  *  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE.  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLED  BY:  *) 

CONTROL  *) 

CALLS:  *) 

PRE  *) 

POST  *) 

FILEWF  *) 

ACSSWF  *) 

CONVRT  *) 

WFPRNT  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

USEREC  I  CONTAINS  INFO  ON  DRAWING,  TRANSFER  METHOD,  ETC  *) 

*) 

COMMONS:  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

THIS  ROUTINE  NEEDS  OPEN/CLOSE  NO  FILES.  *) 

*) 

COMMENTS:  *) 

*) 

CHANGE  CONTROL:  *) 

86/06/06  -  A. M. WHELAN-CHANGED  TO  CALL  PERROR  *) 

*) 

. *) 
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. *) 

*) 

AUTHOR:  LAUREL  A.  CASSIN  ORG_ID  CREATED:  85/02/06  CC  *) 

VERSION:  1.0  REVISED:  CC  *) 

*) 

ROUTINE  NAME:  STORADB  *) 

*) 

FUNCTION:  TO  PUT  A  VALUE  IN  THE  ATTRIBUTE  DATA  BLOCK  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLS:  *) 

STORINT  *) 

STORREL  *) 

STORCHR  *) 

STORLOG  *) 

STORSCL  *) 

CALLED  BY:  *) 

FILI.ADB  *) 

FILLTOP  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

INPUT  :  *) 

ENTABD  -  THE  ARRAY  OF  ADB  INFO.  *) 

*) 

STORREC-  A  RECORD  WITH  INFORMATION  THAT  STORADB  NEEDS.  *) 

SUCH  AS  LENGTH, TYPE, DISP.  *) 

OUTPUT  :  *) 

STORREC-  A  RECORD  WITH  INFORMATION  FROM  STORADB,  SUCH  AS  *) 

WHETHER  THE  DATA  FIELD  IS  AN  INTEGER, REAL, CHAR,  *) 

LOGICAL, SCALAR, SET, POINTER, SUBENTITY, STRUCTURE.  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

IT  READS  THE  BYTES  OF  THE  ATTRIBUTE  DATA  BLOCK.  *) 

*) 

CHANGE  CONTROL:  *) 

*) 

. *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR:  L.  A.  CASSIN  W315  2G  CREATED:  85/02/06 

VERSION:  1  REVISED: 

ROUTINE  NAME:  STORCHR 

FUNCTION:  TO  PUT  A  CHARACTER  STRING  INTO  THE  ADB 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLED  BY  STORADB 

DESCRIPTION  OF  ARGUMENTS: 

STORREC  I  THE  RECORD  WITH  THE  INFORMATION  ON  IT 

ENTADB  0  AREA  TO  PUT  THE  INTEGER  INTO 

PROCESSING  DESCRIPTION: 

MOVE  A  STRING  INTO  THE  ADB 

CHANGE  CONTROL: 

n .  a  ( 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR:  L.  A.  CASS IN  W315  2G  CREATED:  85/02/06 

VERSION:  1  REVISED: 

ROUTINE  NAME:  STORHAF 

FUNCTION:  TO  PUT  A  SCALAR  INTO  THE  ADB 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLED  BY  STORINT 

DESCRIPTION  OF  ARGUMENTS: 

STORREC  I  THE  RECORD  WITH  THE  INFORMATION  ON  IT 
ENTADB  0  AREA  TO  PUT  THE  INTEGER  INTO 

PROCESSING  DESCRIPTION: 

MOVE  A  SCALAR  INTO  THE  ADB 

CHANGE  CONTROL: 

n.a( 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* . —  - 

(* 

(*  AUTHOR:  L.  A.  CASSIN  W315  2G  CREATED:  85/02/06 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME:  STORINT 

(* 

(*  FUNCTION:  TO  PUT  AN  INTEGER  INTO  THE  ADB 
(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLED  BY: 

(*  STORADB 

(*  CALLS: 

(*  STORSCL 

(*  STORHAF 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  STORREC  I  THE  RECORD  WITH  THE  INFORMATION  ON  IT 

(*  ENTADB  0  AREA  TO  PUT  THE  INTEGER  INTO 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  IF  A  1-BYTE  INTEGER  CALL  STORSCL,  ELSE  MOVE  BYTES  FROM 

(*  ADB  TO  TEMPORARY  ARRAY.  EQUIVALENCE  TO  INTEGER. 

(* 

(*  CHANGE  CONTROL: 

(* 

(* . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 

(*  AUTHOR:  L.  A.  CASSIN  W315  2G  CREATED:  85/02/06  *) 

(*  VERSION:  1  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME:  STORLOG  *) 

(*  *) 

(*  FUNCTION:  TO  PUT  A  LOGICAL  INTO  THE  ADB  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  -  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY  STORADB  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  STORREC  I  THE  RECORD  WITH  THE  INFORMATION  ON  IT  *) 

(*  PAS ADB  0  AREA  TO  PUT  THE  INTEGER  INTO  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  MOVE  A  LOGICAL  INTO  THE  ADB  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  fi-a(  *) 

(* . - . *) 


B- 77 


PS  560130000A 
1  January  1987 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

V 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR:  A.  M.  WHELAN  ORG_ID  CREATED:  86/05/27 

VERSION:  1  REVISED: 

ROUTINE  NAME  :  STORMAP 

FUNCTION  :  STORES  THE  EXCHANGE  FORMAT  POINTER  AND  ASSOCIATED 
ENTITY  KEY  IN  AN  ARRAY.  WRITES  OUT  THE  POINTER, 
KIND,  AND  IDENT  TO  AN  OUTPUT  FILE. 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

EXECUTION  PROCEDURE: 

CALLS: 

NONE 

CALLED  BY: 

PRDATA 


DESCRIPTION  OF  ARGUMENTS: 

EFPTR  I  THE  EXCHANGE  FORMAT  POINTER 

KIND  I  THE  ENTITY  KIND 

IDENT  I  THE  ENTITY  IDENT 

KEY  I  THE  ENTITY  KEY 

MAPFIL  I/O  THE  MAPPING  OUTPUT  FILE 

RC  0  RETURN  CODE 

0  :  OK 

>0  :  FAILURE 


PROCESSING  DESCRIPTION: 


CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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*  _ *j 

* 

*  AUTHOR:  L.  A.  CASS IN  W315  2G  CREATED:  85/02/06  *) 

*  VERSION:  1  REVISED:  *) 

* 

*  ROUTINE  NAME:  STORREL  *) 

* 

*  FUNCTION:  PUT  AN  8-BYTE  REAL  NUMBER  INTO  THE  ADB  *) 

*  *  j 

*  ENVIRONMENT:  *) 

*  IBM  PASCAL  LANGUAGE  *) 

*  IBM  30XX,43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W  *) 

*  . 

*  EXECUTION  PROCEDURE:  *) 

*  CALLED  BY  STORADB  *) 

*  *) 

*  DESCRIPTION  OF  ARGUMENTS:  *) 

*  STORREC  I  RECORD  WITH  THE  INFORMATION  ON  IT  *) 

*  ENTADB  0  AREA  TO  PUT  THE  REAL  INTO  *) 

*  *) 

*  PROCESSING  DESCRIPTION:  *) 

*  PUT  BYTES  FROM  TEMPORARY  ARRAY  INTO  ADB.  EQUIVALENCE  TO  *) 

*  A  REAL.  *) 

*  *) 

*  CHANGE  CONTROL:  *) 

*  *) 

* . *) 
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r* 

i 

r* 

t 

r* 

i 

r* 

i 

{* 

[* 

[* 

i* 

{* 

[* 

{* 

[* 

[* 

[* 

[* 

[* 

[* 

[* 

[* 

[* 

{* 

[* 

r* 

L 

r* 

i 

r* 

i 

'* 

i 

f* 

i 

'* 

’* 

i 

'* 

v 

'* 

'* 

i 

'* 


. *) 

*) 

AUTHOR:  A.  M.  WHELAN  K315  2G  CREATED:  85/12/04  *) 

VERSION:  1  REVISED:  *) 

*) 

ROUTINE  NAME:  STRNAM  *) 

*) 

FUNCTION  :  *) 

GET  THE  STRING  NAME  CORRESPONDING  TO  THIS  KIND  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

CALLED  BY:  *) 

MAKDAT  *) 

CRHEAD  *) 

CALLS:  *) 

NONE  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

KIND  I  THE  KIND  VALUE  *) 

STR_NAME  0  THE  STRING  NAME  CORRESPONDING  TO  THE  KIND  *) 

IRC  0  RETURN  CODE  *) 

0  :  OK  *) 

2  :  KIND  VALUE  NOT  VALID  *) 

*) 

*) 

PROCESSING  DESCRIPTION:  *) 

SEARCH  KNDTBL  FOR  KIND  AND  ASSOCIATED  ENTITY  NAME.  *) 

*) 

CHANGE  CONTROL:  *) 

*) 

% 
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(*  *) 
(*  AUTHOR:  LAUREL  A  CASSIN  W315  2G  CREATED:  84/12/15  *) 

(*  VERSION:  1.0  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  TABRED  *) 

(*  *) 

(*  FUNCTION:  CONVERT  A  VALUE  TO  CHARACTER  AND  CONCATENATE  THE  *) 

(*  PUNCTUATION  ONTO  IT  FOR  THE  EXCHANGE  FORMAT  DATA  FILE  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  OPERAT  *) 

(*  CALLS:  *) 

(*  PUNTAB  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  CUTER  I  VALUE  TO  BE  CONVERTED,  IN  A  RECORD  BY  TYPE  *) 

(*  SFLAG  I  A  FLAG  FOR  A  STRUCTURE  THAT  SIGNALS  1: START,  *) 

(*  2: END  STRUCTURE  AND  3: NONE  *) 

(*  FFLAG  I  A  FLAG  FOR  A  FIELD  THAT  SIGNALS  1:LAST,  *) 

(*  2: NOT  LAST  AND  3: ONLY  *) 

(*  AFLAGS  I  A  FLAG  FOR  AN  ARRAY  THAT  SIGNALS  1: START,  *) 

(*  2: LAST,  3:NEITHER  AND  4:B0TH-F0R  BOTH  DIMENSIONS*) 

(*  VARSTR  0  CONVERTED  STRING  OF  VALUE  AND  PUNCTUATION  *) 

(*  LENG  0  LENGTH  OF  VARSTR  *) 

(*  RC  0  RETURN  CODE  0:GOOD  4: BAD  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  USES  A  TABLE  WITH  EVERY  POSSIBLE  PUNCTUATION  *) 

(*  NEEDED  FOR  THE  EXCHANGE  FORMAT  FILE  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 

(* . *) 
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(* . 

(* 

(*  AUTHOR:  J.M.  PURSES  W315  2G  CREATED:  6/24/85 

(*  VERSION:  1.0  REVISED: 

(* 

(*  ROUTINE  NAME:  TRMPRT 

(* 

(*  FUNCTION: 

(*  THIS  ROUTINE  DETERMINES  WEITHER  A  PRINT  "ALL  ENTITIES" 

(*  OR  A  PRINT  "BY  KIND  OF  ENTITY"  WILL  BE  RUN  ON  THE  WORKING 

(*  FORM  MODEL. 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLED  BY: 

(*  WFPRNT 

(*  CALLS: 

(*  GETNEW 

(*  PRTENT 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  TTYIN  I  TERMINAL  INPUT 

(*  TTYOUT  0  TERMINAL  OUTPUT 

(*  OUTFIL  0  FILE  OUTPUT 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  NEEDS  NO  OPEN/CLOSE  FILES 

(* 

(*  CHANGE  CONTROL: 

(* 

(* . .  . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* . 

(* 

(*  AUTHOR:  PHIL  DORR  ORG_ID  CREATED:  6/2/86 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  VALCON 
(* 

(*  FUNCTION  :  VALIDATE  THE  FIELD 
(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  CALLED  BY: 

(*  CONTOK 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  TOKEN  I  THE  INPUT  TOKEN 

(*  CONREC  I/O  THE  FIELD  INFORMATION  RECORD 

(*  VALID_FIELD  0  A  FLAG  INDICATING  THE  VALIDITY  OF  THE  FIELD 

(*  RC  0  RETURN  CODE 

(*  0  :  OK 

(*  >0  :  FAILURE 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  WILL  CHECK  THE  TOKEN  PASSED  FOR  VALIDITY  AS  THE  DATATYPE 
(*  INDICATED  IN  TOKEN_TYPE. 

(* 

(*  CHANGE  CONTROL: 

(* 

(* .  .  . 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 

(*  AUTHOR:  J.M.  PURSES  W315  2G  CREATED:  6/24/85  *) 

(*  VERSION:  1.0  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME:  WFPRNT  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  THIS  IS  THE  MAIN  ROUTINE  THAT  INITIATES  THE  PRINT  OF  A  *) 

(*  WORKING  FORM  MODEL.  IT  ALLOWS  FOR  EITHER  A  PRINT  BY  *) 

(*  ENTITY  KIND  OR  ALL  ENTITIES.  *) 

(*  *) 

(*  ENVIRONMENT:  -  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  CALLED  BY:  *) 

(*  STEP  *) 

(*  CALLS:  *) 

(*  TRMPRT  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  NEEDS  NO  OPEN/CLOSE  FILES  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  *) 
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(* . 

(* 

(*  AUTHOR:  PHIL  DORR  ORG_ID  CREATED:  5/30/86 

(*  VERSION:  1  REVISED: 

(* 

(*  ROUTINE  NAME  :  WRITEMSG 
(* 

(*  FUNCTION  :  WRITE  TO  THE  MESSAGE  FILE 
(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

(* 

(*  EXECUTION  PROCEDURE: 

(*  CALLS: 

(*  PERROR 

(*  CALLED  BY: 

(*  GET_COMMENT 

(*  PRHEAD 

(*  PRDECL 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  TOKEN  I  THE  INPUT  TOKEN 

(*  RC  0  RETURN  CODE 

(*  0  :  OK 

(*  >0  :  FAILURE 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  THIS  PROCEDURE  WILL  PRINT  THE  TOKEN  PASSED  TO  IT  ON  THE 

(*  FILE  OUTPUT. 

(* 

(*  CHANGE  CONTROL: 

(* 

(* .  .  .  . 


*) 

J 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 

(*  AUTHOR:  LAUREL  A.  CASSIN  W315  2G  CREATED:  84/12/15  *) 

(*  VERSION:  1.0  REVISED:  *) 

(*  *) 

(*  ROUTINE  NAME  :  WRTREC  *) 

(*  *) 

(*  FUNCTION:  WRITE  THE  STRING  TO  THE  RECORD  AND  THEN  TO  THE  FILE  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  -  *) 

(*  CALLS:  *) 

(*  NONE  *) 

(*  CALLED  BY:  *) 

(*  PRE  *) 

(*  MAKDAT  *) 

(*  DOTOP  *) 

(*  ATRDAT  *) 

(*  NILCON  *) 

(*  OPERAT  *) 

(*  CRHEAD  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  VARSTR  I  THE  STRING  *) 

(*  VARLEN  I  THE  LENGTH  OF  VARSTR  *) 

(*  EFFILE  I  THE  EXCHANGE  FORMAT  FILE  *) 

(*  WRC  0  THE  RETURN  CODE  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  FILLS  THE  RECORD(DATREC)  AND  THEN  *) 

(*  THE  FILE(EFFILE)  MAKING  SURE  TO  END  THE  LINE  WITH  *) 

(*  A  COMMA,  SEMICOLON,  OR  COLON  OR  SLASH.  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  LORI  A  DAVIS  CHANGE  CONCATENTATION  AND  END  OF  RECORD  *) 

(* . - . *) 
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APPENDIX  C 

TRANSLATOR  DATA  DICTIONARY 


This  appendix  provides  the  data  dictionary  for  the  PDDI  Translator.  The 
following  index  provides  a  brief  description  of  the  data  entries  function.  The 
entities  are  listed  in  alphabetic  order. 

EDBDEF  -  Contains  the  file  structure  for  accessing  the  Working  Form  data 
dictionary 

PRINT  -  Turns  output  print  off 
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(*  EDBDEF  *) 

(*  *) 

(*  CONTAINS  THE  FILE  STRUCTURE  FOR  ACCESSING  THE  WORKING  FORM  *) 

(*  DATA  DICTIONARY  *) 

(*  *) 

^ ★★*★**★★*★★*★***★**★**■*★★★**★**★★★★★★★★★★★****★★*★*★*★*★★**★★**★★★★★★★ J 


TYPE 

SCALAR_REC  -  RECORD 

DNUMB  :  INTEGER; 

DSCALAR  :  ARRAY  (.1. .10.)  OF 

PACKED  ARRAY  (.1. .16.)  OF  CHAR 

END; 

ENTITY.REC  -  RECORD 

CLDISP  :  INTEGER; 

DNUMB  :  INTEGER; 

DENTITY  :  ARRAY  (.1..36.)  OF  INTEGER 
END; 

SUBENT.REC  *  RECORD 

CLDISP  :  INTEGER; 

DNUMB  :  INTEGER; 

DSUBENT  :  ARRAY  ( .1. .36. )  OF  INTEGER 
END; 

D.ENTITY  =  RECORD 

DNAME  :  PACKED  ARRAY ( . 1 . . 16. )  OF  CHAR; 
CSORDR  :  INTEGER; 

DMIN  :  INTEGER; 

DMAX  :  INTEGER; 

DTYPE:  INTEGER; 

DSIZE  ;  INTEGER; 

DDISP  :  INTEGER; 

CASE  DTYPE  :  OF 

5  :  (DSCA  :  SCALAR.REC); 

7  :  (DENT  :  ENTITY.REC); 

8  :  (DSEN  :  SUBENT_REC) 

END; 

DICTYP  =  ARRAY  (.1..45.)  OF  D.ENTITY; 
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(**********************************************************************) 

(*  *) 

(*  PRINT  *) 

(*  *) 

(*  USED  TO  PREVENT  LISTING  OF  MAS  ROUTINES  DURING  COMPILATION  *) 

(*  *) 

^***********************ik**********************************************j 

%PRINT  OFF 
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This  appendix  provides  a  cross-reference  listing  for  PDDI  Access  Software 
(MAS)  routines.  The  Control  Sections  (CSECTs)  that  are  referred  to  by  a 
particular  CSECT  (routine)  are  provided. 
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Routine: 

Refers  to: 

ADCRBM 

NEWCRB 

EXPCRB 

EXCRBE 

Routine: 

Refers  to: 

ADRLSM 

NEWLSM 

LSTMXLNM 

LSTLNM 

DISPLSM 

MOVRLSM 

Routine: 

Refers  to: 

ADSCH 

FDSCH 

NEWNSI 

CRURUL 

ADSCHR 

ADTLSM 

Routine: 

Refers  to: 

ADSCHR 

FDSCH 

ADRLSM 

EXPSUDB 

Routine: 

Refers  to: 

ADTLSM 

NEWLSM 

LSTMXLNM 

LSTLNM 

MOVRLSM 

DISPLSM 

Routine: 

Refers  to: 

ADTNH 

ADTLSM 
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Routine: 

Refers  to: 

CHKDEL 

ADTLSM 

ADTNM 

DELCNST 

INDLSM 

LSTLNM 

MSTART 

MSTOP 

RDLSM 

RSTLSM 

SETRULS 

Routine: 

Refers  to: 

CHKTDEL 

ADTNM 

DETCNST 

DELRLSM 

MSTART 

MSTOP 

LSTLNM 

RDLSM 

RSTLSM 

SETRULS 

Routine: 

Refers  to: 

CMPCRB 

MASNEW 

DISPCRB 

Routine: 

Refers  to: 

CNNODM 

MRKNM 

NEWNM 

ADTLSM 

VERCN 

RLSNM 

CREMM 

TVERIFY 

Routine: 

Refers  to: 

CNVOSP 

Routine: 

Refers  to: 

CNVRR 
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Routine: 

Refers  to: 

CPYAUDB 

AMPXMOVE 

NEWSADB 

Routine: 

Refers  to: 

CPYCST 

LSTLNM 

MRGTLSM 

NEWNM 

FDSCH 

Routine: 

Refers  to: 

CPYLSM 

LSTLNM 

NEWLSM 

MOVRLSM 

Routine: 

Refers  to: 

CPYNM 

NEWNM 

RSTLSM 

RDLSM 

ADTLSM 

Routine: 

Refers  to: 

CRCLST 

RSTLSM 

RDLSM 

CREMM 

Routine: 

Refers  to: 

CRCNM 

CRCLST 
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Routing;  Refers  to: 
CRDLST 

ADTLSM 

DISPLSM 

DISPNM 

EXPCLSM 

MRGTLSH 

NEWLSM 

NEWNM 

RSTSFLG 

SORTDLST 

Routine;  Refers  to; 
CREMM 

ADTLSM 

Routine:  Refers  to: 
CRURUL 

Routine:  Refers  to: 
DELALNL 

RSTLSM 

RDLSM 

DISPEMM 

DISPLSM 

ROMtipe:  Refers  to: 
DELCNST 

CHKDEL 

ADTLSM 

ADTNM 

INDLSM 

INNM 

MSTART 

MSTOP 

RDLSM 

RSTLSM 

SETRULS 

Routine:  Refers  to: 
DELCRBE 

FNDCRBE 

CMPCRB 

EXCRBE 
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Routine: 

OELEMM 


Routine: 

DELENTY 


Routine: 

DELPLST 


Routine: 

DELPNLA 
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Refers  to: 


RSTLSM 

RDLSM 

DELRLSM 

DISPEMM 

Refers  to: 


ADTNM 

ADTLSM 

DELRLSM 

DELRUL 

DISPNM 

FNDURUL 

INDLSM 

NEWNM 

RDLSM 

RSTLSM 

XI  EMM 


Refers.  _to: 


LSTMXLNM 

LSTLNM 

MOVRLSM 

NEWLSM 

DISPLSM 

Refers  to: 


NEWLSM 

RDLSM 

LSTLNM 

LSTMXLNM 

DISPLSM 

ADTLSM 

DISPEMM 

MOVRLSM 

MRGTLSM 
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Routine:  Refers  to: 
DELRLSM 

LSTMXLNM 

LSTLNM 

MOVRLSM 

NEWLSM 

DISPLSM 

Routine:  Refers  to: 


DELRUL 


DELSCH 


Routine: 

DELTLSM 


ADTLSM 

CHKDEL 

CPYLSM 

DELCNST 

DISPLSM 

ELDNM 

MRGTLSM 

NEWLSM 

NEWNM 

RDLSM 

RSTLSM 

XI  EMM 


FDSCH 

INDLSM 

DELRLSM 

DELPLST 

DISPEMM 


LSTLNM 

LSTMXLNM 

NEWLSM 

MOVRLSM 

DISPLSM 


Routine 


DETCLST 


ADTNM 

DETRUL 

FNDURUL 

RDLSM 

RSTLSM 
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Routine: 

Refers  to: 

DETCNST 

ADTNM 

CHKTDEL 

DELRLSM 

MSTART 

MSTOP 

RDLSM 

RSTLSM 

SETRULS 

Routine: 

Refers  to: 

DETRUL 

ADTNM 

CHKTDEL 

DETCNST 

DELRLSM 

DISPNM 

INNM 

MRGTNM 

NEWNM 

RSTLSM 

RDLSM 

Routine: 

Refers  to: 

DIFLSM 

LSTLNM 

CPYLSM 

NEWLSM 

INDLSM 

Routine: 

Refers  to: 

DISPCRB 

MASDSP 

Routine: 

Refers  to: 

DISPEMM 

DISPLSM 

Routine: 

Refers  to: 

DISPKND 

RSTLSM 

RDLSM 

DISPEMM 
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Routine: 

Refers  to: 

DISPLSM 

Routine: 

Refers  to: 

DISPNDM 

DISPCRB 

RSTLSM 

RDLSM 

DISPKND 

DISPEMM 

DELRLSM 

DELALNL 

Routine: 

Refers  to: 

DISPNM 

DELRLSM 

DISPEMM 

RDLSM 

RSTLSM 

Routine: 

Refers  to: 

ELDNM 

LSTLNM 

RSTLSM 

RDLSM 

ADTLSM 

DISPLSM 

Routine: 

Refers  to: 

ELMNODM 

REVAADB 

Routine: 

Refers  to: 

EXCRBE 

EXPCRB 

Routine: 

Refers  to: 

EXPCLSM 

ADTLSM 

RDLSM 

RSTLSM 
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Routine: 

Refers  to: 

EXPCR8 

MASNEW 

DISPCRB 

Routine: 

Refers  to: 

EXPSUDB 

AMPXMOVE 

NEWSADB 

Routine: 

Refers  to: 

EXPULSM 

ADTLSM 

RDLSM 

RSI LSM 

Routine: 

Refers  to: 

EXPUNM 

NEWLSM 

EXPULSM 

DISPLSM 

Routine: 

Refers  to: 

FDSCH 

RDRLSM 

Routine: 

Refers  to: 

FNDCRBE 

Routine: 

Refers  to: 

FNDSKIND 

RSTLSM 

RDLSM 

Routine: 

Refers  to: 

FNDURUL 

FDSCH 

Routine: 

Refers  to: 

GTCRBE 
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Routine:  Refers  to: 
INDLSM 

LSTLNM 

Routine:  Refers  to: 
INNM 

INDLSM 

Routine:  Refers  to: 
INTLSM 

LSTLNM 

NEWLSM 

INDLSM 

Routine:  Refers  to: 
INTNM 

NEWNM 

INTLSM 

Routine:  Refers  to: 
LSTLNM 

Routine:  Refers  to: 
LSTMXLNM 

Routine:  Refers  to: 
MAEA 

RDLSM 

RSTLSM 

MSTART 

MSTOP 

CNVRR 

CNVOSP 
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Routine:  Refers  to: 
MAEAI 

CNVRR 

CNVOSP 

DISPNM 

EXPCLSM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RSTLSM 

Routine:  Refers  to: 
MAEAV 

CNVRR 

CNVOSP 

MSTART 

MSTOP 


Routine: 

MAEC 


Routine: 
MAEC  I 


Refers  to: 


CNVRR 

CNVOSP 

DISPNM 

MRGTLSM 

MSTART 

MSTOP 

NEWNM 

NODECNM 

RDLSM 

RSTLSM 

Refers  to: 


CNVRR 

CNVOSP 

DELRLSM 

DISPNM 

EXPCLSM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RSTLSM 
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Routine:  Refers  to: 
MAECIK 

ADTLSM 

CNVRR 

CNVOSP 

DISPNM 

EXPCLSM 

HSTART 

MSTOP 

NEWNM 

RDLSM 

RSTLSM 

Routine:  Refers  to: 
MAECMP 

ADTLSM 

CNVRR 

CNVOSP 

DISPNM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RSTLSM 

SETRULS 

TVERIFY 

Routine:  Refers  to: 
MAECQY 

CNVRR 

CNVOSP 

MSTART 

MSTOP 

SETRULS 

TVERIFY 

Routine:  Refers  to: 
MAECR 

CNVRR 

CNVOSP 

CRCLST 

MSTART 

MSTOP 

NEWNODE 

TVERIFY 

VERCR 
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Routine:  Refers  to: 

MAECTK 

MSTART 

MSTOP 

CNVRR 

CNVOSP 

Routine:  Refers  to: 

MAECXQ 

ADCRBM 

ADTLSM 

CNVRR 

CNVOSP 

DELCRBE 

DISPCRB 

DISPNM 

GTCRBE 

FNDCRBE 

LSTLNM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RDRLSM 

RSTLSM 

TVERIFY 

UPDCRBE 

Routine:  Refers  to: 

MAED 

CNVRR 

CNVOSP 

CPYNM 

DELRUL 

DISPLSM 

DISPNM 

ELDNM 

LSTLNM 

MSTART 

MSTOP 

NEWLSM 

NEWNM 

RDLSM 

RDRLSM 

RSTLSM 

SORTDLST 

TVERIFY 

VERDEL 
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Routine:  Refers  to: 

MAEDI 

CNVRR 

CNVOSP 

CRDLST 

DELRUL 

DISPLSM 

DISPNM 

LSTLNM 

HSTART 

HSTOP 

NEWLSM 

NEWNM 

RDLSM 

RDRLSM 

RSTLSM 

TVERIFY 

VERDEL 

Routine:  Refers  to: 


MAEDT 


CPYNM 

DETRUL 

DISPNM 

ELDNM 

LSTLNM 

MRGTNM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RDRLSM 

RSTLSM 

SORTDLST 

TVERIFY 

VERDEL 

CNVRR 

CNVOSP 
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Routine:  Refers  to: 

MAEDTI 

CNVRR 

CNVOSP 

CRDLST 

LSTLNM 

DISPLSM 

D I  Shirt 

DETRUL 

MRGTNM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RDRLSM 

RSTLSM 

TVERIFY 

VERDEL 


Routine:  Refers  to: 


MAEDTS 


CPYNM 

DETRUL 

DISPNM 

ELDNM 

LSTLNM 

MRGTNM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RDRLSM 

RSTLSM 

SORTDLST 

TVERIFY 

VERDEL 

CNVRR 

CNVOSP 


Routine:  Refers  to: 


MAEGKN 


CNVRR 

CNVOSP 

MSTART 

MSTOP 
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Bflytln&i  R?f?r?  to: 

MAEGTK 

CNVRR 

CNVOSP 

ELMNODM 

MSTART 

MSTOP 

TVERIFY 

VERGT 

Routine:  Reffrr?  .to: 
MAEKND 

MSTART 

MSTOP 

CNVRR 

CNVOSP 


Routine:  Refers  to: 


MAERST 


RSTLSM 

RDLSM 

MSTART 

MSTOP 

CNVRR 

CNVOSP 


Routine:  Refers  to: 
MAESVL 

MSTART 

MSTOP 

CNVRR 

CNVOSP 


Routine:  Refers  to: 


MAESWA 


RSTLSM 

RDLSM 

MSTART 

MSTOP 

CNVRR 

CNVOSP 
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Routine:  Refers  to: 
MAESWT 

CNVRR 

CNVOSP 

MSTART 

MSTOP 

RDLSM 

RSTLSM 


Routine:  Refers  to: 


MAEU 


Routing: 


CNVRR 

CNVOSP 

DISPNM 

MRGTLSM 

MSTART 

MSTOP 

NEWNM 

NODEUNM 

RDLSM 

RSTLSM 


Refers  to: 


MAEUD 

CNVRR 

CNVOSP 

MSTART 

MSTOP 

REVNODM 

TVERIFY 

VERUD 


Routine:  Refers  to: 


MAEU  I 


CNVRR 

CNVOSP 

DELRLSM 

DISPNM 

EXPULSM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RSTLSM 
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Routine;  Refers  to: 
MAEUIK 

ADTLSM 

CNVOSP 

CNVRR 

DISPNM 

EXPULSM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RSTLSM 

Routine:  Refers  to: 
MAEUSR 

CNVRR 

CNVOSP 

LSTLNM 

MSTART 

MSTOP 

Routine:  Refers  to: 
MAEUXQ 

ADTLSM 

CNVRR 

CNVOSP 

DISPNM 

INDLSM 

LSTLNM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RDRLSM 

RSTLSM 

TVERIFY 

Routine:  Refers  to: 
MAEXEQ 

CNVRR 

CNVOSP 

LSTLNM 

MSTART 

MSTOP 

RDLSM 

RDRLSM 

RSTLSM 

TVERIFY 
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Routine:  Refers  to: 
MAINIT 

CNVRR 

CNVOSP 

MSTART 

MSTOP 

NEWNDM 

OSTART 

TVERIFY 

Routine:  Refers  to: 
MAKCNT 

FDSCH 

CNVRR 

CNVOSP 

MSTART 

MSTOP 

Routine:  Refers  to: 


MAKILL 


MSTART 

NDSRML 

CNVRR 

CNVOSP 

MSTOP 


Routine:  Refers  to: 
MAKXEQ 

CNVRR 

CNVOSP 

MSTART 

MSTOP 

FDSCH 

LSTLNM 

RDRLSM 

TVERIFY 

Routine:  Refers  to: 


MAL 


CNVRR 

CNVOSP 

MSTART 

MSTOP 

NEWNM 
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Routine:  Refers  to: 
MALAND 

CNVRR 

CNVOSP 

DISPNM 

INTLSM 

MSTART 

MSTOP 

NEWNM 

Routine:  Refers  to: 
MALATC 

ADTNM 

CNVRR 

CNVOSP 

CRCNM 

CREMM 

MRGTNM 

MSTART 

MSTOP 

TVERIFY 

VERAPN 

Routine:  Refers  to: 
MALCPY 

CNVRR 

CNVOSP 

CPYNM 

MSTART 

MSTOP 

Routine:  Refers  to: 
MALD 

CNVRR 

CNVOSP 

DELRLSM 

DISPEMM 

MSTART 

MSTOP 

RDLSM 

RSTLSM 
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Routine: 

MALDA 


Routine: 

MALDI 


Routine: 

MALFND 


Routine: 

MALGTK 
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Refers  to: 


RDTLSM 

DELPNLA 

DISPLSM 

MSTART 

MSTOP 

CNVRR 

CNVOSP 

Refers  to: 


CNVRR 

CNVOSP 

INDLSM 

MSTART 

MSTOP 

RDTLSM 

DELPNLA 

DISPLSM 

Refers  to: 


CNVRR 

CNVOSP 

MSTART 

MSTOP 

RDLSM 

Refers  to: 


CNVRR 
CNVOSP 
MSTART 
MSTOP  • 
RDRLSM 
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Routine:  Refers  to: 
MALINS 

ADRLSM 

ADTLSM 

CNVRR 

CNVOSP 

FNDCRBE 

6TCRBE 

LSTLNM 

MSTART 

MSTOP 

RDLSM 

RSTLSM 

UPDCRBE 

Routine:  Refers  to: 
MALK 

CNVRR 

CNVOSP 

CPYCST 

DISPNM 

FDSCH 

MSTART 

MSTOP 

NEWNM 

Routine:  Refers  to: 
MALKL 

ADTNM 

CNVRR 

CNVOSP 

FDSCH 

FNDSKIND 

MSTART 

MSTOP 

NEWNM 

RSTLSM 

RDLSM 

Routine:  Refers  to: 
MALN 

CNVRR 

CNVOSP 

MSTART 

MSTOP 

NEWNM 

NEWLSM 
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Routine:  Refers  to: 
MALNO 

CNVRR 

CNVOSP 

LSTLNM 

MSTART 

MSTOP 


Routine:  Refers  to: 


MALNOT 

CNVRR 

CNVOSP 

DIFLSM 

DISPNM 

MSTART 

MSTOP 

NEWNM 

Routine:  Refers  to: 


MALOCK 


CNVRR 

CNVOSP 

MSTART 

MSTOP 


Routine:  Refers  to: 
MALOR 

CNVRR 

CNVOSP 

DISPNM 

ELDNM 

MRGTLSM 

MSTART 

MSTOP 

NEWNM 


Routine:  Refers  to: 
MALPUT 
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Routine:  Refers  to: 
MALRD 

ADCRBM 

CNVRR 

CNVOSP 

DELCRBE 

DISPCRB 

FNDCRBE 

GTCRBE 

MSTART 

MSTOP 

RDRLSM 

UPDCRBE 

Routine:  Refers  to: 
MALRD E 

CNVRR 

CNVOSP 

ELDNM 

MSTART 

MSTOP 

Routine:  Refers  to: 
MALREP 

ADTLSM 

CNVRR 

CNVOSP 

CPYLSM 

DELCRBE 

DELRLSM 

DISPCRB 

FNDURUL 

LSTLNM 

MSTART 

MSTOP 

RDLSM 

RSTLSM 
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Routine:  Refers  to: 


MALRMV 

CNVRR 

CNVOSP 

DELCRBE 

DELPLST 

DELRLSM 

DELRUL 

DISPCRB 

DISPNM 

DISPLSM 

FNDCRBE 

GTCRBE 

LSTLNM 

MSTART 

MSTOP 

NEWLSM 

NEWNM 

SETRULS 

UPDCRBE 


Routine 


Refers  to: 


MALROR 

CNVRR 

CNVOSP 

MSTART 

MSTOP 

ORDRLST 

TVERIFY 


Routine:  Refers  to: 

MALRPL 

ADTLSM 

CNVRR 

CNVOSP 

DELPLST 

DELRLSM 

DELRUL 

DISPLSM 

DISPNM 

INDLSM 

LSTLNM 

MSTART 

MSTOP 

NEWNM 

NEWLSM 

REVRLSM 
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Routine:  Refers  to: 
MALRVS 

CNVRR 

CNVOSP 

RVRLSM 

DISPLSM 

MSTART 

MSTOP 

Routine:  Refers  to: 
MALSRT 

CNVRR 

CNVOSP 

SORTLSM 

MSTART 

MSTOP 

TVERIFY 


Routine:  Refers  to: 


MALSTF 


ADCRBM 

CNVRR 

CNVOSP 

MSTART 

MSTOP 

UPDCRBE 


Routine:  Refers  to: 


MALSTR 


ADCRBM 

CNVRR 

CNVOSP 

LSTLNM 

MSTART 

MSTOP 

UPDCRBE 
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Routine:  Refers  to: 
MALXEQ 

ADCRBM 

ADTLSM 

CNVRR 

CNVOSP 

DELCRBE 

DISPCRB 

DISPNM 

FNDCRBE 

GTCRBE 

LSTLNM 

MSTART 

MSTOP 

NEWNM 

RDLSM 

RDRLSM 

RSTLSM 

TVERIFY 

UPDCRBE 

Routine:  Refers  to: 
MAQURY 

CNVRR 

CNVOSP 

MSTART 

MSTOP 


Routine:  Refers  to: 


MASALOC 

* 

Routine: 

Refers  to: 

MASDSP 

Routine: 

Refers  to: 

MASMSZ 

MSTART 

NDSFCT 

MSTOP 

CNVRR 

CNVOSP 

Routine:  Refers  to: 
MASNEW 
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Routine:  Refers  to: 
MASOVR 

Routine:  Refers  to: 
MAUPDT 

CNVRR 

CNVOSP 

MSTART 

MSTOP 

RDLSM 

RSTLSM 

Routine:  Refers  to: 
MIDBD 

CNVOSP 

CNVRR 

XI  EMM 

ELDNM 

MSTART 

MSTOP 

RDLSM 

RSTLSM 

Routine:  Refers  to: 
MIDBRV 

ADTLSM 

CNVRR 

CNVOSP 

DELCRBE 

DELPLST 

DELRLSM 

DELENTY 

DELRUL 

DISPCRB 

DISPLSM 

FNDCRBE 

GTCRBE 

LSTLNM 

MSTART 

MSTOP 

NEWLSM 

UPDCRBE 
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Routine: 

Refers  to: 

MOVRLSM 

AMPXMOVE 

LSTLNM 

LSTMXLNM 

Routine: 

Refers  to: 

MRGTLSM 

CPYLSM 

LSTMXLNM 

LSTLNM 

DISPLSM 

NEWLSM 

MOVRLSM 

Routine: 

Refers  to: 

MRGTNM 

MRGTLSM 

Routine: 

Refers  to: 

MRKNM 

ADTLSM 

NEWEMM 

NEWLSM 

Routine: 

Refers  to: 

MSTART 

Routine: 

Refers  to: 

MSTOP 

Routine: 

Refers  to: 

NDSCMM 

Routine: 

Refers  to: 

NDSFCT 

Routine: 

Refers  to: 

NDSGBM 
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Routine:  Refers  to: 


NDSRML 

Routine: 

Refers  to: 

NEWCRB 

MASNEW 

Routine: 

Refers  to: 

NEWEMM 

Routine: 

Refers  to: 

NEWIIM 

NEWEMM 

NEWLSM 

CPYAUDB 

RflUtine: 

Refers  to: 

NEWLSM 

Routine: 

Refers  to: 

NEWNDM 

NEWEMM 

ADTLSM 

NEWNSR 

Routine: 

Refers  to: 

NEWNM 

NEWEMM 

NEWLSM 

RDTLSM 

ADTLSM 

Routine: 

Refers  to: 

NEWNODE 

NEWIIM 

ADSCH 

Routine: 

Refers  to: 

NEWNSC 

NEWSCHC 
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Routine; 

Refers  to: 

NEWNS1 

NEWSCHI 

Routine: 

Refers  to: 

NEWNSR 

NEWSCHR 

Routine: 

Refers  to: 

NEWSAOB 

AMPXNEW 

Routine: 

Refers  to: 

NEWSCHC 

NEWIIT 

Routine: 

Refers  to: 

NEWSCHI 

NEWIIM 

Routine: 

Refers  to: 

NEWSCHR 

NEWIIM 

Routine: 

Refers  to: 

NODECNM 

NEWNM 

CPYLSM 

Routine: 

Refers  to: 

NODEUNM 

NEWNM 

CPYLSM 

Routine: 

Refers  to: 

OCOUNT 
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Routine: 

Refers  to: 

ORDRLST 

CPYLSM 

DISPNM 

INNM 

LSTLNM 

NODEUNM 

RDLSM 

REVRLSM 

RSTLSM 

Routing i 

Refers  to: 

OSTART 

Routine: 

Refers  to: 

PASASM 

* 

Routine: 

Refers  to: 

RDLSM 

LSTLNM 

Routine: 

Refers  to: 

RDNM 

RDLSM 

ELMNODM 

Routing: 

Refers  to: 

RDRLSM 

LSTMXLNM 

Routing: 

Refers  to: 

RDTLSM 

LSTLNM 

Routine: 

Refers  to: 

REVAADB 

AMPXMOVE 

Routine: 

Refers  to: 

REVNODM 

REVSADB 
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Routine:  Refers  to: 


REVRLSM 

LSTLNM 

Routine: 

Refers  to: 

REVSADB 

AMPXMOVE 

NEWSADB 

Routine: 

Refers  to: 

RLSNM 

DELTLSM 

DISPEMM 

RDLSM 

RDTLSM 

RSTLSM 

Routine: 

Refers  to: 

RSTLSM 

Routine: 

Refers  to: 

RSTSFLG 

RDLSM 

RSTLSM 

Routine: 

Refers  to: 

RVRLSM 

NEWLSM 

RDRLSM 

ADTLSM 

LSTLNM 

Baylin&i 

Refers  to: 

SETRULS 

INDLSM 

Routine: 

Refers  to: 

SETSWCI 

RSTLSM 

RDLSM 
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Routine:  Refers  to: 
SORTDLST 

RSTLSM 

RDLSM 

NEWLSM 

SRTBYCNT 


Routine: 

Refers  to: 

SORTLSM 

LSTLNM 

ELMNODM 

ELMNODM 

Routine: 

Refers  to: 

SRTBYCNT 

RSTLSM 

RDLSM 

ADTLSM 

Routine: 

Refers  to: 

UPDCRBE 

FNDCRBE 

Routine: 

Refers  to: 

VERAPN 

Routine: 

Refers  to: 

VERCN 

Routine: 

Refers  to: 

VERCR 

Routine: 

Refers  to: 

VERDEL 

Bou_t,u?ei 

Refers  to: 

VERGT 

Routine: 

Refers  to: 

VERUD 
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Routine:  Refers  to: 

XIEMM 

DELCRBE 

DELSCH 

DELEMM 

DISPCRB 

RDTLSM 

DELCRBE 

DELTLSM 

DELRLSM 

DISPCRB 

FNDCRBE 

6TCRBE 

INDLSM 

UPDCRBE 

RDTLSM 

DELTLSM 

DELRLSM 


Routine:  Refers  to: 
XREMM 

DELRLSM 
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APPENDIX  E 

ACCESS  SOFTWARE  ROUTINES 


This  appendix  provides  a  listing  of  each  procedure  in  the  PDDI  Access 
Software  Package. 

The  routines  are  listed  in  alphabetic  order.  An  index  with  a  brief 
description  of  the  routine  function  is  provided. 

A  hierarchy  dictionary  is  provided  in  Appendix  D  to  show  the  relationship 
of  the  routines. 


Routine  Index . E-2 

Routine  Dictionary  .  E- 1 1 
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P DPI  ACCESS  SOFTWARE  ROUTINE  INDEX 


ROUTINE 

NAME 

ADCRBM 

ADRLSM 

ADSCH 

ADSCHR 

ADTLSM 

ADTNM 

CHKDEL 

CHKTDEL 

CMPCRB 

CNNODM 

CNVOSP 

CNVRR 

CYPAUDB 

CPYCST 

CPYLSM 

CPYNM 

CRCLST 

CRCNM 

CRDLST 

CREMM 


FUNCTION 

Adds  a  new  CRB  entry 

Adds  an  entity  after  a  relative  position  in  a  system  list 

Connects  an  internal  item  to  the  correct  portion  of  the  NDS 
superstructure 

Connects  an  internal  item  to  the  schema  root 

Adds  an  entity  to  a  system  list 

Adds  an  entity  to  the  end  of  an  application  list 

Check  deletability  of  an  entity  relative  to  its  users 

Check  deletability  of  an  entity  relative  to  its  users 

Compresses  the  CRB 

Connects  two  entities 

Convert  out  of  space  system  error  code  to  user  recognizeable  error 
code 

Gets  the  external  return  code  corresponding  to  the  internal  format 

Stores  the  value  of  an  application  entity  block  in  an  uninitialized 
system  UDB 

Adds  the  entities  in  a  constituent  list  into  a  list 

Copies  the  non-vacant  elements  of  LIST  FROM  to  LIST  TO 

Creates  a  new  list  which  contains  a  copy  of  the  entities  referenced 
by  KEYL 

Creates  relations  between  a  user  entity  and  a  list  of  constituents 

Creates  relations  between  a  user  entity  and  a  list  of  constituents 

Creates  a  sorted  inclusive  list  of  an  entity  or  a  list  of  entities 
and  their  direct  and  indirect  constituents 

Creates  a  user-constituent  relation  between  entities 


E-2 


CRURUL 

DELALNL 

DELCNST 

DELCRBE 

DELEMM 

DELENTY 

DELPLST 

DELPNLA 

DELRLSM 

DELRUL 

DELSCH 

DELTLSM 

DETCLST 

n.iCNST 

DETRUL 

DIFLSM 

DISPCRB 

DISPEMM 

DISPKND 

DISPLSM 

DISPNDM 

DISPNM 
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Creates  the  user's  rules  for  deletability 

Disposes  of  all  application  lists  in  the  Working  Form  model 

Determine  deletability  of  entity’s  constituents 

Deletes  a  CRB  entry 

Deletes  all  references  to  this  entity  from  all  application  lists  and 
disposes  of  the  entity 

Deletes  the  entity 

Removes  an  entity  from  a  specified  position  in  a  system  list 

Deletes  all  non-"locked"  APPL  lists  after  a  specified  position  in 
the  LIST_OF_LISTS 

Removes  an  entity  from  a  system  list 

Deletes  an  entity  according  to  the  delete  rules 

Disconnects  an  internal  item  from  the  correct  portion  of  the  NDS 
superstructure 

Removes  the  last  non-vacant  entity  reference  in  a  list 

Checks  the  constituents  of  a  marked  entity  or  an  entity  on  the 
MARKLIST  to  determine  if  the  constituents  may  also  be  tested  for 
deletion 

Check  deletability  of  entity’s  constituents 

Tests  delete  of  an  entity  according  to  the  delete  rules 

Creates  a  system’s  list  consisting  of  all  entities  in  LIST1  that  are 
not  in  LIST2 

Disposes  of  CRB 

Releases  all  space  allocated  to  an  entity 

Disposes  of  all  entities  of  specific  instance  collector 

Deletes  space  allocated  to  a  system  list 

Forces  an  NDS  out  of  memory 

Removes  all  entities  from  the  list  and  free  the  allocated  space 
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ELDNM 

ELMNODM 

EXCRBE 

EXPCLSM 

EXPCRB 

EXPSUDB 

EXPULSM 

EXPUNM 

FDSCH 

FNDCRBE 

FNDSKIND 

FNDURUL 

GTCRBE 

INDLSM 

INNM 

INTLSM 

INTNM 

LSTLNM 

LSTMXLNM 

MAEA 

MAEAI 

MAEAV 

MAEC 


Creates  a  list  with  all  duplicate  entities  eliminated 
Returns  an  ENTBLOCK  corresponding  to  a  key 
Exchanges  two  entries  in  the  CRB 

Expands  list  with  all  of  its  constituents  and  places  this  expanded 
list  in  LISTOUT 

Expands  the  CRB 

Expands  a  system  UDB 

Places  the  expanded  list  with  all  of  its  users  in  LISTOUT 

Expands  the  list  to  include  all  users  of  the  entities 

Finds  a  Schema_Instance_Col lector  or  Schema_Class  entity  on  the 
specified  Schema_Root’s  constituent  list 

Finds  a  specific  entry  in  the  CRB 

Builds  an  array  of  kind  value  collected  by  a  class  or  instance 
collector  in  the  schema 

Gets  the  rule  from  the  instance  collector  for  a  given  ENTKEY 

Gets  an  entry  in  the  CRB 

Locates  an  entity  in  a  system  list 

Indicates  whether  a  list  references  an  entity 

Creates  a  list  which  is  the  intersection  of  two  lists 

Creates  a  list  which  is  the  intersection  of  lists  referenced  by 
KEYL1  and  KEYL2 

Returns  the  number  of  non-vacant  entities  in  a  system  list 
Returns  the  number  of  entries  allocated  to  a  system  list 
Activates  an  entity 

Activates  an  entity  or  a  list  of  entities  and  their  inclusive 
constituents 

Finds  the  present  value  of  the  activation  setting  for  an  entity 
Creates  an  application  list  of  constituent  entities 
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MAECI 

MAECIK 

MAECMP 

MAECQY 

MAECR 

MAECTK 

MAECXQ 

MAED 

MAEDI 

MAEDT 

MAEDTI 

MAEDTS 

MAEGKN 

MAEGTK 

MAEKND 

MAERST 

MAESVL 

MAESWA 

MAESWT 

MAEU 
MAEUD 
MAEU  I 
MAEU IK 
MAEUSR 
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-  Creates  an  application  list  of  inclusive  constituent  entities 

-  Creates  a  list  of  inclusive  constituents  by  kind 

-  Determine  which  of  it’s  constituents  an  entity  compresses  with 

-  Determine  if  an  entity’s  user  should  compress  with  it 

-  Creates  an  entity 

-  Returns  the  number  of  "KIND"  values  in  the  Working  Form  model 

-  Execute  a  procedure  on  a  list,  creating  an  output  list 

-  Deletes  an  entity  or  list  of  entities 

-  Deletes  inclusively  an  entity  or  list  of  entities 

-  Tests  delete  an  entity  or  list  of  entities 

-  Tests  for  inclusive  deletion  of  an  entity  or  list  of  entities  and 
their  direct  and  indirect  constituents 

-  Test  delete  an  entity  or  list  of  entities,  and  return  three  lists 

-  Retrieves  the  KIND  value  of  an  entity 

-  Retrieves  the  entity  block  which  corresponds  to  KEYE 

-  Returns  a  "KIND"  value  from  the  list  of  KINDS  in  the  Working  Form 
model 

-  Reset  the  specified  flag  in  all  entities  in  the  working  form  model 

-  Finds  the  current  binary  switch  setting  of  an  entity 

-  Sets  the  process  bit  "off"  in  all  entities  in  the  model 

-  Sets  an  entity  switch  or  the  switches  for  each  entity  in  a  list  as 
requested  by  the  user 

-  Creates  a  list  of  user  entity  references 

-  Updates  the  entity  block  corresponding  to  a  key 

-  Creates  an  application  list  of  inclusive  user  entities 

-  Creates  a  list  of  inclusive  users  by  kind 

-  Determines  if  an  entity  has  any  users 
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MAEUXQ  -  Executes  a  procedure  on  the  users  of  an  entity 

MAEXEQ  -  Executes  a  procedure  on  an  entity,  or  a  list  of  entities 

MAINIT  -  Initializes  the  MAS  network 

MAKCNT  -  Determine  the  number  of  entities  of  a  specified  kink  in  the  working 
form  model 

MAKILL  -  Deletes  the  Working  Form  model 

MAKXEQ  -  Executes  a  procedure  on  all  entities  of  a  specified  kind 

MAL  -  Creates  an  empty  list 

MALAND  -  Creates  an  application  list  of  entities  common  to  two  input  lists 

MALATC  -  Appends  an  entity  or  list  (LIST2)  to  an.  entity  or  list  (KEY1) 

MALCPY  -  Makes  a  copy  of  a  list 
MALD  -  Deletes  an  application  list 

MALDA  -  Deletes  all  application  lists  that  are  not  "locked" 

MALDI  -  Deletes  an  application  list  and  all  lists  after  it  that  are  not 
locked 

MALFND  -  Finds  the  position  of  an  entity  (KEY2)  in  an  application  list  (KEY1) 

MALGTK  -  Gets  the  Nth  key  from  the  list 

MALINS  -  Inserts  an  entity  or  list  into  a  list 

MALK  -  Creates  a  list  of  all  entities  of  a  specified  kind 

MALKL  -  Creates  a  list  of  entity  kinds  which  are  found  within  another  list 

MALN  -  Creates  an  empty,  list  of  a  specified  size 

MALNO  -  Counts  the  entities  on  the  list 

MALNOT  -  Creates  an  application  list  of  entities  in  KEY 1  but  not  in  KEY2 

MALOCK  -  Sets  an  application  list  for  delete  or  non-delete  status 

MALOR  -  Creates  an  application  list  from  a  BOOLEAN  "OR"  on  two  input  lists 

MALPUT  -  Inserts  an  entity  into  the  IDB  big  list 

MALRD  -  Reads  the  next  entry  in  a  directed  list 
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MALRDE 

MALREP 

MALRMV 

MALROR 

MALRPL 

MALRVS 

MALSRT 

MALSTF 

MALSTR 

MALXEQ 

MAQURY 

MASALOC 

MASDSP 

HASMSZ 

MASNEW 

MASOVR 

MAUPDT 

MIDBD 

MIDBRV 

MOVRLSM 

MRGTLSM 

MRGTNM 

MRKNM 

MSTART 

MSTOP 
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-  Removes  duplicate  entries  in  a  list 

-  Replaces  a  list 

-  Removes  an  entity  from  a  list 

-  Reorder  an  application  list  in  user-constituent  order 

-  Replaces  an  entity  in  a  list 

-  Reverse  the  order  of  an  application  list 

-  Sort  an  application  list 

-  Initializes  for  reading  a  directed  list  in  forward  order 

-  Initializes  for  reading  a  directed  list  in  reverse  order 

-  Executes  a  procedure  on  an  entity  or  a  list  of  entities 

-  Determine  the  value  of  the  specified  flag  for  an  entity 

-  MAS  memory  management  runtime 

-  Disposes  of  a  MAS  dynamically  allocated  memory  area 

-  Returns  the  actual  model  space  used  and  the  amount  of  the  free 
space  in  the  allocated  memory  blocks  of  the  model 

-  Allocates  a  new  dynamic  memory  area  for  MAS  elements 

-  MAS  Memory  management  runtime 

-  Update  the  specified  flag  for  an  entity 

-  Delete  an  entity  without  checking  delete  ‘ules 

-  Remove  an  entity  from  a  list  without  checking  delete  rules 

-  Moves  entities  between  system  lists 

-  Concatenates  the  entities  in  LIST2  to  LIST1 

-  Concatenates  the  entities  in  LIST2  to  LIST1 

-  Marks  the  stack  of  lists  so  that  the  next  release  list  will  only 
destroy  lists  created  after  this  mark  operation 

-  Generates  start  statistics 

-  Generates  stop  statistics 
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NDSCMM 

NDSFCT 

NDSGBM 

NDSRML 

NEWCRB 

NEWEMM 

NEW I IM 

NEWLSM 

NEWNDM 

NEWNM 

NEWNODE 

NEWNSC 

NEWNSI 

NEWNSR 

NEWSADB 

NEWSCHC 

NEWSCHI 

NEWSCHR 

NODECNM 

NODEUNM 

OCOUNT 
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-  Defines  dummy  program 

-  Computes  the  amount  of  used  model  space  and  the  amount  of  free  space 
in  the  allocated  memory  blocks 

-  Dummy  procedure  for  compile  time  initialization  of  NDS  global  area 

-  Releases  all  memory  blocks  allocated  to  the  Working  Form 

-  Creates  a  CRB 

-  Creates  a  new  NDS  object 

-  Creates  a  new  entity  and  copies  into  it  the  application  ENTDATA 

-  Initializes  LISTREF  and  allocates  enough  space  to  hold  size  entities 

-  Creates  a  new  empty  model  in  memory 

-  Creates  an  empty  application  list 

-  Creates  a  new  entity  in  the  NDS  and  copies  into  it  the  application 
ENTDATA 

-  Creates  an  empty  schema  class  collector  attached  to  the  schema  root 

-  Creates  an  empty  schema  instance  collector  attached  to  the  schema 
root 

-  Creates  a  new  null  schema  root  and  attaches  it  to  the  NDS 

-  Creates  a  new  application  data  block 

-  Creates  an  empty  schema  class  entity  attached  to  the  schema  root 

-  Creates  an  empty  schema  instance  collector  entity  attached  to  the 
schema  root 

-  Creates  an  empty  rot  collector  entity  attached  to  the  NDS 

-  Creates  a  list  which  contains  a  copy  of  the  entity’s  constituent 
list 

-  Creates  a  list  which  contains  a  copy  of  the  entity’s  user  list 

-  MAS  memory  management  runtime 
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ORDRLST  - 
OSTART  - 
PASASM  - 
RDLSM 
RDNH 

RDRLSM  - 
RDTLSM  - 
REVAADB  - 
REVNODM  - 
REVRLSM  - 
REVSADB  - 
RLSNM 
RSTLSM  - 
RSTSFLG  - 

RVRLSM  - 
SETRULS  - 
SETSWCI  - 

SORTDLST  - 

SORTLSM  - 
SRTBYCNT  - 

UPDCRBE  - 
VERAPN  - 
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Reorder  an  application  list 

MAS  memory  management  runtime 

Link  to  a  user  defined  procedure 

Reads  a  system  list  as  a  first- in  first-out  order 

Reads  the  next  entity  in  the  KIND  range  from  an  application  list 

Reads  the  last  entity  key  from  LISTREF 

Reads  the  last  entity  key  from  LISTREF 

Assigns  the  value  of  a  system  UDB  to  an  application  ENTBLOCK 
Revises  an  entity’s  user  data  block 
Changes  an  entity  in  a  system  list 

Replace  the  value  of  a  system  ENTBLOCK  with  the  value  of  ENTDEF 

Releases  all  the  lists  on  the  current  list  of  lists 

Resets  position  to  indicate  the  beginning  of  a  list 

Resets  the  requested  position  in  the  internal  MAS  process  flag 
(MAPROB)  in  the  I IT  to  the  requested  BOOLEAN  value 

Copy  an  application  list  in  the  reverse  order 

Sets  delete  flags  according  to  user’s  dependence  and  strength  rules 

Sets  a  switch  in  the  user  data  block  for  each  entity  and  all 
constituents  inclusive 

Gives  an  application  list  of  entities  to  be  deleted,  DEL_LST  returns 
a  system  list  sorted  in  user_constituent  order  in  SRT_LST 

Sorts  a  system  list 

Create  an  application  list  of  inclusive  constituents  in  constituent- 
user  order 

Updates  an  entry  in  the  CRB 

Verifies  legality  of  appending  an  entity  or  list  of  entities  (KEY2) 
to  an  entity  or  list  of  entities  (KEY1) 
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VERCN 

VERCR 

VERDEL 

VERGT 

VERUD 

XI  EMM 
XREMM 


-  Verifies  legality  of  connecting  each  entity  on  a  list  of  users  to 
each  entity  on  a  list  of  constituents 

-  Verifies  legality  of  creating  an  entity  with  the  user-supplied 
entity  data  block  and  list  of  constituents 

-  Verifies  legality  of  deleting  an  entity 

-  Verifies  legality  of  retrieving  an  entity  with  the  user-supplied 
entity  key 

-  Verifies  legality  of  updating  an  entity  with  the  user-supplied 
entity  key  using  the  user-supplied  entity  data  block  and  list  of 
constituents 

-  Deletes  an  entity 

-  Deletes  the  first  relation  between  user- and  constituent 
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(*  ^INCLUDE  ADCRBM  *) 

(**) 

PROCEDURE  ADCRBM (VAR  CRBrCRBPNTR;  CONST  EKEY : ENTKEY ; 

CONST  POS : L I STPSTN ;  CONST  DIR: LISTDIR;  VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(< 


(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR:  B.  A. 
VERSION:  XXXX 


ULMER 


FRMI  CREATED:  85/02/07 
REVISED:  YY/MM/DD 


FUNCTION: 

ADD  A  NEW  CRB  ENTRY 


ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 
EXECUTION  PROCEDURE: 

HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED. 

DESCRIPTION  OF  ARGUMENTS: 


NAME 

CRB 

EKEY 

POS 

DIR 

RR 


I/O 

I/O 

I 

I 

I 

0 


DESCRIPTION 

CONSTITUENT  READ  BLOCK  ADDRESS 
ENTITY  CONTAINING  THE  CONSTITUENT  LIST  BEING 
READ 

LIST  POSITION  SETTING 
DIRECTION  TO  READ  THE  LIST  (FORWARD  OR  REVERSE)*) 


. *) 

*) 

CC??*) 
CC  *) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


ERROR  CONDITION  RETURN  CODE 
0  OK  RETURN  CODE 

1  YOU  BLEW  IT 

2  THE  ROUTINE  BLEW  IT 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

COMMENTS:  *) 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 
THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

*) 


COMMONS: 

C0M1 

VAR1 

VAR2 

COM2 

VAR3 


I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA 
MUST  BE  PROVIDED 
I  VAR2  MUST  BE  SPECIFIED 

I  CHARACTER  DATA  MUST  BE  SPECIFIED 


PRnfFSSTNG  nFSfRTPTTON* 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 
FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 


E-ll 
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(*  CHANGE  CONTROL: 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 

(*  NARRATION  ON  THE  NEXT  LINE. 

(*  YY/MM/DD  CCXX  I.  M.  APERSON 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 

(* .  . 

(**) 

(*  END  %INCLUDE  ADCRBM  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  ADRLSM.  *) 

(**) 

PROCEDURE  ADRLSM (CONST  INCREMENT: LISTSIZE ;CONST  POSITION: LISTPSTN; 
CONST  KEYE:ENTKEY;VAR  L ISTREF : L I STPNTR ; VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* . 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

ADD  AN  ENTITY  AFTER  A  RELATIVE  POSITION  IN  A  SYSTEM  LIST. 
A  POSITION  OF  ZERO  INDICATES  THE  TOP  OF  THE  LIST.  IF  THE 
LIST  REQUIRES  EXPANSION  TO  HOLD  THE  NEW  ENTITY,  IT  IS 
EXPANDED  BY  INCREMENT  ENTRIES. 

SDESCRIPTION  OF  ARGUMENTS: 


0  OK  RETURN  CODE 

1  YOU  BLEW  IT 

2  THE  ROUTINE  BLEW 


IT 


SCOMMONS: 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

ADDS  KEYE  TO  THE  SYSTEM  LIST  LISTREF  AT  POSITION  AFTER  THE 
THE  RELATIVE  POSITION  GIVEN 

SCOMMENTS: 

SCHANGE  CONTROL: 


REVISED:  12/30/85  B.  A.  ULMER 

ADD  PROCESSING  FOR  LARGE  LISTS 


FRMI 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


NAME 

I/O 

DESCRIPTION 

*) 

INCREMENT 

I 

NUMBER  OF  ENTITIES  BY  WHICH  A 

LIST  IS 

) 

*) 

EXPANDED  AT  A  TIME 

*) 

POSITION 

I 

RELATIVE  POSITION  AFTER  WHICH 

THE  NEW 

*) 

ENTRY  IS  ADDED 

*) 

KEYE 

ENTITY  TO  BE  ADDED. 

*) 

LISTREF 

POINTER  TO  THE  SYSTEM  LIST  TO  WHICH  KEYE 

*) 

WAS  ADDED 

*) 

RC 

0 

EXTERNAL  RETURN  CODE 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 


REVISED:  12/24/84 

ADDED  SYSTEM  LIST  CURRENT 

R.  A.  MCCLUSKEY 

LENGTH  INDICATOR  --  LSTLNM 

FRMI 

* 

* 

* 

REVISED:  10/01/84 

E.  D.  SHREVE 

FRMI 

★ 

CORRECT  THE  MOVE  OF  ENTRIES  FROM  OLD  TO  NEW  LIST  WHEN  OLD  LIST  *) 
MUST  BE  EXPANDED  *) 

*) 
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I 


i 


n 
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(*  ^INCLUDE  ADSCH. 

(**) 

PROCEDURE  ADSCH (CONST  KEYE:ENTKEY;VAR  RR:RET_REC) ; EXTERNAL; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

CONNECT  AN  INTERNAL  ITEM  TO  THE  CORRECT  PORTION  OF  THE 
NDS  SUPERSTRUCTURE. 

JDESCRIPTION  OF  ARGUMENTS: 


NAME 

SCH_ROOT 

KEYE 

RR 


I/O  DESCRIPTION 


I 

I 

0 


KEY  OF  THE  SCHEMA.ROOT  TO  WHICH  THE 

INTERNAL  ITEM  WILL  BE  ATTACHED 

KEY  OF  THE  INTERNAL  ITEM  TO  BE  ATTACHED 

EXTERNAL  RETURN  CODE- 

»0  OK 

>0  CRITICAL  ERROR 
<0  WARNING 


SCOMMONS: 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

S EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS  (INTERNAL  ACTIONS) 
SCOMMENTS: 

JCHANGE  CONTROL: 

REVISED:  06/19/86  B.  A.  ULMER  FRMI 

CHANGE  CALLING  PARAMETERS  TO  CRURUL  -  NEW  DELETE  RULES 


REVISED:  09/09/85  B.  A.  ULMER 

ADD  TWO  NEW  PARAMETERS  TO  FNDURUL 


FRMI 


REVISED:  02/18/85  B.  A  .ULMER  FRMI 

CHANGED  STRUCTURE  OF  THE  INTERNAL  ITEM  FOT  IMPLEMENTATION  OF 
THE  CRB 

REVISED:  10/04/84  E.  D.  SHREVE  FRMI 

TO  CHANGE  LIST  INCREMENT  WHEN  ADDING  TO  THE  INSTANCE  COLLECTOR 
CONSTITUENT  LIST 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  05/14/84  E.  D.  SHREVE  FRMI  *) 
(*  TO  RESET  THE  SCH.INST  ’KIND’  TO  ’SCH.INST’  AFTER  THE  ENTITY  *) 
(*  KIND  IS  PUT  INTO  THE  STANDARD  ARRAY  OF  THE  SCHEMA.ROOT  *) 
(*  *) 
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(*  %INCLUDE  ADSCHR.  *) 

(**) 

PROCEDURE  ADSCHR (CONST  KEYE:ENTKEY;VAR  POSITION: LISTPSTN; 
VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(* . 

(* 

(*  FUNCTION 

(*  CONNECT  AN  INTERNAL  ITEM  TO  THE  SCHEMA  ROOT. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  SCHEMA  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  KEYE 

(*  OUTPUT 

(*  POSITION 

(* 

(* 

(*  RR 

(* 

(* . . 

(**) 

(*  END  %INCLUDE  ADSCHR.  *) 


-  KEY  OF  THE  INTERNAL  ITEM  TO  BE  ATTACHED. 

-  RELATIVE  POSITION  OF  THIS  SCHEMA  INSTANCE 
OR  CLASS  ENTITY  IN  THE  SCHEMA  ROOT’S 
CONSTITUENT  LIST. 

-  THE  FUNCTION  RETURN  RECORD. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  ADTLSM.  *) 

(**) 

PROCEDURE  ADTLSM (CONST  INCREMENT:LISTSIZE;CONST  KEYErENTKEY; 

VAR  LISTREF:LISTPNTR;VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . - . 

(* 

(*  FUNCTION 

(*  ADD  AN  ENTITY  TO  A  SYSTEM  LIST.  IF  LISTREF  IS  NIL,  THEN 

(*  THE  LIST  IS  EMPTY.  IF  NO  ROOM  IS  AVAILABLE,  THEN  THE  LIST 

(*  IS  EXPANDED  BY  INCREMENT  ENTITIES. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  INCREMENT  -  THE  NUMBER  OF  ENTITIES  BY  WHICH  A  LIST  IS 

(*  EXPANDED  AT  A  TIME. 

(*  KEYE  -  KEY  OF  THE  ENTITY  TO  BE  ADDED. 

(*  LISTREF  -  A  POINTER  TO  A  SYSTEM  LIST. 

(*  OUTPUT 

(*  LISTREF  -  POINTER  TO  THE  SYSTEM  LIST  TO  WHICH  KEYE 

(*  WAS  ADDED. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  ADTLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  ADTNM  *) 

(**) 

PROCEDURE  ADTNM {CONST  KEYE:ENTKEY;VAR  KEYL : LISTKEY ; 
VAR  RR:RET  REC) ; EXTERNAL; 


(*  *) 

{*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  ADD  AN  ENTITY  TO  THE  END  OF  AN  APPLICATION  LIST.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

{*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  -  *) 
(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  KEY  OF  ENTITY  TO  BE  ADDED.  *) 

(*  KEYL  I  KEY  OF  THE  APPLICATION  LIST  TO  WHICH  THE  *) 

(*  ENTITY  IS  ADDED.  *) 

(*  KEYL  0  THE  KEY  OF  THE  LIST  WITH  THE  ENTITY  ADDED  TO  *) 

(*  THE  END.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  -  0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

{*  UPDATED  DOCUMENTATION.  *) 

{*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  DECLARATION  OF  KEYL  TO  VAR.  *) 

(*  *) 

(* . *) 

(**) 

(*  END  %INCLUDE  ADTNM  *) 
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(*  ^INCLUDE  CHKDEL  *) 

(**) 

PROCEDURE  CHKDEL (CONST  KEYE:ENTKEY;  VAR  TEMP_DEL_LIST:LISTPNTR; 
VAR  MARK  L I ST : L I STKE Y ;  VAR  RR: RET  REC) ; EXTERNAL; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

CHECK  DELETABILITY  OF  A  GIVEN  ENTITY  BASED  ON  THE  RELATION¬ 
SHIP  BETWEEN  ITS  USERS  AND  ITSELF 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O 

mmmm  mmm 

KEYE  I 

TEMP_DEL_LIST  I/O 

MARK.LIST  I/O 

RR  0 

SCOMMONS: 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

SCOMMENTS: 

SCHANGE  CONTROL: 


DESCRIPTION 

ENTITY  WHOSE  DELETABILITY  IS  TO  BE 
CHECKED 

LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE 

ELIGIBLE  FOR  DELETE 

LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE 

MARKED 

RETURN  CODE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  CHKTDEL  *) 

(**) 

PROCEDURE  CHKTDEL (CONST  KEYE:ENTKEY;  VAR  MARK_L I ST : L I STKEY ; 
VAR  TEMP  DEL.LIST: LI STKEY;  VAR  RR:RET  REC) ; EXTERNAL; 


(**) 

(*~ 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


^FUNCTION: 

CHECK  DELETABILITY  OF  A  GIVEN  ENTITY  BASED  ON  THE  RELATION¬ 
SHIP  BETWEEN  ITS  USERS  AND  ITSELF 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


KEYE  I 

MARK.LIST  I/O 

TEMP_DEL_LIST  I/O 
RR  0 


ENTITY  WHOSE  DELETABILITY  IS  TO  BE 
CHECKED 

LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE 
TO  BE  MARKED  BY  MAED,  MAEDI 
LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE 
ELIGIBLE  FOR  DELETE  BY  MAED,  MAEDI 
RETURN  CODE 


SCOMMONS: 

S ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 


SPROCESSING  DESCRIPTION: 
SCOMMENTS: 

SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CMPCRB  *) 

(**) 

PROCEDURE  CMPCRB (VAR  CRB:CRBPNTR;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(*- . - . *) 

(*  *) 
(*  AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 


(*  VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  COMPREE  THE  CRB  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  -  *) 

(*  HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE  *) 

(*  »  0  OK  RETURN  CODE  *) 

(*  -  1  YOU  BLEW  IT  *) 

(*  -  2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  COMMONS:  *) 

(*  C0M1  *) 

(*  VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

(*  MUST  BE  PROVIDED  *) 

(*  VAR2  I  VAR2  MUST  BE  SPECIFIED  *) 

(*  COM2  *) 

(*  VAR3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

(*  FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC.  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 
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(*  YY/MM/DD  CCXX  I.  M.  APERSON 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  CMPCRB  *) 


*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  CNNODM.  *) 

(**) 

PROCEDURE  CNNODM (CONST  KEYEUrENTKEY; CONST  KEYEC : ENTKEY ; 

VAR  RR-.RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  CONNECT  TWO  ENTITIES. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  ENTITY  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  KEYEU  -  THE  KEY  OF  THE  ENTITY  TO  BE  THE  USER. 

(*  KEYEC  -  THE  KEY  OF  THE  ENTITY  TO  BE  THE  CONSTITUENT. 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  CODE. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  CNNODM.  *) 
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%PAGE 

(*  %INCLUDE  CNVOSP.  *) 

(**) 

PROCEDURE  CNVOSP (VAR  RR:RET_REC; CONST  ID: INTEGER; 

CONST  TH I S_ROUT INE: PGMNAME ;  VAR  RC : EXT  RET_CODE) ; EXTERNAL ; 

(**) 

V 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

CONVERT  THE  OUT  OF  CORE  SPACE  CONDTITION  TO  A  APPLICATION 
USER  RECOGNIZEABLE  FORM 

SDESCRIPTION  OF  ARGUMENTS: 


NAME 

RR 

ID 


I/O  DESCRIPTION 


RETURN  RECORD  TO  BE  CONVERTED 
INTEGER  ID  OF  THE  MAS  INTERFACE  ROUTINE 
THAT  ISSUED  THE  RETURN  CODE 


THIS_ROUTINE  I  CHARACTER  REPRESENTATION  OF  THE  INTERFACE*) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


RC 


SCOMMONS: 


ROUTINE  THAT  ISSUED  THE  RETURN  CODE 
EXTERNAL  RETURN  CODE 


0 

0 

0 


OK 

CRITICAL  ERROR 
WARNING 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

SPROCESSING  DESCRIPTION:  *) 

CONVERTS  THE  OUT  OF  CORE  SPACE  CONDITION  TO  APPLICATION  USER*) 
RECOQNIXEABLE  FORM 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SCOMMENTS: 
SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 


> 
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SFUNCTION: 

GET  THE  EXTERNAL  RETURN  CODE  CORRESPONDING  TO  THE  INTERNAL 
FORMAT. 


SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

RR 

I 

RETURN  RECORD  TO  BE  CONVERTED 

PGM_ID 

I 

INTEGER  ID  OF  THE  MAS  INTERFACE  ROUTINE 
THAT  ISSUED  THE  RETURN  CODE 

RC 

0 

EXTERNAL  RETURN  CODE 
-  0  OK 

ERROR 


%PAGE 

(*  %INCLUDE  CNVRR.  *) 

(**) 

PROCEDURE  CNVRR(CONST  RR:RET  REC;CONST  PGM_ID: INTEGER; 

CONST  PGM  NAME:  PGMNAME ;  VAR  RC : EXT_RET_CODE ) ; EXTERNAL ; 

(**) 

(*- 
(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


CRITICAL 

WARNING 


-*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

REVISED:  85/07/11  B.  A.  ULMER  FRMI  *) 

CHANGED  TO  ADD  ERROR  MESSAGE  AND  PROGRAM  NAME  TO  MSTATUS  COMMON*) 
WHEN  AN  INTERFACE  GETS  A  NONE  ZERO  RETURN  CODE  *) 

*) 


SCOMMONS: 

$ ENVIRONMENT: 
LANGUAGE: 


IBM  PASCAL 


HARDWARE  SYSTEM:  IBM  360/370/4341/438: 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

CONVERTS  THE  INTERNAL  RFTURN  CODE  TO  EXTERNAL  RETURN  CODE 
SCOMMENTS: 

SCHANGE  CONTROL: 
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%PAGE 

(*  %INCLUDE  CPYAUDB  *) 

(**) 

PROCEDURE  CPYAUDB (VAR  ENTBPNTR : ENTPNTR ; VAR  ENTDEF: ENTBLOCK; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* . 

(* 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC 

(* 

(*  FUNCTION: 

(*  STORE  THE  VALUE  OF  AN  APPLICATION  ENTITY  BLOCK  IN  AN 

(*  UNINITIALIZED  SYSTEM  UDB. 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  ENTDEF  I  ENTBLOCK  CONTAINING  THE  VALUES  TO  STORE. 

(*  ENTBPNTR  0  POINTER  TO  ENTBLOCK  CREATED. 

(*  RR  0  ERROR  CONDITION  RETURN  CODE. 

(*  =0  NORMAL  RETURN  CODE. 

(* 

(*  COMMONS: 

(* 

(*  PROCESSING  DESCRIPTION: 

(*  CPYAUDB  USES  AMPXMOVE  A  SYSTEM  ROUTINE.  AMPXMOVE  MOVES 

(*  DATA  FROM  MEMORY  TO  MEMORY  (THE  NUMBER  OF  BYTES  TO  MOVE 

(*  MUST  BE  SPECIFIED). 

(* 

(*  COMMENTS: 

(* 

(*  CHANGE  CONTROL: 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER 

(*  UPDATED  DOCUMENTATION. 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVL 

(*  CHANGED  DECLARATION  OF  ENTDEF  TO  VAR. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  CPYAUDB  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

•*) 
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(*  %INCLUDE  CPYCST.  *) 

(**) 

PROCEDURE  CPYCST (CONST  SCH_KEY  :  ENTKEY ; 

VAR  KEY1  :  LISTKEY; 

VAR  LISTJ.ENG  :  LISTSIZE; 

VAR  RR  :  RET  REC);  EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  ADD  THE  ENTITIES  IN  A  CONSTITUENT  LIST  INTO  A  LIST. 

(* 

(*  LANGUAGE 

(*  PASCAL 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  SCH-KEY  -  KEY  OF  A  CLASS  OR  ENTITY  COLLECTOR. 

(*  KEY1  -  KEY  OF  THE  LIST  ONTO  WHICH  THE  ENTITIES 

(*  WILL  BE  ADDED. 

(*  OUTPUT 

(*  LISTJ.ENG  -  TOTAL  LENGTH  OF  ALL  CNST  ADDED  TO  LIST. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  METHOD 

(*  IF  SCHJCEY  IS  AN  ENTITY  COLLECTOR,  THEN  ALL  CONSTITUENTS 

(*  ARE  ADDED  TO  THE  LIST.  IF  SCHJCEY  IS  A  CLASS  COLLECTOR, 

(*  'CPYCST'  IS  CALLED  RECURSIVELY  TO  PROCESS  THE  ENTITY 

(*  COLLECTORS  THAT  ARE  CONSTITUENTS  OF  SCHJCEY.  LIST  LENG  IS 

(*  ACCUMULATED  FOR  ALL  RECURSIONS. 

(* 

(* . 

(**) 

(*  tND  7.INCLUDE  CPYCST  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  CPYLSM.  *) 
(**) 

PROCEDURE  CPYLSM(CONST 

LISTFROM 

LISTPNTR; 

VAR 

POSITION 

LISTPSTN; 

VAR 

LISTTO 

LISTPNTR; 

VAR 

RR 

RET  REC); 

EXTERNAL; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 


FUNCTION 

COPY  THE  NON-VACANT  ELEMENTS  OF  LISTFROM  TO  LISTTO.  IF 
LISTTO  WAS  INITIALIZED,  IT  IS  DELETED  PRIOR  TO  COPYING. 
POSITION  IS  SET  TO  THE  BEGINNING  OF  LISTTO.  CURRENT  LENGTH 
OF  OF  LISTTO  IS  SET  TO  CURRENT  LENGTH  OF  LISTFROM. 

LANGUAGE 

PASCAL. 

PACKAGE 
LIST  PACKAGE. 

ARGUMENTS 

INPUT 

LISTFROM  -  POINTER  TO  SYSTEM  LIST  TO  BE  COPIED. 

OUTPUT 

LISTTO  -  POINTER  TO  SYSTEM  LIST  TO  WHICH  COPY  IS  MADE. 
POSITION  -  SET  TO  INDICATE  THE  BEGINNING  OF  LISTTO. 

RR  -  THE  FUNCTION  RETURN  RECORD. 


(**) 

(*  END  %INCLUDE  CPYLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  CPYNM.  *) 

(**) 

PROCEDURE  CPYNM(CONST  KEYL:LISTKEY;VAR  KEYLOUT: LISTKEY; 
VAR  RR : RET_REC ) ; EXTERNAL ; 


{**) 

(* . 

(* 

(*  FUNCTION 

(*  CREATE  A  NEW  LIST  WHICH  CONTAINS  A  COPY  OF  THE  ENTITIES 

(*  REFERENCED  BY  KEYL. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  KEYL 

(*  OUTPUT 

(*  KEYLOUT 

(* 

(*  RR 

(* 

(* . 

(**) 

(*  END  %INCLUDE  CPYNM.  *) 


-  KEY  OF  THE  LIST  TO  BE  COPIED. 

-  KEY  OF  THE  NEW  LIST  WHiCH  IS  A  COPY  OF  THE 
INPUT  LIST. 

-  THE  FUNCTION  RETURN  RECORD. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  CRCLST.  *) 

(**) 

PROCEDURE  CRCLST (CONST  KEYE:ENTKEY; CONST  LISTREF:LISTPNTR; 
VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* . 


(*  *) 

(*  FUNCTION  *) 

(*  CREATE  RELATIONS  BETWEEN  A  USER  ENTITY  AND  A  LIST  OF  *) 

(*  CONSTITUENTS.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  -  *) 
(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  THE  USER  ENTITY  OF  THE  RELATIONS.  *) 

(*  LISTREF  -  POINTER  TO  SYSTEM  LIST  OF  CONSTITUENTS.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 


(**) 

(*  END  7.INCLUDE  CRCLST.  *) 
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%PAGE 

(*  %INCLUDE  CRCNM.  *) 

(**) 

PROCEDURE  CRCNM (CONST  KEYE:ENTKEY; CONST  KEYL : LISTKEY ; 

VAR  RR: RET_REC) ; EXTERNAL ; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  CREATE  RELATIONS  BETWEEN  A  USER  ENTITY  AND  A  LIST  OF 

(*  CONSTITUENTS. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  KEYE  -  KEY  OF  THE  USER  ENTITY  OF  THE  RELATIONS. 

(*  KEYL  -  KEY  OF  LIST  OF  CONSTITUENT  ENTITIES. 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  7.INCLUDE  CRCNM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  CRDLST  *) 

(**) 

PROCEDURE  CRDLST(CONST  KEY1 :ANYKEY;VAR  CNSTS_SRTLST : LISTPNTR; 
VAR  RR: RET_REC) ; EXTERNAL ; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

CREATE  A  SORTED  INCLUSIVE  LIST  OF  AN  ENTITY  OR  A  LIST  OF 
ENTITIES  AND  THEIR  DIRECTAND  INDIRECT  CONSTITUENTS. 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


KEY1 

CNSTS  SRTLST 


RC 


I  AN  ENTITY  OR  LIST  OF  ENTITIES  TO  BE  PUT 
ON  A  LIST  WITH  THEIR  CONSTITUENTS. 

0  AN  INCLUSIVE  LIST  OF  AN  ENTITY  OR  LIST 
AND  THIER  DIRECT  AND  INDIRECT  CONSTS.  IN 
USER-CONSTITUENT  ORDER. 

0  EXTERNAL  RETURN  CODE 
-  0  OK  RETURN  CODE 
>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS: 

NONE 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


S EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 


SPROCESSING  DESCRIPTION: 

IF  KEY1  IS  AN  ENTKEY  THEN 

AN  INCLUSIVE  LIST  OF  THE  ENTITIES  CONSTITUENTS  IS  BUILT 
INCLUDING  KEY1 . 

IF  KEY1  IS  A  LIST  THEN 

A  LIST  OF  THE  INCLUSIVE  CONSTITUENTS  OF  THE  ENTITIES  ON 
KEY1  IS  CREATED,  INCLUDING  THE  ENTITIES  ON  KEY1 . 

SCOMMENTS: 

THE  OUTPUT  LIST  IS  SORTED  IN  USER-CONSTITUENT  ORDER. 
SCHANGE  CONTROL: 

REVISED:  04/26/85  E.  D.  SHREVE  W315 

CHANGED  TO  USE  THE  INTER  PROCESS  FLAG  (MAPROB). 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  02/18/85  B.  A.  ULMER  W315  *) 

(*  CHANGED  TO  IMPLEMENT  THE  CONST.  READ  BLOCK.  *) 

(*  *) 

(*  REVISED:  11/01/84  E.  D.  SHREVE  W315  *) 

(*  REMOVE  CALL  TO  DISPLSM  *) 

(*  *) 

(*  ORIGINATED:  08/23/84  C.  J.  SAMPLE  W315  *) 

(*  *) 

(* . *) 

(*END . - . . . - . *) 

(*  END  %INCLUDE  PROG_ID  *) 
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(*  %INCLUDE  CREMM.  *) 

(**) 

PROCEDURE  CREMM(CONST  KEYEU:ENTKEY; CONST  KEYEC:ENTKEY; 

VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* .  . 

(* 

(*  FUNCTION 

(*  CREATE  A  USER-CONSTITUENT  RELATION  BETWEEN  ENTITIES. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  ENTITY  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  KEYEU  -  KEY  OF  ENTITY  TO  BE  THE  USER. 

(*  KEYEC  -  KEY  OF  ENTITY  TO  BE  THE  CONSTITUENT. 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  CREMM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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k) 


$ FUNCTION: 

CREATES  THE  USER'S  RULES.  RULES  OF  CONNECTIVITY  USED  TO 
DETERMINE  DELETABILITY  OF  ENTITIES. 

SDESCRIPTION  OF  ARGUMENTS: 


I/O  DESCRIPTION 


%PAGE 

(*  %INCLUDE  CRURUL. 

(**) 

PROCEDURE  CRURUL (CONST  ENTITY_TYPE : ORD_KIND ; VAR  GROUP :T_GROUP_ARRAY; 
VAR  NUM_GROUP : L I STPSTN ;  VAR  MIN_CNST:LISTPSTN) ; EXTERNAL; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


NAME 

BBSS 

ENTITY  TYPE 


GROUP 


NUM_GROUP 
MIN  CNST 


RC 


SCOMMONS: 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

??????ARE  SET  TO  INDICATE  IF  THE  RELATIONSHIP  BETWEEN  THE 
USER  AND  ITS  CONSTITUTES  IS  DEPENDENT  OR  INDEPENDENT  AND 
STRONG  OR  WEAK. 

DEFAULT  RULE  IS  DEPENDENT/STRONG. 

SCOMMENTS: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


*) 

*) 


I  ENTITY  KIND  VALUE  WHICH  WILL  HAVE  THE 
DELETE  RULE 

0  ARRAY  THAT  WILL  BE  PILLED  WITH  THE  RULES  *) 
AND  NUMBER  OF  CONSTITUENTS  OF  EACH 
DIFFERENT  RELATIONSHIP  THAT  THIS  ENTITY 
KIND  CAN  HAVE  WITH  ITS  CONSTITUENTS 
0  NUMBER  OF  DIFFERENT  RELATIONSHIPS  THIS 
ENTITY  CAN  HAVE  WITH  ITS  CONSTITUENTS 
0  MINIMUM  NUMBER  OF  CONSTITUENTS  THAT  THIS 
ENTITY  CAN  HAVE  WHEN  IT  HAS  A  GROUP  OF 
CONSTITUENTS  THAT  ARE  "SECONDARY" 

0  EXTERNAL  RETURN  CODE 
-  0  OK  RETURN  CODE 
>  0  CRITICAL  ERROR 
<  0  WARNING 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


$ CHANGE  CONTROL:  *) 

*) 

REVISED:  06/19/86  B.  A.  ULMER  FRMI  *) 

REDO  LOGIC  OF  HOW  CRURUL  WORKS  BASED  ON  THE  NEW  DELETE  RULES  *) 

*) 

REVISED:  09/  /85  B.  A.  ULMER  FRMI  *) 

ADD  ENTITY  KINDS  SO  AS  TO  TEST  THE  NEW  DELETE  RULES  (2070,  *) 

2080,  2090)  *) 

*) 

REVISED:  09/  /85  B.  A.  ULMER  FRMI  *) 

ADD  PARAMETERS  TO  HANDLE  THE  TWO  NEW  DELETE  RULES  *) 

*) 

REVISED:  09/18/84  D.  J.  KERCHNER  FRMI  *) 

ADDED  I/S  RULE  FOR  THE  PICK  ENTITY  *) 

*) 
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(*  %INCLUDE  DELALNL  *) 

(**) 

PROCEDURE  DELALNL (VAR  STACK_KEY:LISTPNTR;VAR  RR:RET_REC) ; EXTERNAL; 
(**) 

(* .  .  . 

(* 

(*  FUNCTION 

(*  DISPOSE  OF  ALL  APPLICATION  LISTS  IN  THE  WORKING  FORM  MODEL. 

(* 

(*  LANGUAGE 

(*  PASCAL 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  STACK_KEY  -  STACK  OF  LISTS. 

(*  OUTPUT 

(*  RC  -  THE  FUNCTION  RETURN  CODE. 

(* 

(*  METHOD 

(*  EACH  LIST  IN  THE  STACK_OF_LI$TS  IS  PROCESSED.  EACH 

(*  APPLICATION  LIST  ON  THESE  LISTS  IS  DISPOSED. 

(* 

(* 

(* . 

(**) 

(*  END  %INCLUDE  DELALNL  *) 


*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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(*  %INCLUDE  DELCNST  *) 

(**) 

PROCEDURE  DELCNST(CONST  KEYE:ENTKEY;  VAR  TEMP  DEL_LIST:LISTPNTR; 
VAR  MARK_L I ST : L I STKE Y ;  VAR  RR:RET  REC) ; EXTERNAL; 


(*  *) 

(*  SFUNCTION:  *) 

(*  DETERMINES  THE  DELETABILITY  OF  GIVEN  ENTITY'S  CONSTITUENTS  *) 

(*  BASED  ON  THE  RELATIONSHIP  THE  CONSTITUENT  HAS  WITH  ITS  USERS*) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  ENTITY  WHOSE  CONSTITUENTS  WILL  HAVE  THEIR*) 

(*  DELETABILITY  DETERMINED  *) 

(*  TEMP_DEL_LIST  I/O  LIST  WHICH  CONTAINS  -ENTITIES  THAT  ARE  *) 

(*  ELIGIBLE  FOR  DELETE  *) 

(*  MARKJ.IST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

(*  MARKED  *) 

(*  RR  0  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  ^INCLUDE  DELCRBE  *) 

(**) 

PROCEDURE  DELCRBE (VAR  CRB:CRBPNTR;  CONST  EKEY : ENTKEY ; 
VAR  RR : RET.REC ) ; EXTERNAL ; 

(**) 

(* . 


(*  *) 
(*  AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 

(*  VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  DELETE  A  CRB  ENTRY  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  -  *) 
(*  EXECUTION  PROCEDURE:  *) 

(*  HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

(*  EKEY  I  ENTITY  KEY  OF  ENTRY  TO  BE  DELETED  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE  *) 

(*  *  0  OK  RETURN  CODE  *) 

(*  =  1  YOU  BLEW  IT  *) 

(*  =  2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  COMMONS:  *) 

(*  C0M1  *) 

(*  VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

(*  MUST  BE  PROVIDED  *) 

(*  VAR2  I  VAR2  MUST  BE  SPECIFIED  *) 

(*  COM2  *) 

(*  VAR3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

(*  FILES  NEED  TO  BE  OPENED/ClOSED,  FILES  USED,  ETC.  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 
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(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 

(*  NARRATION  ON  THE  NEXT  LINE. 

(*  YY/MM/DD  CCXX  I.  M.  APERSON 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 

(* .  . 

(**) 

(*  END  ^INCLUDE  DELCRBE  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  DELEMM.  *) 

(**) 

PROCEDURE  DELEMM (VAR  KEYE:ENTKEV;VAR  RR:RET_REC) ;  EXTERNAL; 

(**) 

(* .  .  . *) 

(*  *) 

(*  FUNCTION  *) 

(*  DELETE  ALL  REFERENCES  TO  THIS  ENTITY  FROM  ALL  APPLICATION  *) 

(*  LISTS  AND  DISPOSE  OF  THE  ENTITY.  TO  COMPLETE  DELETE  ACTION  *) 

(*  REQUIRES  BREAKING  ALL  USER  AND  CONSTITUENT  CONNECTIONS.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  ENTITY  PACKAGE.  *) 

(*  -  *) 
(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  THE  ENTITY  TO  BE  DELETED.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  METHOD  *) 

(*  AN  ENTRY  IN  AN  APPLICATION  LIST  HAS  A  FORM  OF  INT.ITEM.  *) 

(*  ALL  REFERENCES  TO  IT  WILL  BE  DELETED.  THE  USER  WILL  NEVER  *) 

(*  DIRECTLY  DELETE  ENTITIES  OF  FORM  INT_ROOT.  THESE  ARE  ONLY  *) 

(*  DELETED  AS  A  RESULT  OF  THE  CLEANUP  ASSOCIATED  WITH  THE  *) 

(*  DELETION  OF  AN  NDS.  *) 


(*  END  %INCLUDE  DELEMM.  *) 
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(*  %INCLUDE  DELENTY. 

(**) 

PROCEDURE  DELENTY {VAR  KEYE:ENTKEY;VAR  DEL_LST : LISTPNTR; 
VAR  POSITION: INTEGER;VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

{* . 


i* 

V 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

(* 

(*- 


SFUNCTION: 

DELETE  THE  ENTITY. 


NAME 

KEYE 

DEL_LST 

RC 


*) 
*) 
*) 
*) 
*) 
*) 

sssrazaaseasK  *) 

ENTITY  TO  BE  DELETED  *) 

LIST  OF  ENTITIES  KEYS  ELIGIBLE  FOR  DELETE*) 
EXTERNAL  RETURN  CODE 
-  0  OK  RETURN  CODE  - 
>  0  CRITICAL  ERROR 
<  0  WARNING 


I/O  DESCRIPTION 


I 

0 

0 


SCOMMONS: 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

THE  ENTITY'S  CONSTITUENTS  LIST  IS  READ  AND  IF  A  CONSTITUENT 
IS  MARKED  FOR  DELETION,  THEN  DELRUL  IS  CALLED  TO  DETERMINE 
IF  THE  CONSTITUENT  MAY  ALSO  BE  DELETED.  AFTER  ALL 
CONSTITUENTS  ARE  READ,  THE  ENTITY  IS  DELETED  (REMOVED  FROM 
USERS  AND  CNSTS  LISTS  AND  DISPOSED  OF.) 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  09/05/85  B.  A.  ULMER  FRMI 

ADDED  CODE  TO  HANDLE  THE  TWO  NEW  DELETE  RULES 


REVISED:  02/18/85  B.  A.  ULMER 
CHANGED  THE  STRUCTURE  OF  THE  INTERNAL 
OF  THE  CRB 


FRMI 

ITEM  FOR  IMPLEMENTATION 


ORIGINATED:  06/21/84 


C.  J.  SAMPLE 


FRMI 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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(*— 

(* 

(*— 

(* 

(*END 

(**) 


DATA  STRUCTURES/MAJOR  VARIABLES: 


(*  END  %INCLUDE  DELENTY  *) 


*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  DELPLST.  *) 

(**) 

PROCEDURE  DELPLST(CONST  INCREMENT: LISTSIZE ; CONST  IPOS : LISTINDX ; 
VAR  POSITION: LISTPSTN;VAR  L I STREF : L I STPNTR ; VAR  RR:RET_REC) ; 
EXTERNAL; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  SCOMMONS: 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  REVISED:  12/30/85  B.  A.  ULMER  FRMI 

(* 

(* 


•*) 

*) 

*) 

*) 

*) 

*) 


SFUNCTION: 
REMOVE  AN 


ENTITY  FROM  A  SPECIFIED  POSITION  IN  A  SYSTEM  LIST 


SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

*) 

*) 

*) 

INCREMEN 

I 

NUMBER  OF  ENTITIES  BY  WHICH  SYSTEM  LIST 

LIST  IS  EXPANDED  OR  REDUCED 

*) 

IPOS 

I 

POSITION  IN  THE  LIST*  FROM  WHICH  THE 

*) 

ENTITY  WILL  BE  REMOVED 

*) 

POSITION 

I/O 

LAST  LOCATION  ON  THE  SYSTEM  LIST  THAT  WAS*) 

PROCESSED 

*) 

LISTREF 

I 

POINTER  TO  SYSTEM  LIST  FROM  WHICH  ENTITY 

*) 

WILL  BE  REMOVED 

*) 

RC 

0 

EXTERNAL  RETURN  CODE 

*) 

0  OK  RETURN  CODE 

1  YOU  BLEW  IT 

2  THE  ROUTINE  BLEW 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


IT 


$ EXECUTION  PROCEDURE: 
INTERNAL  PROCEDURE 


FOR  THE  MODEL  ACCESS  SOFTWARE 


SPROCESSING  DESCRIPTION: 

SHIFT  ALL  FOLLOWING  ENTITIES  UP  UNTIL  ALL  VACANT  ENTITIES 
ARE  AT  THE  END  OF  THE  LIST.  RECALCULATE  THE  POSITION  IF 
IT  WAS  AFFECTED  BY  THIS  REMOVAL.  IF  MORE  THAN  INCREMENT 
ENTITIES  ARE  VACANT,  THEN  COMPRESS  THE  LIST  BY  REMOVING 
THE  INCREMENT  ENTITIES. 

SCOMMENTS: 


SCHANGE  CONTROL: 

REVISED:  12/30/85  B.  A.  ULMER 

ADD  PROCESSING  FOR  LARGE  LISTS 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

REVISED:  02/06/85 

E.  D. 

SHREVE 

FRMI 

(* 

(* 

(* 

TEST  FOR  NIL  POINTER 

REVISED:  12/24/84 

R.  A. 

MCCLUSKEY 

FRMI 

(*  ADDED  SYSTEM  LIST  CURRENT  LENGTH  INDICATOR  --  LSTLNM 
(* 
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(*  %INCLUDE  DELPNLA.  *) 

(**) 

PROCEDURE  DELPNLA(VAR  POSITION: LISTPSTN;  VAR  LISTA:LISTPNTR; 

VAR  RR:RET  REC) ;  EXTERNAL; 

(**) 

(* . 

(* 

(*  {FUNCTION 

(*  DELETE  ALL  APPL  LISTS  AFTER  A  SPECIFIED  POSITION  IN  THE 

(*  LIST  OF  LISTS  EXCEPT  THOSE  THAT  ARE  'LOCKED'. 

(* 


(* 

(* 

{DESCRIPTION 

NAME 

OF  ARGUMENTS 
I/O 

DESCRIPTION 

(* 

sssat 

=  =  =  =  =  1=  =  ^*=:= 

(* 

POSITION 

I 

POSITION  IN  LISTA  TO 

START  DELETE. 

(* 

LISTA 

I 

LIST  OF  LISTS  SYSTEM 

LIST 

(* 

RR 

0 

RETURN  CODE 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

{COMMONS 

NONE 

{ENVIRONMENT: 

LANGUAGE: 

IBM  PASCAL 

-0  GOOD  RETURN 
>0  CRITICAL  ERROR 
<0  WARNING 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  {EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  OF  THE  MODEL  ACCESS  SOFTWARE 

(* 

(*  {PROCESSING  DESCRIPTION: 

(*  STARTING  WITH  THE  INPUT  POSITION,  EACH  APPL  LIST  ON  THE 

(*  INPUT  LIST_OF_LISTS  (LISTA)  IS  PROCESSED.  IF  THE  LIST 

(*  IS  'LOCKED'  (DELTFLG  «  NODEL),  THE  LISTKEY  IS  PLACED  ON  A 

(*  TEMPORARY  LIST;  ELSE,  THE  LIST  IS  DELETED.  AFTER  ALL 

(*  ENTRIES  ARE  PROCESSED,  THE  TEMPORARY  LIST  IS  MERGED  WITH 

(*  ANY  ENTRIES  STILL  REMAINING  ON  LISTA. 

(* 

(*  {CHANGE  CONTROL: 

(* 

(*  ORIGINATED:  04/23/85  E.  D.  SHREVE  W315 

(*— . 

(**) 

(*END  %INCLUDE  DELPNLA.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  OELRLSM.  *) 

(**) 

PROCEDURE  DELRLSM( CONST  INCREMENT:LISTSIZE;CONST  KEYE:ENTKEY; 
VAR  POSITION : LISTPSTN ; VAR  LISTREF : LISTPNTR; VAR  RR:RET_REC) ; 
EXTERNAL; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 
*) 
*) 
*) 
*) 
*) 
*) 

NUMBER  OF  ENTITIES  BY  WHICH  A  SYSTEM  LIST*) 
LIST  IS  EXPANDED  OR  REDUCED  *) 

KEY  OF  THE  ENTITY  TO  BE  REMOVED  FROM  THE  *) 


SFUNCTION: 
REMOVE  AN 


ENTITY  FROM  A  SYSTEM  LIST. 


SDESCRIPTION  OF  ARGUMENTS 


NAME 

INCREMENT 

KEYE 

POSITION 


LISTREF 

RC 


I/O  DESCRIPTION 


I 


LIST 

I/O  LOCATION  ON  THE  SYSTEM  LIST  OF  ENITY 

TO  BE  PROCESSED  --  UPDATED  LOCATION  OF 
ENTITY  ORIGINALLY  INDICATED  BY  POSITION 
I  POINTER  TO  SYSTEM  LIST  FROM  WHICH  ENTITY 
WILL  BE  REMOVED 
0  EXTERNAL  RETURN  CODE 

-  0  OK  RETURN  CODE 

-  1  YOU  BLEW  IT 

=  2  THE  ROUTINE  BLEW  IT 


5COMMONS : 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 
HARDWARE  SYSTEM:  IBM 


360/370/4341/4381 


SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

SHIFT  ALL  FOLLOWING  ENTITIES  UP  UNTIL  ALL  VACANT  ENTITIES 
ARE  AT  THE  END  OF  THE  LIST.  RECALCULATE  THE  POSITION  IF 
IT  WAS  AFFECTED  BY  THIS  REMOVAL.  IF  MORE  THAN  INCREMENT 
ENTITIES  ARE  VACANT,  THEN  COMPRESS  THE  LIST  BY  REMOVING 
THE  INCREMENT  ENTITIES. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  12/30/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  PROCESSING  FOR  LARGE  LISTS  *) 

(*  *) 

(*  REVISED:  12/24/84  R.  A.  MCCLUSKEY  FRMI  *) 

(*  ADDED  SYSTEM  LIST  CURRENT  LIST  INDICATOR  --  LSTLNM  *) 

(*  *) 
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(*  %INCLUDE  DELRUL  *) 

(**) 

PROCEDURE  DELRUL (VAR  KEYE:ENTKEY;VAR  DEL_L I ST : L I STPNTR ; VAR 
MARK _L I ST : L I STKE Y ; VAR  RR:RET  REC) ; EXTERNAL; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

DELETE  AN  ENTITY  ACCORDING  TO  THE  DELETE  RULES. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME 


KEYE 

DEL.LST 

MARK_LIST 

RC 


SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

???????  TY'S  USER  LIST  IS  READ  AND  THE  DELETE  RULES  FOR 
EACH  USER  ARE  CHECKED  TO  DETERMINE  IF  ENTITY  CAN  BE  DELETED. 
IF  UNABLE  TO  DELETE  THE  ENTITY  THEN  CHECK  IF  THE  USER  IS  ON 
THE  DELETE  LIST.  IF  ON  THE  LIST  THEN  DELETE  THE  ENTITY  ELSE 
MARK  IT  FOR  DELETE.  IF  UNABLE  TO  MARK  FOR  DELETE  THEN  ADD 
ENTITY  TO  THE  EXCEPTION  LIST. 

SCOMMENTS: 

THE  DELETE  RULES  ARE  STORED  IN  THE  INSTANCE  COLLECTOR  OF  AN 
ENTITY'S  USER  AS  DEPENDENCE  AND  STRENGTH  FLAGS.  DEPENDENCE 
IS  DEFINED  AS  DEPENDENT  (TRUE)  OR  INDEPENDENT  (FALSE). 
STRENGTH  IS  DEFINED  AS  DEPENDENT  (TRUE)  OR  INDEPENDENT 
(FALSE). 

IF  THERE  EXISTS  A  DEPENDENT/STRONG  USER  CONNECTION,  THEN 
THE  ENTITY  MAY  NOT  BE  DELETED. 


I/O  DESCRIPTION 


I  ENTITY  TO  BE  DELETED  OR  MARKED  FOR 
DELETION 

I  LIST  OF  KEYS  THAT  ARE  ELIGIBLE  FOR 
DELETION 

0  LIST  OF  ENTITIES  WHICH  HAVE  BEEN  MARKED 
0  EXTERNAL  RETURN  CODE 
=  0  OK  RETURN  CODE 
>  0  CRITICAL  ERROR 
<  0  WARNING 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  IF  THERE  EXISTS  A  DEPENDENT/WEAK  USER  CONNECTION,  BUT  NO 

(*  DEPENOENT/STRONG  CONNECTION  THEN  THE  ENTITY  IS  MARKED  FOR 

(*  DELETION  AND  IF  ANY  OF  ITS  USER  CONNECTIONS  WERE 

(*  INDEPENDENT/WEAK,  THEN  IT  IS  DISCONNECTED  FROM  THOSE 

(*  INDEPENDENT/WEAK  USER  CONNECTIONS. 

(*  IF  THERE  ARE  NO  DEPENDENT/STRONG  NOR  DEPENDENT/WEAK 

(*  USER  CONNECTIONS  OR  NO  USERS  AT  ALL,  THEN  THE  ENTITY  IS 

(*  DELETED  AND  ITS  CONSTITUENTS  ARE  PROCESSED  THE  SAME  AS 

(*  THE  ENTITY  WAS. 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  09/02/86  B.  A.  ULMER  DBMA 

(*  REMOVE  DUPLICATE  ENTITTES  FROM  DELETE  LIST  -  CAUSES  A  PROBLEM 

(*  WHEN  AN  ENTITY  HAS  THE  SAME  CNST  TWICE 

(* 

(*  REVISED:  06/19/86  B.  A.  ULMER  FRMI 

(*  MAJOR  REWRITE  DUE  TO  NEW  DELETE  RULES 
(* 

(*  REVISED:  12/17/85  B.  A.  ULMER  FRMI 

(*  FIX  PROBLEM  WITH  CODE  FOR  NEW  DELETE  RULES 
(* 

(*  REVISED:  09/05/85  B.  A.  ULMER  FRMI 

(*  ADD  CODE  TO  HANDLE  THE  TWO  NEW  DELETE  RULES 
(* 

(*  ORIGINATED:  06/15/84  C.  J.  SAMPLE  FRMI 

(* 

(* . . . 

%PAGE 

(* . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(* .  .  . 

(* 

(*END . 

(**) 

(*  END  %INCLUDE  DELRUL.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  DELSCH.  *) 

(**) 

PROCEDURE  DELSCH(CONST  KEYE:ENTKEY;VAR  RR:RET_REC) ; EXTERNAL; 
(**) 

(* . 

(* 

(*  FUNCTION 

(*  DISCONNECT  AN  INTERNAL  ITEM  FROM  THE  CORRECT  PORTION  OF 

(*  THE  NDS  SUPERSTRUCTURE. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  SCHEMA  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  KEYE  -  KEY  OF  THE  INTERNAL  ITEM  TO  BE  DETACHED. 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  CHANGE  CONTROL 

(*  CHANGED:  12/14/84  E.  SHREVE  -  TO  DELETE  THE  INSTANCE 

(*  COLLECTOR  IF  ALL  IT'S  CNSTS  ARE  DELETED. 

(* . 

(**) 

(*  END  %INCLUDE  DELSCH.  *) 
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(*  %INCLUDE  DELTLSM.  *) 

(**) 

PROCEDURE  DELTLSM (CONST  INCREMENT : LISTS IZE ; VAR  L ISTREF *  LISTPNTR ; 
VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(**) 


{FUNCTION: 

REMOVES  THE  LAST  NON-VACANT  ENTITY  REFERENCE  IN  A  LIST. 
IF  THIS  REMOVAL  PRODUCES  MORE  THAN  INCREMENT  VACANT 
ENTITIES  AT  THE  BOTTOM  OF  THE  LIST,  THEN  THE  VACANT 
ENTITIES  ARE  ELIMINATED. 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


LISTREF 

INCREMENT 


LIST  WHOSE  LAST  ENTITY  IS  TO  BE  REMOVED 

MAXIMUM  NUMBER  OF  VACENT  ENTITIES  THE 

LAST  MIGHT  CONTAIN 

EXTERNAL  RETURN  CODE 

=0  OK  RETURN  CODE 

-  1  YOU  BLEW  IT 

*  2  THE  ROUTINE  BLEW  IT 


{COMMONS: 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
{PROCESSING  DESCRIPTION: 

{COMMENTS: 

{CHANGE  CONTROL: 

REVISED:  12/30/85  B.  A.  ULMER 

ADD  PROCESSING  FOR  LARGE  LISTS 


REVISED:  12/24/84  R.  A.  MCCLUSKEY 

ADDED  SYSTEM  LIST  CURRENT  LENGTH  INDICATOR  --  LSTLNM 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  DETCLST.  *) 

(**) 

PROCEDURE  DETCLST(CONST  KEYE:ENTKEY;VAR  DUST :  LISTKEY ; 

VAR  MUST:  LISTKEY;  VAR  EL  I  ST:  LISTKEY;  VAR  RR :  RET_REC ) ;  EXTERNAL ; 

(**) 

(* . 

(* 

(*  $ FUNCTION: 

(*  CHECK  THE  CONSTITUENTS  OF  A  MARKED  ENTITY  OR  AN  ENTITY  ON 

(*  THE  MARKLIST  TO  DETERMINE  IF  THE  CONSTITUENTS  MAY  ALSO  BE 


(* 

(* 

(* 

TESTED  FOR 

DELETION 

• 

SDESCRIPTION  OF 

ARGUMENTS: 

(* 

NAME 

I/O 

DESCRIPTION 

(* 

ZS3  = 

=  =  = 

(* 

(* 

KEYES 

I 

ENTITY  WHOSE  CONSTITUENTS  ARE  TO 
TESTED  FOR  DELETION  - 

BE 

(* 

DLIST 

I/O 

ENTITIES  THAT  MAY  BE  DELETED 

(* 

MLIST 

I/O 

ENTITIES  THAT  MAY  BE  MARKED  FOR 

DELETION 

(* 

(* 

ELIST 

I/O 

ENTITIES  THAT  MAY  NOT  BE  MARKED 
DELETION  NOR  DELETED 

FOR 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

RC 

SCOMMONS: 

SENVIRONMENT: 

0 

EXTERNAL  RETURN  CODE 
=0  OK  RETURN  CODE 
>  0  CRITICAL  ERROR 
<  0  WARNING 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DETCLST  IS  CALLED  AFTER  IT  HAS  BEEN  DETERMINED  THAT  THE 

(*  KEYE  IS  MARKED  FOR  DELETION  OR  IS  ON  THE  MARK  FOR  DELETION 

(*  LIST.  THE  KEYE'S  CONSTITUENTS  ARE  CHECKED.  IF  MARKED  FOR 

(*  DELETION  THEN  TEST  THEM  FOR  DELETION. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  09/06/85  B.  A.  ULMER  FRMI 

(*  ADDED  CODE  TO  HANDLE  THE  TWO  NEW  DELETE  RULES 
(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  02/18/85  B.  A.  ULMER  FRMI  *) 

(*  CHANGED  THE  STRUCTURE  OF  THE  INTERNAL  ITEM  FOR  IMPLEMENTATION  *) 
(*  OF  THE  CRB  *) 

(*  *) 

(*  ORIGINATED:  07/10/84  C.  J.  SAMPLE  FRMI  *) 

{*  *) 

(* . *) 

%PAGE  *) 

(* .  .  . *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* . - . *) 

(*  *) 

(*END . - . *) 

(**) 

(*  END  ^INCLUDE  DETCLST.  *) 
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%PAG£ 

(*  ^INCLUDE  DETCNST  *) 

(**) 

PROCEDURE  DETCNST(CONST  KEYE:ENTKEY;  VAR  MARK  LIST : LISTKEY ; 
VAR  TEMP_DEL_LIST: LISTKEY;  VAR  RR:RET  RECj; EXTERNAL; 


(**) 

(*" 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

SFUNCTION:  *) 

DETERMINES  THE  DELETABILITY  OF  GIVEN  ENTITY'S  CONSTITUENTS  *) 

BASED  ON  THE  RELATIONSHIP  THE  CONSTITUENT  HAS  WITH  ITS  USERS*) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

KEYE  I  ENTITY  WHOSE  CONSTITUENTS  WILL  HAVE  THEIR*) 

DELETABILITY  DETERMINED  *) 

MARK_LIST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

MARKED  *) 

TEMP_DEL_LIST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

ELIGIBLE  FOR  DELETE  *) 

RR  0  RETURN  CODE  *) 

*) 

$ COMMONS:  *) 

*) 

SENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

$ EXECUTION  PROCEDURE:  *) 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

*) 

SCOMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

*) 
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(*  %INCLUDE  DETRUL  *) 

(**) 

PROCEDURE  DETRUL (CONST  KEYE:ENTKEY;VAR  MARK  LIST: LISTKEY; 
VAR  DEL_L 1ST: LISTKEY; VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 
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SFUNCTION: 

TEST  DELETE  OF  AN  ENTITY  ACCORDING  TO  THE  DELETE  RULES. 


SDESCRIPTION  OF  ARGUMENTS: 


ML  I  ST 
DLIST 
RC 


SCOMMONS: 


DESCRIPTION  *) 

- -  *) 

ENTITY  TO  TESTED  FOR  DELETION  OR  MARK  FOR*) 

DELETION  *) 

LIST  OF  ENTITIES  WHICH  MAY  BE  MARKED  *) 

LIST  OF  ENTITIES  WHICH  MAY  BE  DELETED  *) 

EXTERNAL  RETURN  CODE  *) 

=0  OK  RETURN  CODE  *) 

>  0  CRITICAL  ERROR  *) 

<  0  WARNING  *) 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

?????  TITY'S  USERS  LIST  IS  READ  AND  THE  DELETE  RULES  FOR 
EACH  USER  ARE  CHECKED  TO  DETERMINE  IF  THE  ENTITY  CAN  BE 
DELETED. 

THE  DELETE  RULES  ARE  STORED  IN  THE  INSTANCE  COLLECTOR  OF  AN 
ENTITY'S  USER  AS  DEPENDENCE  AND  STRENGTH  FLAGS.  DEPENDENCE 
IS  DEFINED  AS  DEPENDENT  (TRUE)  OR  INDEPENDENT  (FALSE). 
STRENGTH  IS  DEFINED  AS  DEPENDENT  (TRUE)  OR  INDEPENDENT 
(FALSE). 

IF  THERE  EXISTS  A  DEPENDENT/STRONG  USER  CONNECTION,  THEN 
THE  ENTITY  MAY  NOT  BE  DELETED  AND  IT  IS  ADDED  TO  THE 
EXCEPTION  LIST. 

IF  THERE  EXISTS  A  DEPENDENT/WEAK  USER  CONNECTION,  BUT  NO 
DEPENDENT/STRONG  CONNECTION  THEN  THE  ENTITY  CAN  BE 
MARKED  FOR  DELETION  AND  ADDED  TO  THE  MARK  LIST. 

IF  THERE  ARE  NO  DEPENDENT/STRONG  USER  CONNECTIONS, 

NO  DEPENDENT/WEAK  USER  CONNECTIONS, 

NO  USERS  AT  ALL,  OR 

ALL  USERS  ARE  ON  THE  DELETE  LIST, 
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(*  THEN 

(*  THE  ENTITY  IS  DELETABLE  AND  ADDED  TO  THE  DELETE  LIST. 

(*  IF  THE  ENTITY  IS  MARKED  FOR  DELETION  OR 

(*  IS  ON  THE  MARK  LIST, 

(*  THEN 

(*  ITS  CONSTITUENTS  ARE  PROCESSED  THE  SAME  AS  THE  ENTITY. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  06/19/86  B.  A.  ULMER  FRMI 

(*  MAJOR  REWRITE  DUE  TO  THE  NEW  DELETE  RULES 
(* 

(*  REVISED:  04/18/86  E.  D.  SHREVE  FRMI 

(*  TO  SET  DELETE  RULES  ONLY  WHEN  USER  IS  NOT  IN  DELIST 
(* 

(*  REVISED:  09/06/85  B.  A.  ULMER  '  FRMI 

(*  ADDED  CODE  TO  HANDLE  THE  TWO  NEW  DELETE  RULES 
(* 

(*  ORIGINATED:  06/28/84  C,  J.  SAMPLE  FRMI 

(* 

(* . 

%PAGE 

(* . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(* .  . 

(* 

(*END . . — . 

(**) 

(*  END  %INCLUDE  DETRUL.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  DIFLSM.  *) 

(**) 

PROCEDURE  DIFLSM(CONST  LISTl:LISTPNTR;CONST  LIST2:LISTPNTR; 

VAR  POSITION :LISTPSTN; VAR  LIST0UT:L1STPNTR;VAR  RR:RET_REC) ; 
EXTERNAL; 


(**) 

(* . 

(* 

(*  FUNCTION 

(*  CREATE  A  SYSTEMS  LIST  CONSISTING  OF  ALL  ENTITIES  IN  LISTl 

(*  THAT  ARE  NOT  IN  LIST2. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  LISTl,  LIST2  -  THE  LISTS  WHOSE  DIFFERENCE  IS  TO  BE  FOUND. 

(*  OUTPUT 

(*  LISTOUT  -  LIST  CONTAINING  THE  DIFFERENCE  OF  THE 

(*  TWO  LISTS. 

(*  POSITION  -  INTEGER  INDICATING  BEGINNING  OF  LISTOUT. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* .  . 

(**) 

(*  END  %INCLUDE  DIFLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  DISPCRB  *) 

(**) 

PROCEDURE  DISPCRB(VAR  CRB:CRBPNTR;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* . *) 

(*  *) 

(*  AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 

(*  VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 


(*  *) 

(*  FUNCTION:  *) 

(*  DISPOSE  OF  CRB  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  -  *) 

(*  HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE  *) 

(*  -0  OK  RETURN  CODE  *) 

(*  -  1  YOU  BLEW  IT  *) 

(*  =2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  COMMONS:  *) 

(*  C0M1  *) 

(*  VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

(*  MUST  BE  PROVIDED  *) 

(*  VAR2  I  VAR2  MUST  BE  SPECIFIED  *) 

(*  COM2  *) 

(*  VAR3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

(*  FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC.  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 
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(*  YY/MM/DD  CCXX  I.  M.  APERSON 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  DISPCRB  *) 


*) 

*) 

*) 

*) 
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(*  %INCLUDE  DISPEMM.  *) 

(**) 

PROCEDURE  DISPEMM(VAR  KEYE:ENTKEY;VAR  RR:RET_REC) ;  EXTERNAL; 
(**) 

(* . - . 

(* 

(*  FUNCTION 

(*  RELEASE  ALL  SPACE  ALLOCATED  TO  AN  ENTITY.  NO  DANGLING 

(*  REFERENCES  TO  THIS  ENTITY  SHOULD  EXIST  IN  AN  NDS  OR 

(*  NODELIST. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  ENTITY  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  KEYE  -  KEY  OF  THE  ENTITY  TO  BE  DISPOSED. 

(*  OUTPUT 

(*  KEYE  -  SET  TO  NIL. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  CHANGE  CONTROL 

(*  CHANGED:  12/10/84  J.  JOHNSON  -  TO  CALL  'MASDSP' 

(* . 

(**) 

(*  END  %INCLUDE  DISPEMM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  DISPKND  *) 

(**) 

PROCEDURE  DISPKND(CONST  KEYC:ENTKEY;VAR  RR:RET  REC) ; EXTERNAL; 
(**) 

(* . 

(* 

(*  FUNCTION 

(*  DISPOSE  OF  ALL  ENTITIES  OF  A  SPECIFIC  INSTANCE  COLLECTOR 

(* 

(*  LANGUAGE 
(*  PASCAL 

(* 

(*  PACKAGE 

(*  ENTITY  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  KEYC  -  KEY  OF  A  COLLECTOR  NODE. 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  CODE. 

(* 

(*  METHOD 

(*  IF  KEYC  IS  AN  INSTANCE  COLLECTOR,  THEN  DISPOSE  OF  ALL 

(*  ELEMENTS  OF  IN  THE  CONSTITUENT  LIST. 

(* 

(* 

(* . 

(**) 

(*  END  %INCLUDE  DISPKND  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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%PAGE 

(*  %INCLUDE  DISPLSM.  *) 

(**) 

PROCEDURE  DISPLSM(VAR  POSITION:LISTPSTN;VAR  LISTREF : LISTPNTR ; 

VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(‘ . - 

(* 

(*  FUNCTION 

(*  DELETE  SPACE  ALLOCATED  TO  A  SYSTEM  LIST. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  LISTREF  -  POINTER  TO  A  SYSTEM  LIST  WHOSE  SPACE  IS  TO 

(*  BE  DEALLOCATED. 

(*  OUTPUT 

(*  LISTREF  -  POINTER  TO  A  SYSTEM  LIST  WITH  ZERO  SIZE. 

(*  POSITION  -  POSITION  IS  SET  TO  ZERO  INDICATING  START  OF 

(*  SYSTEM  LIST. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  CHANGE  CONTROL: 

(*  CHANGED:  12/10/84  J.  JOHNSON  -  CALL  MASDSP. 

(* . — . 

(**) 

(*  END  %INCLUDE  DISPLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

■*) 
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(*  ^INCLUDE  DISPNDM.  *) 

(**) 

PROCEDURE  DISPNDM (VAR  NDSREM:NDS;VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* .  . . 

(* 

(*  FUNCTION 

(*  FORCE  AN  NDS  OUT  OF  MEMORY. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  NETWORK  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  NDSREM  -  THE  NDS  TO  BE  FORCED  OUT  OF  MEMORY. 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  CHANGE  CONTROL: 

(*  EDS  -  MAS  VERSION  2  -  9/17/84  -  REWRITTEN  TO  DISPOSE  OF 

(*  ALL  ELEMENTS  OF  A  MAS  WORKING  FORM  MODEL. 

(* 

(*  EDS  -  MAS  VERSION  2  -  11/21/84  -  TEST  FOR  EXISTANCE  OF  A 

(*  MODEL  IN  THE  WORKING  FORM  BEFORE  DELETING  IT. 

(* . 

(**) 

(*  END  %INCLUDE  DISPNDM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  DISPNM.  *) 

(**) 

PROCEDURE  DISPNM(VAR  KEYL:LISTKEY;VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  REMOVE  ALL  ENTITIES  FROM  THE  LIST  AND  FREE  THE  ALLOCATED 

(*  SPACE.  THE  EMPTY  LIST  IS  ALSO  DELETED  AND  REMOVED  FROM  THE 

(*  LIST  OF  LISTS. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  KEYL  -  KEY  OF  THE  LIST  WHOSE  ENTITIES  ARE  TO 

(*  BE  REMOVED. 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  METHOD 

(*  THE  STACK_OF_LISTS  IS  READ.  FOR  EACH  LIST_OF_LISTS  ON  THE 

(*  STACK_OF_LISTS,  KEYL  IS  REMOVED  FROM  THE  LIST.  WHEN  ALL 

(*  LISTS  HAVE  BEEN  SEARCHED,  KEYL  IS  DISPOSED. 

(* 

(* .  . 

(**) 

(*  END  %INCLUDE  DISPNM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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%PAGE  00010006 

(*  %INCLUDE  ELDNM.  *)  00020000 

(**)  00030000 

PROCEDURE  ELDNM (VAR  KEYL : L1STKEY ; VAR  RR : RET_REC ) ; EXTERNAL ;  00040009 

(**)  00050000 

(* . *)  00060006 

(*  *)  00070006 

(*  {FUNCTION:  *)  00080011 

(*  CREATE  A  LIST  WITH  ALL  DUPLICATE  ENTITIES  ELIMINATED.  *)  00090005 

(*  THE  FIRST  REFERENCE  IS  MAINTAINED  AND  ALL  SUBSEQUENT  *)  00100005 

(*  ENTITIES  ARE  REMOVED.  *)  00110005 

(*  *)  00120007 

(*  {DESCRIPTION  OF  ARGUMENTS:  *)  00121011 

(*  NAME  I/O  DESCRIPTION  *)  00122011 

(*  KEYL  I  -  KEY  OF  THE  LIST  WHICH  MAY  CONTAIN  DUPLICATE  *)  00123011 

(*  ENTITIES.  THE  LIST  WILL  HAVE  ALL  DUPLICATES  *)  00124011 

(*  REMOVED.  *)  00125011 

(*  RR  0  -  THE  FUNCTION  RETURN  RECORD.  *)  00126011 

(*  *)  00127011 

(*  {ENVIRONMENT:  *)  00130011 

(*  LANGUAGE:  IBM  PASCAL  *)  00140011 

(*  HARDWARE:  IBM  360/370/43XX  *)  00141011 

(*  *)  00150000 

(*  {PROCESSING  DESCRIPTION:  *)  00261011 

(*  EACH  ENTRY  ON  THE  SYSTEM  LIST  IS  READ.  THE  ADB. PROBIT  IS  *)  00262010 

(*  SET  ON,  AND  THE  ENTITY  KEY  IS  PLACED  ON  THE  NEW  SYSTEM  LIST.*)  00263010 

(*  IF  THE  ADB. PROBIT  IS  ALREADY  SET  ON,  THEN  THE  ENTITY  IS  A  *)  00264010 

(*  DUPLICATE  AND  NOT  PLACED  ON  THE  NEW  LIST.  *)  00265010 

(*  THE  NEW  LIST  REPLACES  THE  OLD  SYSTEM  LIST  IN  THE  APPL-  *)  00266010 

(*  I CAT I ON  LIST.  ALL  PROBITS  ARE  THEN  RESET  TO  'OFF'.  *)  00267010 

(*  *)  00268010 

(*  CHANGE  CONTROL:  *)  00269010 

(*  REVISED:  09/02/86  B.  A.  ULMER  W315  *)  00269113 

(*  TO  USE  MAS  INTERNAL  PROCESS  FLAG  (MAPR0B2)  INSTEAD  OF  *)  00269213 

(*  MAPROB  (CONFLICT  WITH  DELRUL)  *)  00269313 

(*  *)  00269413 

(*  REVISED:  04/26/85  E.  D.  SHREVE  W315  *)  00269513 

(*  TO  USE  MAS  INTERNAL  PROCESS  FLAG  (MAPROB)  *)  00269613 

(*  *)  00269711 

(*  REVISED:  02/07/85  E.  D.  SHREVE  W315  *)  00269811 

(*  REWRITTEN  TO  PROCESS  MORE  EFFICIENTLY.  *)  00269910 

(* . *)  00270006 

(**)  00280004 

(*  END  %INCLUDE  ELDNM.  *)  00290000 
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(*  %INCLUDE  ELMNODM.  *) 

(**) 

PROCEDURE  ELMNODM(CONST  KEYE:ENTKEY;VAR  ENTDEF:ENTBLOCK; 
VAR  RR : RET.REC ) ; EXTERNAL ; 

(**) 

(* . - . 

(* 

(*  FUNCTION 

(*  RETURN  AN  ENTBLOCK  CORRESPONDING  TO  A  KEY. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  ENTITY  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  KEYE  -  THE  KEY  OF  THE  ENTITY. 

(*  OUTPUT 

(*  ENTDEF  -  THE  CORRESPONDING  ENTBLOCK. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  % INCLUDE  ELMNODM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  EXCRBE  *) 

(**) 

PROCEDURE  EXCRBE (CONST  CRB:CRBPNTR;  CONST  POS1 : RDBSIZE ; 
CONST  POS2: RDBSIZE;  VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(*- 
(* 

(* 

(* 

(* 

(* 
t* 

\ 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


AUTHOR: 

VERSION: 


B.  A. 
XXXX 


ULMER 


FRMI 


CREATED:  85/02/08 
REVISED:  YY/MM/DD  CC 


*) 

CC??*) 


FUNCTION: 

EXCHANGE  TWO 


ENTRIES  IN  THE  CRB 


ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 
IBM  30XX,  43XX  DEPENDENT 


CODE,  OR  OTHER  APPROPRIATE  H/W. 


EXECUTION  PROCEDURE: 

HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED. 


DESCRIPTION  OF 


NAME 

CRB 

P0S1 

P0S2 

RR 


I/O 

I/O 

I 

I 

0 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

COMMENTS:  *) 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 
THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

*) 

CHANGE  CONTROL:  *) 

YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 


ARGUMENTS: 

DESCRIPTION 

CONSTITUENT  READ  6LUK  ADDRESS 
POSITION  Or  FIRST  ENTRY  TO  EXCHANGE 
POSITION  OF  SECOND  ENTRY  TO  EXCHANGE 
ERROR  CONDITION  RETURN  CODE 
*  0  OK  RETURN  CODE 
=  1  YOU  BLEW  IT 
=  2  THE  ROUTINE  BLEW  IT 


COMMONS: 

C0M1 

VAR1 

VAR2 

COM2 

VAR3 


VAR1  NAME  MUST  BE  FILLED, 

MUST  BE  PROVIDED 

VAR2  MUST  BE  SPECIFIED 


CHARACTER  DATA 


I  CHARACTER  DATA  MUST  BE  SPECIFIED 


PROCESSING  DESCRIPTION: 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 
FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 
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(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 

(*  NARRATION  ON  THE  NEXT  LINE. 

(*  YY/MM/DD  CCXX  I.  M.  APERSON 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  EXCRBE  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 
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k) 


SFUNCTION: 

EXPAND  LIST  WITH  ALL  OF  ITS  CONSTITUENTS  AND  PLACE  THIS 
EXPANDED  LIST  IN  LISTOUT. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


LISTIN 

LISTOUT 

LSTFLG 

RR 


I 

0 

I 

0 


LIST  CONTAINING  ENTITIES  TO  BE 
EXPANDED. 

LIST  OF  INCLUSIVE  CONSTITUENTS 
FLAG  TO  TELL  IF  FIRST  TIME  THRU 
FUNCTION  RETURN  CODE. 

-  0  GOOD  RETURN 
>  0  CRITICAL  ERROR 
<  0  WARNING 


%PAGE 

(*  7.INCLUDE  EXPCLSM. 

(**) 

PROCEDURE  EXPCLSM(CONST  LISTIN rLISTPNTR; VAR  LISTOUT: LISTPNTR; 
VAR  LSTFLG: BOOLEAN;  VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SCOMMONS: 

NONE 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360,370,43XX 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

THIS  ROUTINE  INVOKES  ITSELF  RECURSIVELY  AND  FILLS  LISTOUT 
BY  ADDING  EACH  NEST  OF  CONSTITUENTS  DIRECTLY  AFTER  THE 
PARENT  ENTITY. 


SCHANGE  CONTROL: 

REVISED:  01/10/86  B.  A.  ULMER 

FIX  BUG  DEALING  WITH  PREVIOUS  FIX 


W315 


REVISED:  05/21/85  B.  A.  ULMER  W315 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 

REVISED:  04/26/85  E.D.  SHREVE  W315 

TO  USE  INTERNAL  MAS  PROCESS  FLAG  MAPROB 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*\ 

/ 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  02/18/85  B.A.  ULMER  W315  *) 

(*  IMPLEMENT  THE  CNST  READ  BLOCK  *) 

(*  *) 

(*  CREATED:  06/13/84  D.J.  KERCHNER  W315  *) 

(* . *) 

(**) 

(*  END  %INCLUDE  EXPCLSM.  *) 
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(*  ^INCLUDE  EXPCRB  *) 

(**) 

PROCEDURE  EXPCRB (VAR  CRB:CRBPNTR;  VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 


VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

*) 

FUNCTION:  *) 

EXPAND  THE  CRB  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  -  *) 

HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

RR  0  ERROR  CONDITION  RETURN  CODE  *) 

*  0  OK  RETURN  CODE  *) 

-  1  YOU  BLEW  IT  *) 

-  2  THE  ROUTINE  BLEW  IT  *) 

*) 

COMMONS:  *) 

C0M1  *) 

VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

MUST  BE  PROVIDED  *) 

VAR2  I  VAR2  MUST  BE  SPECIFIED  *) 

COM2  *) 

VAR3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

*) 

PRnrFSSTNG  nFCrRTPTTnN-  *) 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC.  *) 

*) 

COMMENTS:  *) 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 
THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

*) 

CHANGE  CONTROL:  *) 

YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 
NARRATION  ON  THE  NEXT  LINE.  *) 
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(* 

(* 

(* 

(*-- 

(**) 


YY/MM/DD  CCXX  I.  M.  APERSON 

DESCRIPTION  OF  FIRST  CHANGE  MADE. 


(*  END  %INCLUDE  EXPCRB  *) 


*) 

*) 

*) 

*) 
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(*  ^INCLUDE  EXPSUDB  *) 

(**) 

PROCEDURE  EXPSUDB (VAR  ENTBPNTR : ENTPNTR ; CONST  OLDSIZE: ENTSIZE; 
CONST  NEWSIZE:ENTSIZE;VAR  RR:RET  REC) ; EXTERNAL; 

(**) 


SFUNCTION: 

EXPAND  A  SYSTEM  UDB  (USER  DATA  BLOCK) 


JDESCRIPTION  OF  ARGUMENTS: 


OLDSIZE 

NEWSIZE 

ENTBPNTR 

ENTBPNTR 

RC 


DESCRIPTION 

SIZE  OF  THE  AREA  TO  BE  EXPANDED 
SIZE  OF  THE  OUTPUT  DATA  AREA  FOR  THE 
EXPANDED  ENTBLOCK 

POINTER  TO  THE  ENTBLOCK  TO  BE  EXPANDED 
POINTER  TO  THE  EXPANDED  ENTBLOCK 
EXTERNAL  RETURN  CODE 
*0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS:  *) 

*) 

$ ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

EXPAND  THE  USER  DATA  BLOCK  (UDB)  *) 

*) 

SCOMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

*) 

REVISED:  07/09/85  B.  A.  ULMER  FRMI  *) 

CHANGE  TO  MAKE  THIS  ROUTINE  MORE  VAX  COMPATIABLE  -  TAKE  OUT  THE*) 
MIN  FUNCTION  *) 

*) 

REVISED:  12/10/84  J.  JOHNSON  *) 

TO  CALL  MASDSP  *) 

*) 
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(*  %INCLUDE  EXPULSM.  *) 

(**) 

PROCEDURE  EXPULSM(CONST  LISTIN : LISTPNTR;  VAR  LISTOUT:LISTPNTR; 
VAR  LSTFLG: BOOLEAN;  VAR  RR:RET_REC) ; EXTERNAL; 

(**> 

(* . 


(*  *) 

(*  SFUNCTION:  *) 

(*  PLACE  THE  EXPANDED  LIST  WITH  ALL  OF  ITS  USERS  IN  LISTOUT.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ....  =«■  ...........  *) 

(*  LISTIN  I  LIST  TO  BE  EXPANDED.  *) 

(*  LISTOUT  0  EXPANDED  LIST.  *) 

(*  LSTFLG  I  FLAG  TO  TELL  IF  FIRST  TIME  THRU  *) 

(*  RR  0  FUNCTION  RETURN  RECORD.  *) 

(*  -  0  GOOD  RETURN  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360,370, 43XX  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE.  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  INVOKES  ITSELF  RECURSIVELY  AND  FILLS  LISTOUT  *) 

(*  BY  ADDING  EACH  NEST  OF  USERS  DIRECTLY  AFTER  ITS  USER  *) 

(*  REFERENCE.  *) 

(*  *) 

(*  JCHANGE  CONTROL:  *) 

(*  REVISED:  01/10/86  B.  A.  ULMER  W315  *) 

(*  FIX  BUG  DEALING  WITH  PREVIOUS  FIX  *) 

(*  *) 

(*  REVISED:  05/21/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *) 

(*  REVISED:  04/26/85  E.  D.  SHREVE  W315  *) 

(*  TO  USE  INTERNAL  MAS  PROCESS  FLAG  MAPROB  *) 

(*  *) 

(*  ORIGINATED:  06/13/84  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* . *) 

(**) 

(*  END  %INCLUDE  EXPULSM.  *) 
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(*  %INCLUDE  EXPUNM.  *) 

(**) 

PROCEDURE  EXPUNM(VAR  KEYL:LISTKEY;VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  EXPAND  THE  LIST  TO  INCLUDE  ALL  USERS  OF  THE  ENTITIES. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  LISTIN  -  LIST  WHOSE  CONSTITUENTS  ARE  TO  BE  EXPANDED. 

(*  KEYL  -  KEY  OF  THE  LIST  TO  BE  EXPANDED. 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  EXPUNM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  FDSCH.  *) 

(**) 

PROCEDURE  FDSCH (CONST  SCH_ROOT : ENTKEY ; CONST  KIND:ORD_KIND; 
VAR  SCH  PTR: ENTKEY; VAR  POSITION: LISTPSTN; 

VAR  RR : RET  REC);  EXTERNAL; 


(*  FUNCTION  *) 

(*  FIND  A  SCHEMA_INSTANCE_COLLECTOR  OR  SCHEMA.CLASS  ENTITY  ON  *) 

(*  THE  SPECIFIED  SCHEMA_ROOT'S  CONSTITUENT  LIST.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  SCHEMA  PACKAGE.  -  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  NDSREM  -  THE  NETWORK  TO  BE  SEARCHED.  *) 

(*  KIND  -  VALUE  TO  BE  SEARCHED  FOR  IN  THE  ENTBLOCK  OF  *) 

(*  THE  CLASS  OR  INSTANCE  COLLECTOR  NODE.  THIS  *) 

(*  IS  THE  KIND  OF  THE  COLLECTED  INSTANCES  FOR  *) 

(*  INSTANCE  COLLECTORS.  *) 

(*  OUTPUT  *) 

(*  SCH_PTR  -  POINTER  TO  THE  FOUND  ENTITY  WITH  SPECIFIED  *) 

(*  DATA. KIND.  *) 

(*  POSITION  -  POSITION  IN  THE  CONSTITUENT  LIST  OF  THE  LAST  *) 

(*  SCHEMA  CLASS  OR  INSTANCE  COLLECTOR  ENTITY  *) 

(*  WITH  HEADER. KIND  LESS  THAN  OR  EQUAL  TO  THE  *) 

(*  SPECIFIED  KIND.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* . *) 


(**) 

(*  END  %INCLUDE  FDSCH.  *) 
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(*  %INCLUDE  FNDCRBE  *) 

(**) 

PROCEDURE  FNDCRBE (CONST  CRBrCRBPNTR;  CONST  EKEY : ENTKEY ; 
VAR  CRBPOS: ROBS IZE; VAR  RR: RET_REC) ; EXTERNAL ; 


r-- 

(* 

. ) 

*) 

(* 

AUTHOR:  B 

.  A. 

ULMER  FRMI  CREATED:  85/02/08 

CC??*) 

(* 

VERSION:  XXXX 

REVISED:  YY/MM/DD 

CC  *) 

(* 

*) 

(* 

FUNCTION: 

*) 

(* 

FIND  A 

SPECIFIC  ENTRY  IN  THE  CRB 

*) 

(* 

*) 

(* 

ENVIRONMENT: 

*) 

(* 

IBM  PASCAL 

LANGUAGE 

*) 

(* 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W 

*) 

(* 

- 

*) 

(* 

EXECUTION 

PROCEDURE: 

*) 

(* 

HOW  IS 

THIS 

ROUTINF; MODULE  TO  BE  EXECUTED. 

*) 

(* 

*) 

(* 

DESCRIPTION  OF  APCJMENTS: 

*) 

(* 

NAME 

I/J 

jESCRIPTION 

*) 

(* 

CRB 

I/O 

CONSTITUENT  READ  BLOCK  ADDRESS 

*) 

(* 

EKEY 

I 

ENTITY  KEY  WHICH  IS  TO  BE  FOUND  IN  THE  CRB 

*) 

(* 

CRBPOS 

0 

POSITION  IN  CRB  WHERE  EKEY  WAS  FOUND 

*) 

(* 

RR 

0 

ERROR  CONDITION  RETURN  CODE 

*) 

(* 

-  0  OK  RETURN  CODE 

*) 

(* 

-  1  YOU  BLEW  IT 

*) 

(* 

-  2  THE  ROUTINE  BLEW  IT 

*) 

(* 

*) 

(* 

COMMONS: 

*) 

(* 

COM1 

*) 

(* 

VAR1 

I 

VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA 

*) 

(* 

MUST  BE  PROVIDED 

*) 

(* 

VAR2 

I 

VAR2  MUST  BE  SPECIFIED 

*) 

(* 

COM2 

*) 

(* 

VAR3 

I 

CHARACTER  DATA  MUST  BE  SPECIFIED 

*) 

C* 

*) 

(* 

PROCESSING 

DESCRIPTION: 

*) 

(* 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 

*) 

(* 

FILES 

NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 

*) 

(* 

*) 

(* 

COMMENTS: 

*) 

(* 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(* 

THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE. 

*) 

(* 

*) 

(* 

CHANGE  CONTROL 

l 

*) 

(* 

YY/MM/DD 

CCZZ  I.  M.  THECHANGER 

*) 

(* 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 

*) 
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(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 

(*  NARRATION  ON  THE  NEXT  LINE. 

(*  YY/MM/DD  CCXX  I.  M.  APERSON 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 

(* . - . —  - . 

(**) 

(*  END  %INCLUDE  FNDCRBE  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  FNDSKIND  *) 

(**) 

PROCEDURE  FNDSKIND(CONST  SCHKEY:ENTKEY;VAR  KINDARY: KIND  ARRAY; 

VAR  NUMKIND: INTEGER;VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  BUILD  AN  ARRAY  OF  KIND  VALUE  COLLECTED  BY  A  CLASS  OR 

(*  INSTANCE  COLLECTOR  IN  THE  SCHEMA. 

(* 

(*  LANGUAGE 

(*  PASCAL 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  SCHKEY  -  KEY  OF  THE  CLASS  OR  INSTANCE  COLLECTOR  NODE. 

(*  KINDARY  -  ARRAY  TO  STORE  THE  COLLECTED  KINDS. 

(*  OUTPUT 

(*  NUMKIND  -  NUMBER  OF  KIND  VALUES  PUT  INTO  KINDARY. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  METHOD 

(*  1.  IF  SCHKEY  IS  AN  INSTANCE  COLLECTOR,  THE  KIND  VALUE  FROM 

(*  THE  1ST  CONSTITUENT'S  ADB  IS  PUT  INTO  KINDARY. 

(*  2.  IF  SCHKEY  IS  A  CLASS  COLLECTOR,  ALL  INCLUSIVE  INSTANCE 

(*  COLLECTORS  ARE  FOUND  AND  THEIR  KINDS  PUT  IN  KINDARY. 

(*  THIS  IS  ACCOMPLISHED  BY  RECURSIVE  CALLS  TO  FNDSKIND. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  FNDSKIND  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  FNDURUL.  *) 

(**) 

PROCEDURE  FNDURUL (CONST  ENTK:ENTKEY;VAR  DEPENDENCE: BOOLEAN; 
VAR  STRNGTH: BOOLEAN; VAR  REQJJSER: BOOLEAN; 

VAR  REQ_CNST: BOOLEAN; VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . - . 


(*  *) 

(*  S FUNCTION:  *) 

(*  GETS  THE  RULE  FROM  THE  INSTANCE  COLLECTOR  FOR  A  GIVEN  *) 

(*  ENTKEY .  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTK  I  ENTITY  FOR  WHICH  THE  DELETE  RULES  WILL  BE*) 

(*  GOTTEN  FROM  IT'S  INSTANCE  KIND  COLLECTOR  *) 

(*  DEPENDENCE  0  INDICATES  IF  THE  DELETE  RULE  IS  DEPENDENT*) 

(*  (1  -  FALSE)  OR  INDEPENDENT  (0  -  FLASE)  *) 

(*  STRNGTH  0  INDICATES  IF  THE  DELETE  RULE  IS  STRONG  *) 

(*  (1  -  TRUE)  OR  WEAK  (0  -  FALSE)  *) 

(*  REQJJSER  0  INDICATES  WHETHER  THE  ENTITY  REQUIRES  *) 

(*  USER(S)  TO  EXIST  *) 

(*  REQ_CNST  0  INDICATES  WHETHER  THE  ENTITY  REQUIRES  *) 

(*  CONSTITUENT(S)  TO  EXIST  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  *  0  OK  RETURN  CODE  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THE  SCH_ROOT  IS  FOUND  AND  THE  KIND  IS  FOUND  AND  PASSED  TO  *) 

(*  FDSCH  TO  FIND  THE  SCHPTR  THAT  POINTS  TO  THE  RULE_DEP  AND  *) 

(*  AND  RULE_STRNGTH  AND  RETURNS  THE  RULES.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 
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(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  09/06/85  B.  A.  ULMER  FRMI 

(*  ADDED  TWO  NEW  PARAMETERS  FOR  HANDLING  THE  TWO  NEW  DELETE  RULES 
(*  (REQJJSER,  REQ.CNST) 

(* 

(*  REVISED:  02/18/85  B.  A.  ULMER  FRMI 

(*  CHANGED  THE  STRUCTURE  OF  THE  INTERNAL  ITEM  FOR  IMPLEMENTATION 
(*  OF  THE  CRB 

(* 

(*  ORIGINATED:  06/19/85  C.  J.  SAMPLE  FRMI 

(* 

(* . 

%PAGE 

(* . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(* . 

(* 

(*END . 

(**) 

(*  END  %INCLUDE  FNDURUL.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  GTCRBE  *) 

(**) 

PROCEDURE  GTCRBE (CONST  CRB:CRBPNTR;  VAR  CRBPOS:  RDBSIZE; 
CONST  EKEY:ENTKEY;  VAR  POS:LISTPSTN;  VAR  DIR: LISTDIR; 
VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

{* 

(* 

(* 

(* 


.  . - . *) 

*) 

AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 


VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

*) 

FUNCTION:  *) 

GET  AN  ENTRY  IN  THE  CRB  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

CRBPOS  I  POSITION  IN  CRB  OF  ENTRY  REQUESTED  *) 

EKEY  0  KEY  OF  ENTITY  CONTAINING  THE  CONSTITUENT  LIST  *) 

POS  0  LIST  POSITION  SETTING  *) 

DIR  0  DIRECTION  TO  READ  OF  LIST  (FORWARD  OR  REVERSE)  *) 

RR  0  ERROR  CONDITION  RETURN  CODE  *) 

*0  OK  RETURN  CODE  *) 

=  1  YOU  BLEW  IT  *) 

-  2  THE  ROUTINE  BLEW  IT  *) 

*) 

COMMONS:  *) 

C0M1  *) 

VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

MUST  BE  PROVIDED  *) 

VAR2  I  VAR2  MUST  BE  SPECIFIED  *) 

COM2  *) 

VAR3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC.  *) 

*) 

COMMENTS:  *) 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

*) 
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(*  CHANGE  CONTROL: 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 

(*  NARRATION  ON  THE  NEXT  LINE. 

(*  YY/MM/DD  CCXX  I.  M.  APERSON 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  GTCRBE  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  INDLSM  *) 

(**) 

PROCEDURE  INDLSM(CONST  KEYEtENTKEY; CONST  LISTREF : LISTPNTR; 
VAR  POSITION :LISTPSTN; VAR  INLST: BOOLEAN; VAR  RR:RET_REC) ; 
EXTERNAL; 


(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  LOCATE  AN  ENTITY  IN  A  SYSTEM  LIST.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  ENTITY  TO  BE  LOCATED.  *) 

(*  LISTREF  I  LIST  TO  BE  SEARCHED.  *) 

(*  POSITION  0  POSITION  OF  ENTITY  IN  SYSTEM  LIST.  *) 

(*  INLST  0  TRUE  IF  AN  ENTITY  IN  THE  LIST  CORRESPONDS  *) 

1*  TO  KFYF  FI  SF  FAI SF  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  -  0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  DECLARATION  OF  KEYL  TO  VAR.  *) 

(*  *) 

(* .  . *) 

(**) 

(*  END  %INCLUDE  INDLSM  *) 
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(*  %INCLUDE  INNM.  *) 

(**) 

FUNCTION  INNM(CONST  KEYE:ENTKEY; CONST  KEYL : LISTKEY ; 
VAR  RR-.RET  REC) : BOOLEAN;  EXTERNAL; 


(*  *) 

(*  FUNCTION  *) 

(*  INDICATE  WHETHER  A  LIST  REFERENCES  AN  ENTITY.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  -  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  TO  LOOK  FOR  IN  THE  LIST.  *) 

(*  KEYL  -  THE  KEY  OF  THE  LIST  TO  EXAMINE.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  FUNCTION  VALUE  -  TRUE  IF  ENTITY  IS  IN  LIST  ELSE  FALSE.  *) 

(*  *) 

(* . *) 

(**) 

(*  END  %INCLUDE  INNM.  *) 
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(*  ^INCLUDE  INTLSM.  *) 

(**) 

PROCEDURE  INTLSM (CONST  LIST1 :LISTPNTR; CONST  LIST2 : LISTPNTR ; 
VAR  POSITION  :LISTPSTN;  VAR  LI  STOUT -.LISTPNTR; 

VAR  RR : RET.REC ) ; EXTERNAL ; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  CREATE  A  LIST  WHICH  IS  THE  INTERSECTION  OF  TWO  LISTS. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

*=== 

BBS 

BBEBSSBBBSB 

(* 

LIST1 

I 

LIST  TO  BE  INTERSECTED 

WITH  THE 

SECOND 

(* 

LIST2 

I 

LIST  TO  BE  INTERSECTED  WITH  THE 

FIRST 

(* 

POSITION 

I 

INTEGER  INDICATING  T-HE 

POSITION 

ON 

(* 

LI STOUT 

(* 

LI STOUT 

0 

LIST  CONTAINING  COMMON 

ENTITIES 

TO  THE 

(* 

INPUT  LISTS 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

(*  -  0  OK 

(*  >0  CRITICAL  ERROR 

(*  <0  WARNING 

(* 

(*  SCOMMONS: 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  FIND  THOSE  ENTITIES  WHICH  ARE  COMMON  TO  BOTH  INPUT  LISTS 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  07/01/85  B.  A.  ULMER  FRMI 

(*  ELIMINATE  THE  MIN  FUNCTION  TO  IMPROVE  COMPATABILITY  WITH  VAX 
(* 

(*  REVISED:  02/22/85  B.  A.  ULMER  FRMI 

(*  FIXED  EMPTY  LIST  ELEMENT  PROBLEM 
(* 

(*  REVISED:  12/24/85  B.  A.  ULMER  FRMI 

(*  ADDED  SYSTEM  LIST  CURRENT  LENGTH  INDICATOR  --  LSTLNM 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  INTNM.  *) 

(**) 

PROCEDURE  INTNM (CONST  KEYL1 : LISTKEY ; CONST  KEYL2 : LISTKEY ; 

VAR  KEYLOUT: LISTKEY;  VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  CREATE  A  LIST  WHICH  IS  THE  INTERSECTION  OF  LISTS 

(*  REFERENCED  BY  KEYL1  AND  KEYL2.  IF  AN  ENTITY  IS  IN  BOTH 

(*  KEYL1  AND  KEYL2,  IT  IS  ADDED  TO  KEYLOUT.  THE  ORDER  AND 

(*  DATA  OF  KEYLOUT  IS  THAT  OF  KEYL1 . 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  KEYL1  -  KEY  OF  THE  LIST  WHICH  DEFINES  THE  ORDER  AND 

(*  ENTITIES  OF  KEYLOUT. 

(*  KEYL2  -  KEY  OF  THE  LIST  TO  BE  INTERSECTED. 

(*  OUTPUT 

(*  KEYLOUT  -  KEY  OF  LIST  WITH  ALL  ENTITIES  REFERENCED  BY 

(*  BOTH  KEYL1  AND  KEYL2. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  INTNM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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(*  ^INCLUDE  LSTLNM.  *) 

(**) 

FUNCTION  LSTLNM (CONST  L I STREF : L I STPNTR ; VAR  RR:RET_REC) :LISTSIZE; 
EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  RETURN  THE  NUMBER  OF  NON-VACANT  ENTITIES  IN  A  SYSTEM  LIST. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 
(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  LISTREF  -  POINTER  TO  A  SYSTEM  LIST. 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(*  FUNCTION  VALUE  -  NUMBER  OF  ENTITIES  IN  THE  SYSTEM  LIST. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  LSTLNM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  ^INCLUDE  LSTMXLNM.  *) 

(**) 

FUNCTION  LSTMXLNM (CONST  LISTREF:LISTPNTR;VAR  RR: RET_REC) : LISTSIZE ; 
EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  RETURN  THE  NUMBER  OF  ENTRIES  ALLOCATED  TO  A  SYSTEM  LIST. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  LISTREF  -  POINTER  TO  A  SYSTEM  LIST. 

(*  OUTPUT 

(*  FUNCTION  VALUE  -  SIZE  OF  SYSTEM  LIST. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  LSTMXLNM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  MAEA.  *) 

(**) 

PROCEDURE  MAEA (CONST  KEY1 : ANYKEY; VAR  RC:EXT_RET_CODE) SUBPROGRAM; 
%PAGE 


V  -- 

) 

(* 

*) 

(* 

$ FUNCTION: 

*) 

(* 

ACTIVATE  AN  ENTITY. 

*) 

(* 

*) 

(* 

SDESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

(* 

a*Ka  =  *  =  =  =  =  = 

*) 

(* 

KEY1  I  KEY  OF  THE  ENTITY  OR 

LIST  OF 

ENTITIES  TO 

*) 

(* 

BE  ACTIVATED 

*) 

(* 

RC  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

*) 

(* 

$ ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

SEXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

SPROCESSING  DESCRIPTION: 

*) 

(* 

FOR  EACH  KEY,  AS  AN  ENTITY  OR  A  MEMBER 

OF 

A  LIST 

*) 

(* 

RESET  THE  DELETE  FLAG 

*) 

(* 

*) 

(* 

SCOMMENTS: 

*) 

(* 

*) 

(* 

SCHANGE  CONTROL: 

*) 

(* 

*) 

(* 

REVISED:  04/30/86  B.  A.  ULMER 

FRMI 

*) 

(* 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT 

DF 

SPACE 

"  CONDITION 

*) 

(* 

TO  USER  RECOGNIZEABLE  FORM 

*) 

(* 

*) 

(* 

REVISED:  07/11/85  B.  A.  ULMER 

FRMI 

*) 

(* 

ADD  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING 

AND 

DEBUGGING 

*) 

(* 

PURPOSES 

*) 

(* 

*) 

(* 

REVISED:  08/14/86  K.  M.  ROSS 

DBMA 

*) 

(* 

ADDED  A  CHECK  FOR  NIL  POINTER  ON  KEY1 

*) 

(* 

PURPOSES 

*) 

(* 

*) 
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(*  ORIGINATED:  07/25/84  D.  J. 

(* 

(* . 

%PAGE 

(* . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(* . 

(* 

(*END . 

(**) 

(*  END  %INCLUDE  MAEA.  *) 

(**) 


D.  J.  KERCHNER 
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(*  %INCLUDE  MAEAI  *) 

(**) 

PROCEDURE  MAEAI (CONST  KEY1 : ANYKEY; VAR  RC : EXT_RET_CODE) ; SUBPROGRAM ; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

ACTIVATE  AN  ENTITY  OR  A 
INCLUSIVE  CONSTITUENTS. 

SDESCRIPTION  OF  ARGUMENTS: 


LIST  OF  ENTITIES  AND  THEIR 


NAME  I/O 

KEY1  I 


RC 


DESCRIPTION 

KEY  OF  THE  ENTITY  OR  LIST  OF  ENTITIES  TO 
BE  ACTIVATED. 

THE  FUNCTION  RETURN  CODE. 

=  0  GOOD  RETURN 
>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS: 

NONE 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360,370,43XX 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 
IF  KEY1  IS  AN  ENTITY, 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


THEN  THAT  ENTITY  AND  ITS  INCLUSIVE 
CONSTITUENT  LIST  WILL  BE  ACTIVATED. 

IF  KEY1  IS  A  LIST  KEY,  THEN  THE  INCLUSIVE  CONSTITUENT  LISTS  *) 
OF  EACH  ENTITY  WILL  BE  ACTIVATED. 

NOW  USES  THE  INTERNAL  MAS  PROCESS  FLAG  (MAPROB)  IN  THE 
T  ELEMENT. IIT. 


SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  CNVOSP  TO  CONVERT  AN  "OUT  OF  MEMORY" 
CONDITION  TO  USER  RECOGMIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  W315 

ADD  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND 
DEBUGGING  PURPOSES 

REVISED:  04/26/85  E.  D.  SHREVE  W315 

TO  USE  THE  INTERNAL  MAS  PROCESS  FLAG  AND  TO  CALL 
EXPCLST  INSTEAD  OF  EXPALST 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 
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(*  REVISED:  02/18/85  B.  A.  ULMER  W315 

(*  STRUCTURE  CHANGE  FOR  THE  CNST.  READ  BLOCK. 

(* 

(*  REVISED:  08/14/86  K.  M.  ROSS  W315 

(*  ADDED  NIL  POINTER  CHECK  FOR  KEY1 . 

(* 

(*  ORIGINATED:  07/26/84  D.  J.  KERCHNER  W315 

(* . - . 

(**) 

(*  END  %INCLUDE  MAEAI  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


E -97 


PS  560130000A 
1  January  1987 
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(*  %INCLUDE  MAEAV  *) 

(**) 

PROCEDURE  MAEAV (CONST  KEY1 : ENTKEY ; VAR  IAVAL: INTEGER; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

FIND  THE  PRESENT  VALUE  OF  THE  ACTIVATION  SETTING  FOR  AN 
ENTITY. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME 

KEY1 

IVAL 


RC 


SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

THE  ACTIVITY  STATUS  OF  THE  ENTITY  IS  TO  BE  CHECKED. 

IF  THE  ENTITY  IS  ACTIVE  (NOT  MARKED  FOR  DELETE),  THEN 
THE  ACTIVITY  STATUS  IS  TRUE  AND  AN  INTEGER  FLAG  VALUE 
OF  (1)  WILL  BE  RETURNED. 

IF  THE  ENTITY  IS  INACTIVE  (MARKED  FOR  DELETE),  THEN  THE 
ACTIVITY  STATUS  IS  FALSE  AND  AN  INTEGER  FLAG  VALUE  OF 
(0)  WILL  BE  RETURNED. 

SCOMMENTS: 


I/O  DESCRIPTION 

I  KEY  OF  THE  ENTITY  WHOSE  ACTIVATION 
SETTING  IS  TO  BE  CHECKED 

0  VALUE  OF  THE  SWITCH  * 

=  1  TRUE 
=  0  FALSE 

0  EXTERNAL  RETURN  CODE 
=  0  OK  RETURN  CODE 
=  1  YOU  BLEW  IT 
*  2  THE  ROUTINE  BLEW  IT 


*) 

*) 

*) 

*) 

*) 

*\ 

/ 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  MEMORY"  CONDITION  *) 
(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  07/27/85  D.  J.  KERCHNER  FRMI  *) 

(*  *) 

(* .  . *) 

%PAGE  *) 

(*- . - . *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* .  . *) 

(*  '  *) 
(*END . - . *) 

(**) 

(*  END  %INCLUDE  MAEAV  *) 


(**) 
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%PAGE 


(**) 

(*  %INCLUDE  MAEC  *) 

(**) 

PROCEDURE  MAEC(CONST  KEY1:ANYKEY;VAR  KEY2 : LISTKEY ; 
VAR  RC : EXT  RET  CODE) ; SUB PROGRAM; 


%PAGE 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

CREATE  AN  APPLICATIONS  LIST  OF  CONSTITUENT  ENTITIES. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

KEY1  I  KEY  OF  AN  ENTITY  OR  A  LIST. 

KEY2  0  RETURNED  KEY  OF  THE  APPLICATION  LIST. 

RC  0  EXTERNAL  RETURN  CODE- 

<  0  WARNING 
*  0  OK 

>  0  CRITICAL  ERROR 

SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  °ROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

KEY2  IS  CREATED  (EMPTY  LIST). 

IF  KEY1  IS  AN  ENTITY,  THEN  THE  CONSTITUENT  LIST  OF  KEY1 
WILL  BE  COPIED  INTO  KEY2. 

IF  KEY1  IS  A  LIST  KEY,  THEN  THE  CONSTITUENT  LISTS  OF  EACH 
ENTITY  WILL  BE  COPIED  INTO  KEY2. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  MEMORY"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  W315 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  05/15/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *) 

(*  REVISED:  02/18/85  B.  A.  ULMER  W315  *) 

(*  CHANGED  THE  STRUCUTRE  OF  THE  INTERNAL  ITEM  FOR  IMPLEMENTATION  *) 

(*  OF  THE  CRB  *) 

(*  *) 

(*  REVISED:  08/14/86  K.  M.  ROSS  W315  *) 

(*  ADDED  A  CHECK  FOR  NIL  POINTER  FOR  KEY1  *) 

(*  *) 

(*  ORIGINATED:  06/08/84  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* . . . . *) 

%PAGE  *) 

(*  END  %INCLUDE  MAEC  *) 
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%PAGE 

{*  %INCLUDE  MAECI  *) 

(**) 

PROCEDURE  MAECI (CONST  KEY1 : ANYKEY; VAR  KEY2:LISTKEY; 
VAR  RC : EXT  RET_C0DE) ; SUBPROGRAM; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

{* 


SFUNCTION: 

CREATE  AN  APPLICATION  LIST  OF  INCLUSIVE  CONSTITUENT 


-  0  GOOD  RETURN 
>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS: 

NONE 


•*) 

*) 

*) 

*) 


ENTITIES. 

SDESCRIPTION 

OF  ARGUMENTS: 

*) 

*) 

*) 

NAME 

I/O 

DESCRIPTION 

*) 

ICVBSBBS8B8 

*) 

*) 

KEY1 

I 

KEY  OF  AN  ENTITY  OR  A  LIST. 

KEY  2 

0 

KEY  OF  THE  CREATED  APPLICATION  LIST. 

*) 

RC 

0 

FUNCTION  RETURN  CODE.- 

*) 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360,  370,  43XX 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

KEY2  IS  CREATED  (EMPTY  LIST). 

IF  KEY1  IS  AN  ENTITY,  THEN  THE  INCLUSIVE  CONSTITUENT  LIST 
OF  KEY I  WILL  BE  COPIED  INTO  KEY2. 

IF  KEY1  IS  A  LIST  KEY,  THEN  THE  INCLUSIVE  CONSTITUENT  LISTS 
OF  EACH  ENTITY  WILL  BE  COPIED  INTO  KEY2. 

IT  IS  ASSUMED  THAT  THE  MAPROB  FLAG  IS  INITIALLY  SET  TO 
FALSE.  AFTER  PROCESSING,  MAPROB  FLAG  IS  RESET. 

SCHANGE  CONTROL: 

REVISED:  05/01/86 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


REVISED: 


B.A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  MEMORY*) 
CONDITION  TO  USER  RECOGNIZEABLE  FORM  *) 

*) 

01/20/85  B.A.  ULMER  W315  *) 

FIX  BUG  DEALING  WITH  PREVIOUS  FIX  *) 

*) 
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(*  REVISED:  11/04/85  B.A.  ULMER  W315  *) 

(*  NOT  ALLOW  ENITIES  THAT  ARE  ON  THE  APPLICATION  INPUT*) 

(*  LIST  TO  BE  ON  THE  APPLICATION  OUTPUT  LIST  (FIX  THE  *) 

(*  INCONSISTENCY  IN  THE  PROCESSING)  *) 

(*  *) 

(*  REVISED:  07/11/85  B.A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  *) 

(*  AND  DEBUGGING  PURPOSES  *) 

(*  *) 

(*  REVISED:  05/15/85  B.A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *) 

(*  REVISED:  04/29/85  E.D.  SHREVE  W315  *) 

(*  TO  USE  THE  INTERNAL  MAPROB  FLAG  *) 

(*  *) 

(*  REVISED:  02/18/85  B.A.  ULMER  W315  *) 

(*  IMPLEMENT  CRB  STRUCTURE  CHANGE  *) 

(*  -  *) 
(*  REVISED:  08/14/86  K.M.  ROSS  W315  *) 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1  *) 

(*  *) 

(*  ORIGINATED:  07/26/84  D.J.  KERCHNER  W315  *) 

(* . *) 


(**) 

(*  END  %INCLUDE  MAECI  *) 


E- 103 


PS  560130000A 
1  January  1987 
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(*  %INCLUDE  MAECIK  *) 

(**) 

PROCEDURE  MAECIK(CONST  KEY1 : ANYKEY; CONST  ENTKIND:ORD_KIND; 
VAR  KEY2:LISTKEY;VAR  RC:EXT_RET_CODE) {SUBPROGRAM; 

(**) 

(* . 


(*  *) 

(*  SFUNCTION:  *) 

(*  CREATE  A  LIST  OF  INCLUSIVE  CONSTITUENTS  BY  KIND.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ""  *■“  ...........  *) 

(*  KEY1  I  THE  KEY  OF  AN  ENTITY  OR  A  LIST  OF  ENTITIES  *) 

(*  WHOSE  INCLUSIVE  CONSTITUENTS  ARE  TO  BE  *) 

(*  SEARCHED  FOR  THE  SPECIFIED  KIND.  *) 

(*  KIND  I  THE  KIND  CODE  OF  AN  ENTITY  OR  AN  ENTITY  *) 

(*  CLASS.  *) 

(*  KEY2  0  THE  KEY  OF  THE  LIST  WHICH  WILL  CONTAIN  ALL  *) 

(*  ENTITIES  OF  THE  SPECIFIED  KIND  FOUND  WITHIN  *) 

(*  THE  INCLUSIVE  CONSTITUENTS  OF  KEY1 .  *) 

(*  RC  0  THE  FUNCTION  RETURN  CODE.  *) 

(*  -  0  GOOD  RETURN  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360,  370,  43XX  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  A  NEW  LIST  IS  CREATED  TO  CONTAIN  THE  INCLUSIVE  CONSTITUENTS,*) 

(*  OR  LIST  MEMBERS.  FOR  EACH  LIST  MEMBER  WHOSE  KIND  MATCHES  *) 

(*  THE  GIVEN  KIND,  THAT  MEMBER  IS  ADDED  TO  THE  OUTPUT  LIST  *) 

(*  POINTED  TO  BY  KEY2.  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  05/01/86  B.A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  MEMORY*) 

(*  CONDITION  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  REVISED:  07/11/85  B.A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  *) 

(*  AND  DEBUGGING  PURPOSES  *) 
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(* 

REVISED: 

05/15/85 

B.A.  ULMER 

W315 

♦ 

(* 

FIX  INCONSISTENCY  IN  OUTPUT  LIST 

PROCESSING 

* 

(* 

REVISED: 

04/29/85 

E.D.  SHREVE 

W315 

* 

(* 

TO  USE  INTERNAL  MAS  PROCESS  FLAG 

(MAPROB) 

* 

(* 

REVISED: 

02/18/85 

B.A.  ULMER 

W315 

* 

(* 

TO  IMPLEMENT 

NEW  CRB  STRUCTURE 

* 

(* 

REVISED: 

09/11/84 

R.  A.  MCCLUSKEY 

W315 

★ 

(* 

CHANGED 

PROCESSING  OF  SYSUSE 

FLAG.  DROPPED 

* 

(* 

ROUTINE  EXPCLSTK  TO  USE  EXPCLST  INSTEAD. 

* 

(* 

REVISED: 

08/14/86 

K.  M.  ROSS 

W315 

* 

(* 

ADDED  A  NIL 

POINTER  CHECK  FOR  KEY1 

* 

(* 

ORIGINATED:  08/20/84 

R.A.  MCCLUSKEY 

W315 

* 

.  .* 

(**) 

(*  END  %INCLUDE  MAECIK  *) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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%PAGE 

(*  %INCLUDE  HAECMP  *) 

(**) 

PROCEDURE  HAECMP(CONST  KEY1:ENTKEY;VAR  KEY2 : LISTKEY ; 
VAR  RC : EXT_RET  CODE) ; SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

GIVEN  AN  ENTITY  DETERMINE  WHICH  OF  ITS  CONSTITUENTS  IT 
COMPRESSES  WITH 


SDESCRIPTION  OF 

ARGUMENTS: 

NAME 

I/O 

DESCRIPTION 

KEY1 

I 

USER  ENTITY  WHOSE  COMPRESSIBILITY  IS 
DETERMINED  BY  THE  CONSTITUENT  ENTITY 

KEY2 

I 

CONSTITUENT  ENTITY  BEING  COMPRESSED 

RC 

0 

EXTERNAL  RETURN  CODE 
-  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 

SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/438 1 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

SCOMMENTS: 


(*  SCHANGE  CONTROL: 
(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUOE  MAECQY  *) 

(**) 

PROCEDURE  MAECQY (CONST  KEY1:ENTKEY; CONST  KEY2:ENTKEY;VAR  CMPFLG: 
INTEGER; VAR  RC : EXT_RET  CODE) ; SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


S FUNCTION: 

GIVEN  AN  ENTITY  AND  ITS  USER  DETERMINE  IF  THE  USER  SHOULD  BE 
COMPRESSED  WITH  THE  ENTITY  WHEN  THE  ENTITY  IS  COMPRESSED 


SDESCRIPTION  OF 

ARGUMENTS: 

NAME 

I/O 

DESCRIPTION 

KEY1 

I 

USER  ENTITY  WHOSE  COMPRESSIBILITY  IS 
DETERMINED  BY  THE  CONSTITUENT  ENTITY 

KEY  2 

I 

CONSTITUENT  ENTITY  BEING  COMPRESSED 

CMPFLG 

0 

FLAG  WHICH  TELLS  IF  THE  USER  IS 
COMPRESSED  WITH  THE  CONSTITUENT 

RC 

0 

EXTERNAL  RETURN  CODE 
-  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 

SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

SCOMMENTS: 

SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*)  1 
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%PAGE 

(*  ^INCLUDE  MAECR  *} 

(**) 

PROCEDURE  MAECR(VAR  ENTDEF : ENTBLOCK;CONST  KEYC:ANYKEY; 
VAR  KEYE:ENTKEY;VAR  RC:EXT  RET  CODE) ; SUBPROGRAM; 


(**) 

(*" 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

CREATE  AN  ENTITY. 


SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

ENTDEF 

I 

APPLICATION  DATA  DEFINING  THE  ENTITY  TO 
BE  CREATED 

KEYC 

I 

CONSTITUENT  OR  LIST  OF  CONSTITUENTS  TO 
BE  CONNECTED  TO  THE  ENTITY 

KEYE 

0 

KEY  OF  CREATES  ENTITY 

RC 

0 

EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 

SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 

REVISED:  10/11/84  D.  J.  KERCHNER  FRMI 

UPDATE  DOCUMENTATION 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  10/04/84  E.  D.  SHREVE  FRMI  *) 

(*  INPUT  PARAMETER  ENTDEF  CHANGED  TO  VAR  FROM  CONST  FOR  COMPATAB-  *) 

(*  ABILITY  WITH  THE  DEC  VAC  SYSTEM  *) 

(*  *) 
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(*  %INCLUDE  MAECTK  *) 

(**) 

PROCEDURE  MAECTK (VAR  KNDCNT : LISTSIZE ; VAR  RC:EXT_RET_CODE) ; 
SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{FUNCTION: 

TO  RETURN  THE  NUMBER  OF  'KIND'  VALUES  IN  THE 
WORKING-FORM  MODEL. 

{DESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

mmmm 

KNDCNT 

0 

COUNT  OF  THE  NUMBER  OF  ENTITIES  IN  THIS 
WORKING  FORM  MODEL  OF  A  SPECIFIC  KIND 

RC 

0 

EXTERNAL  RETURN  CODE* 

>0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 

{COMMONS: 

NDSREM 

KEY 

I 

KEY  OF  THE  ROOT  ELEMENT  -  MUST  BE 
PROVIDED 

{ENVIRONMENT: 

LANGUAGE: 

IBM  PASCAL 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


{PROCESSING  DESCRIPTION: 

RETRIEVES  THE  VALUE  OF  THE  STD_ARY_USED  LENGTH  IN  THE 
ADB  OF  THE  SCHEMA.ROOT  ELEMENT. 

{COMMENTS: 

{CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  10/26/84  E.  D.  SHREVE 

(* 

(* . 

%PAGE 

(* .  . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(* . 

(* 

(*END . 

(**) 

(*  END  %INCLUDE  MAECTK  *) 


FRMI  *) 
*) 

. *) 

*) 

. *) 

*) 

. *) 

*) 

. *) 
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') 


%PAGE 

(*  %I NCLUDE  MAECXQ 
(**) 

PROCEDURE  MAECXQ (CONST  KEY1 : ANYKEY; VAR  DATAREC:BLKDATA; 

CONST  PROCNAME; ROUTINE; VAR  KEY2:LISTKEY;VAR  RCC:EXT_RET_CODE; 
VAR  RC : EXT  RET_CODE); SUBPROGRAM; 

(**) 

(*— .  . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


.  . *) 

*) 

SFUNCTION:  *) 

EXECUTE  A  PROCEDURE  ON  THE  CONSTITUENTS  OF  AN  ENTITY,  OR  LIST*) 
OF  ENTITIES.  IF  AN  OUTPUT  LIST  IS  NOT  PASSED,  CONSTRUCT  ONE  *) 
IN  ORDER  TO  PUT  ENTITIES  ON  IT  AS  DETERMINED  BY  THE  *) 

APPLICATION  PROCEDURE.  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 


(* 

NAME 

I/O 

DESCRIPTION 

*) 

(* 

ass 

*) 

(* 

KEY1 

I 

ENITIY  OR  LIST  OF  ENTITIES  WHOSE  CONSTIT 

-*) 

(* 

UENTS  ARE  TO  BE  PROCESSED 

*) 

(* 

DATAREC 

I/O 

APPLICATION  DEFINED  DATA  STRUCTURE  WHICH 

*) 

(* 

EITHER  SUPPLIES  OR  RECIEVES  VALUES 

*) 

(* 

OPERATED  ON  BY  THE  APPLICATION  PROCEDURE 

*) 

(* 

PROC 

I 

ENTRY  POINT  OF  APPLICATION  DEFINED 

*) 

(* 

PROCEDURE 

*) 

(* 

KEY2 

0 

KEY  OF  THE  LIST  CREATED 

*) 

(* 

FOR  THIS  ROUTINE 

*) 

(* 

RCC 

0 

USER  DEFINED  PROCEDURE  RETURN  CODE 

*) 

RC 


SCOMMONS: 


-  0,1  OK  RETURN  CODE 

-  2-7  PROCEDURE  WARNING  CODE 

-  8-15  PROCEDURE  ERROR  CODE 
EXTERNAL  RETURN  CODE 

-  0  OK  RETURN  CODE 
<  0  WARNING 

>  0  CRITICAL  ERROR 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE 


INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

THE  USER  SENDS  IN  THE  NECESSARY  INFORMATION,  THEN  THIS 
ROUTINE  REFERENCES  THE  USER'S  SPECIFIED  PROCEDURE  TO  ACT 
UPON  THE  INFORMATION  HE  HAS  SUPPLIED  TO  THE  PROCEDURE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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* 

* 

SCOMMENTS: 

* 

★ 

$CHANGE  CONTROL: 

* 

REVISED:  09/09/86 

B.  A.  ULMER 

DBMA 

* 

* 

FIX  PROBLEM  WITH  DELTING 

EMPTY  PASSED  IN  APPL 

LIST 

* 

* 

ORIGINATED:  06/16/86 

B.  A.  ULMER 

W315 

%PAGE 

(**) 

(*  END  %INCLUDE  MAECXQ  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


E-113 


PS  560130000A 
1  January  1987 


%PAGE 

(**) 

PROCEDURE  MAED( CONST  KEY 1: ANYKEY; VAR  KEYL:LISTKEY; 

VAR  RC:EXT  RET_CODE) ; SUBPROGRAM; 

%PAGE  *) 

(*  ^INCLUDE  MAED.  *) 

(**) 

(* . *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  DELETE  AN  ENTITY  OR  LIST  OF  ENTITIES.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  s*i»s«sB»aa  *) 

(*  KEY1  I  ENTITY  OR  LIST  OF  ENTITIES  TO  BE  DELETED  *) 

(*  KEYL  0  LIST  OF  ENTITIES  UNABLE  TO  DELETE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE*  *) 

(*  =0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  IF  KEY1  IS  AN  ENTKEY  THEN  *) 

(*  TRY  TO  DELETE  THE  ENTITY  ACCORDING  TO  IT'S  USER'S  RULES.  *) 

(*  IF  KEY1  IS  A  LISTKEY  THEN  *) 

(*  SORT  THE  LIST  IN  A  DELETABLE  ORDER.  *) 

(*  TRY  TO  DELETE  EACH  ENTITY  ON  THE  LIST  ACCORDING  TO  ITS  *) 

(*  USER'S  DELETE  RULES.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  5/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  4/11/86  E.  D.  SHREVE  W315  *) 

(*  CHANGED  TO  TEST  FOR  NIL  LIST  POINTER  BEFORE  READING  SORTLST..  *) 
(*  *) 
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(*  REVISED:  12/30/85  B.  A.  ULMER  W315 

(*  CHANGE  TO  READ  THE  SORT  LIST  IN  REVERSE  ORDER  -  REMOVE  THE 

(*  CALLS  TO  ELDNL  AND  CPYNL  (NO  LONGER  NECESSARY  SINCE  SORTDLST 

(*  HAS  BEEN  IMPROVED  FOR  EFFICIENCY  ) 

(* 

(*  REVISED:  09/  /85  B.  A.  ULMER  W315 

(*  ADD  CODE  TO  HANDLE  THE  TWO  NEW  DELETE  RULES 
(* 

(*  REVISED:  08/  /85  L.  J.  BEHAN  W315 

(*  ADD  A  NEW  PARAMETER  TO  DELRUL,  DELENTY  TO  HANDLE  APPLICATION 
(*  LIST  POSITION  PROBLEM 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 

(*  PURPOSES 

(* 

(*  REVISED:  05/15/85  B.  A.  ULMER  W315 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 

(* 

(*  ORIGINATED:  03/08/84  C.  J.  SAMPLE  W315 

(* 

(* . 

(**) 

(*  END  %INCLUDE  MAED.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


E-115 


PS  560130000A 
1  January  1987 


%PAGE 

(*  %INCLUDE  HAEDI.  *) 

(**) 

PROCEDURE  MAEDI(CONST  KEY1 : ANYKEY ;  VAR  KEY2 : LISTKEY ; 

VAR  RC : EXT  RET_CODE) ; SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  DELETE  INCLUSIVELY  AN  ENTITY  OR  LIST  OF  ENTITIES. 

(*  ENTITIES  AND  THEIR  DIRECT  AND  INDIRECT  CONSTITUENTS  WILL 

(*  BE  DELETED. 

(* 


(* 

SDESCRIPTION  OF 

ARGUMENTS: 

(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

KEY1 

I 

ENTITY  OR  LIST  OF  ENTITIES 

TO  BE 

(* 

INCLUSIVELY  DELETED  - 

(* 

KEY2 

0 

LIST  OF  ENTITIES  UNABLE  TO 

DELETE 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

(* 

*  0  OK  RETURN  CODE 

(* 

<  0  WARNING 

(* 

>  0  CRITICAL  ERROR 

(* 

(*  SCOMMONS: 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  IF  KEY1  IS  AN  ENTKEY  THEN 

(*  AN  INCLUSIVE  LIST  OF  THE  ENTITY'S  CONSTITUENTS  IS  CREATED 

(*  AND  THE  ENTITY  IS  ALSO  PLACED  ON  THE  INCLUSIVE  LIST. 

(* 

(*  IF  KEY1  IS  A  LISTKEY  THEN 

(*  AN  INCLUSIVE  LIST  OF  THE  LIST  OF  ENTITIES'  CONSTITUENTS 

(*  IS  CREATED  AND  THE  LIST  OF  ENTITIES  ARE  ALSO  PLACED  ON  THE 

(*  INCLUSIVE  LIST. 

(* 

(*  THE  INCLUSIVE  LIST  IS  SORTED  IN  A  USER-CONSTITUENT  ORDER. 

(* 

(*  FOR  EACH  ENTITY  ON  THE  INCLUSIVE  LIST,  AN  ATTEMPT  IS  MADE 

(*  TO  DELETE  THE  ENTITY  ACCORDING  TO  THE  DELETE  RULES  OF 

(*  THEIR  USERS. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(*  (COMMENTS: 

(* 

(*  (CHANGE  CONTROL: 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
(*  TO  USER  RECOGNIZEABLE  FORM 
(* 

(*  REVISED:  12/30/85  B.  A.  ULMER  W315 

(*  CHANGE  TO  READ  SORT  LIST  IN  REVERSE  ORDER 
(* 

(*  REVISED:  09/  /85  B.  A.  ULMER  W315 

(*  ADD  CODE  TO  HANDLE  THE  TWO  NEW  DELETE  RULES 
(*  PURPOSES 

(* 

(*  REVISED:  08/  /85  L.  J.  BEHAN  W315 

(*  ADD  A  NEW  PARAMETER  TO  DELRUL,  DELENTY  TO  HANDLE  APPLICATION 
(*  LIST  POSITION  PROBLEM 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
(*  PURPOSES 

(* 

(*  REVISED:  05/15/85  B.  A.  ULMER  W315 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 

(* 

(*  ORIGINATED:  08/20/84  C.  J.  SAMPLE  W315 

(* 

(* . 

%PAGE 

(**) 

(*  END  %INCLUDE  MAEDI .  *)  1 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  MAEDT.  *) 

(**) 

PROCEDURE  MAEDT (CONST  KEY 1: ANYKEY; VAR  KEYDL : LISTKEY ; 
VAR  KEYML: LISTKEY; VAR  RC:EXT  RET  CODE) ; SUBPROGRAM; 


(**) 

(*” 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

TEST  DELETE  AN  ENTITY  OR  LIST  OF  ENTITIES. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME 

KEY1 

KEYDL 

KEYML 

RC 


SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

SIMILAR  TO  MAED,  EXCEPT  NO  DELETION  NOR  MARK  FOR  DELETION 
IS  PERFORMED. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  06/19/86  B.  A.  ULMER  W315 

CHANGE  DETRUL  CALLING  PARAMETERS  &  EXCEPTION  LIST  TO  MARK  LIST 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


I/O  DESCRIPTION 

I  ENTITY  OR  LIST  OF  ENTITIES  TO  BE  TEST 
DELETED 

0  LIST  OF  ENTITIES  WHICH  WOULD  BE  DELETED 
OR  MARKED  FOR  DELETE-  BY  MAED 

0  LIST  OF  ENTITIES  WHICH  WOULD  BE  MARKED 
MAED 

0  EXTERNAL  RETURN  CODE 
-  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  12/30/85  8.  A.  ULMER  W315 

(*  CHANGE  TO  READ  THE  SORT  LIST  IN  REVERSE  ORDER  -  REMOVE  THE 

(*  CALLS  TO  ELDNL  AND  CPYNL  (NOT  NECCESSARY  SORTDLST  HAS  BEEN 
(*  IMPROVED  FOR  EFFICIENCY) 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  fRROR  HANDLING  AND  DEBUGGING 

(*  PURPOSES 

(* 

(*  REVISED:  05/15/85  B.  A.  ULMER  W315 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 

(* 

(*  ORIGINATED:  06/27/84  C.  J.  SAMPLE  W315 

(* 

(* . . . 

%PAGE 

(**) 

(*  END  ^INCLUDE  MAEDT.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  MAEDTI.  *) 

(**) 

PROCEDURE  MAEDTI (CONST  KEY1: ANYKEY ;VAR  KEYDL : LISTKEY ; 
VAR  KEYML: LISTKEY; VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

*) 


$ FUNCTION:  *) 

TEST  FOR  INCLUSIVE  DELETION  OF  AN  ENTITY  OR  LIST  OF  ENTITIES  *) 


ENTITIES  AND  THEIR  DIRECT  AND  INDIRECT  CONSTITUENTS  WILL  BE 
TESTED  FOR  DELETION. 


SDESCRIPTION  OF  ARGUMENTS: 


*) 

*) 

*) 

*) 

*) 

*) 


NAME 

I/O 

DESCRIPTION 

*) 

*) 

*) 

*) 

KEY  1 

I 

ENTITY  OR  LIST  OF  ENTITIES  TO  BE 
INCLUSIVELY  TEST  DELETED 

KEYDL 

0 

LIST  OF  ENTITIES  WHICH  WOULD  BE  DELETED 
BY  MAEDI 

*) 

*) 

KEYML 

0 

LIST  OF  ENTITIES  WHICH  WOULD  BE  MARKED  BY*) 
MAEDI  *) 

RC 

0 

EXTERNAL  RETURN  CODE 

*) 

*  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 


SCOMMONS: 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

IF  KEY1  IS  AN  ENTKEY  THEN 

AN  INCLUSIVE  LIST  OF  THE  ENTITY'S  CONSTITUENTS  IS  CREATED 
AND  THE  ENTITY  IS  ALSO  PLACED  ON  THE  INCLUSIVE  LIST. 


IF  KEY1  IS  A  LISTKEY  THEN 
AN  INCLUSIVE  LIST  OF  THE 


.1ST  OF  ENTITIES'  CONSTITUENTS 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


IS  CREATED  AND  THE  LIST  OF  ENTITIES  ARE  ALSO  PLACED  ON  THE  *) 
INCLUSIVE  LIST. 


THE  INCLUSIVE  LIST  IS  SORTED  IN  A  USER-CONSTITUENT  ORDER. 


*) 

*) 

*) 

*) 
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(*  FOR  EACH  ENTITY  ON  THE  INCLUSIVE  LIST,  AN  ATTEMPT  IS  MADE 

(*  TO  TEST  DELETE  THE  ENTITY  ACCORDING  TO  THE  DELETE  RULES 

(*  OF  THEIR  USERS. 

(* 

(*  THE  LIST  OF  MARKABLE  ENTITIES  IS  MERGED  WITH  THE  LIST  OF 
(*  NON  DELETABLE  ENTITIES. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL 
(* 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 

(*  TO  USER  RECOGNIZEABLE  FORM 

(* 

(*  REVISED:  06/19/86  B.  A.  ULMER  W315 

(*  CHANGE  PARAMETERS  TO  DETRUL  AND  EXCEPTION  LIST  TO  MARK  LIST 

(* 

(*  REVISED:  01/13/85  E.  D.  SHREVE  W315 

(*  CHANGED  TO  INITIALIZE  A  LIST  POSITION  VARIABLE 
(* 

(*  REVISED:  12/30/85  B.  A.  ULMER  W315 

(*  CHANGE  TO  READ  SORT  LIST  IN  REVERSE  ORDER 
(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 

(*  PURPOSES 

(* 

(*  REVISED:  05/15/85  B.  A.  ULMER  W315 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 

(* 

(*  ORIGINATED:  08/21/84  C.  J.  SAMPLE  W315 

(* 

(* .  . 

%PAGE 

(**) 

(*  END  %INCLUDE  MAEDTI.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  MAEDTS.  *) 

(**) 

PROCEDURE  MAEDTS (CONST  KEY1: ANYKEY; VAR  KEYDL :LISTKEY; 
VAR  KEYEL:LISTKEY;VAR  KEYML:LISTKEY; 

VAR  RC:EXT  RET_CODE); SUBPROGRAM; 


(*  *) 

(*  $ FUNCTION:  *) 

(*  TEST  DELETE  AN  ENTITY  OR  LIST  OF  ENTITIES,  AND  RETURN  THREE  *) 

(*  LISTS.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  — -  ~ .  *) 

(*  KEY1  I  ENTITY  OR  LIST  OF  ENTITIES  TO  BE  TEST  *) 

(*  DELETED  '  *) 

(*  KEYDL  0  LIST  OF  ENTITIES  WHICH  WOULD  BE  DELETED  *) 

(*  OR  MARKED  FOR  DELETE  BY  MAED  *) 

(*  KEYEL  0  LIST  OF  ENTITIES  WHICH  WOULD  NOT  BE  *) 

(*  DELETED  BY  MAED  *) 

(*  KEYML  0  LIST  OF  ENTITIES  WHICH  WOULD  BE  MARKED,  *) 

(*  FOR_DELET  BY  MAED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  -  0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  SIMILAR  TO  MAEDT,  EXCEPT  THREE  LISTS  ARE  RETURNED.  KEYDL  AND  *) 

(*  KEYML  CAN  BE  SUBMITTED  TO  DIRECTLY  DELETE  AND  MARK  ENTITIES  *) 

(*  USING  MAS  DELETE  ROUTINES  THAT  DO  NOT  CHECK  THE  DELETE  RULES.*) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 
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(*  ORIGINATED:  04/22/86 
(* 

(* . 

%PAGE 


(**) 

(*  END  %INCLUDE  MAEDTS  *) 


E.  D.  SHREVE 
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*) 

. *) 

*) 
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(*  %INCLUDE  MAEGKN  *) 

(**) 

PROCEDURE  MAEGKN (CONST  KEYE:ENTKEY;VAR  KIND: INTEGER; 
VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  RETRIEVE  THE  KIND  VALUE  OF  AN  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  «”=  .  *) 

(*  KEYE  I  KEY  OF  AN  ENTITY  *) 

(*  KIND  0  KIND  VALUE  OF  THE  ENTITY  (INTEGER)  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =0  OK  RETURN  CODE  -  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  ACCESS  THE  KIND  VALUE  FROM  THE  ENTITY  ADB  AND  RETURN  IT.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 
(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  03/25/85  E.  D.  SHREVE  W315  *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  MAEGKN  *) 
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(*  %INCLUDE  MAEGTK  *) 

(**) 

PROCEDURE  MAEGTK (CONST  KEYE:ENTKEY;VAR  ENTDEF:ENTBLOCK; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


$ FUNCTION: 

RETRIEVE  THE  ENTITY  BLOCK  WHICH  CORRESPONDS  TO  KEYE. 


SDESCRIPTION  OF  ARGUMENTS: 


NAME 

:/o 

DESCRIPTION 

KEYE 

I 

KEY  OD  TH  ENETITY  TO  BE  RETRIEVED 

ENTDEF 

0 

APPLICATION  DATA  ASSOCIATED  WITH  1 

RC 

0 

EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 

SCOMMONS: 

$  ENVIRONMENT : 

LANGUAGE: 

IBM  PASCAL 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

APPLICATION  PROVIDES  ENTITY  KEY.  MAS  WILL  RETRIEVE  THE 
ENTITY 
SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  08/14/86  K.  M.  ROSS  DBMA 

ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 

REVISED:  11/15/84  D.  J.  KERCHNER  FRMI 

CHECK  FOR  VALID  ENTITY  KEY  IF  NOT  RETURN  RC  <  0 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  MAEKND  *) 

(**) 

PROCEDURE  MAEKND (CONST  KNDPOS:LISTINDX;VAR  KNDVAL:ORD_KIND; 
VAR  RC : EXT  RET_CODE) ; SUBPROGRAM; 

(**) 


(* . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  TO  RETURN  A  'KIND'  VALUE  FROM  THE  LIST  OF  KINDS  IN  THE  *) 

(*  WORKING-FORM  MODEL.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

( *  ====  ==  =  =*=»*======  * ) 

(*  KNDPOS  I  SEQUENCE  #  OF  THE  KIND  VALUE  REQUESTED  *) 

(*  KNDVAL  0  KIND  VALUE  AT  THE  'KNDPOS'  POSITION  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =0  OK  RETURN  CODE  *) 

(*  =  1  YOU  BLEW  IT  *) 

(*  -2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NDSREM  *) 

(*  KEY  I  KEY  OF  THE  ROOT  ELEMENT  *) 

(*  MUST  BE  PROVIDED  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  RETRIEVES  THE  'KIND'  VALUE  STORED  AT  THE  'KNDPOS'  POSITION  *) 

(*  IN  THE  STD.ARRAY  OF  THE  SCH.ROOT  ADB.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  REC0GNI2EABLE  FORM  *) 

(*  *) 

(*  ORIGINATED:  10/26/84  E.  D.  SHREVE  FRMI  *) 

(*  *) 

(* .  *) 

%PAGE  *) 

(* .  . *) 
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DATA  STRUCTURES/MAJOR  VARIABLES: 


(* 

<*- 
(* 

(*END . 

(**) 

(*  END  %INCLUDE  MAEKND 
(**) 


*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  MAERST  *) 

(**) 

PROCEDURE  MAERST(CONST  FLGNAME:NAMTYP;  VAR  RC: EXT_RET_CODE) ; 
SUBPROGRAM; 


(**) 

(*" 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*" 


SFUNCTION: 

RESET  THE  GIVEN  FLAG  IN  ALL  ENTITIES  IN  THE  WORKING  FORM 
MODEL 

SDESCRIPTION  OF  ARGUMENTS: 

NAME 

S  =  3  = 

FLGNAME 
RC 


SCOMMONS: 

NDSREM 

VAR1 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

ORIGINATED:  08/12/85  B.  A.  ULMER  FRMI 


I/O  DESCRIPTION 

I  THE  NAME  OF  THE  FLAG  WHICH  WILL  BE  RESET 
0  EXTERNAL  RETURN  CODE 
=  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA 
MUST  BE  PROVIDED 


%PAGE 


(* 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 
(* 

(* 

(*END . - . . 

(*  END  %INCLUDE  MAERST  *) 
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') 


SFUNCTION: 

FIND  THE  CURRENT  BINARY  SWITCH  SETTING  OF  AN  ENTITY. 


SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

*) 

*) 

KEY1 

I 

KEY  OF  THE  ENTITY  WHOSE  SETTING 
DETERMINED 

IS  TO  BE  *) 
*) 

RC 

0 

EXTERNAL  RETURN  CODE 

*) 

0 

0 

0 


OK 

CRITICAL  ERROR 
WARNING 


SCOMMONS: 


%PAGE 

(*  %INCLUDE  MAESVL. 

(**) 

PROCEDURE  MAESVL(CONST  KEY1 :ENTKEY;VAR  ISET: INTEGER; 
VAR  RC : EXT_RET  CODE) ; SUB PROGRAM; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE 


INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

THE  INPUT  KEY  MUST  BE  AN  ENTITY  KEY.  IF  THE  SWITCH  IS 
TRUE,  THEN  THE  VALUE  "1"  IS  RETURNED.  IF  THE  SWITCH  IS 
FALSE,  THEN  THE  VALUE  "0”  IS  RETURNED. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

AJjED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


REVISED:  08/14/86  K.  M.  ROSS 

ADDED  A  CHECK  FOR  NIL  POINTER  FOR  KEY1 


DBMA 


-*) 

*) 

*) 

*) 

*) 

*) 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
PURPOSES  *) 

*) 


*) 

*) 

*) 
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f) 


%PAGE 

(*  %INCLUDE  MAESWA 
(**) 

PROCEDURE  MAESWA(VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 


SFUNCTION: 
SETS  THE 


PROCESS  BIT  'OFF'  IN  ALL  ENTITIES  IN  THE  MODEL. 


SDESCRIPTION  OF  ARGUMENTS: 

I/O  DESCRIPTION 


NAME 

RC 


SCOMMONS: 

NDSREM 

KEY 


EXTERNAL  RETURN  CODE 


=  0 
>  0 
<  0 


OK 

CRITICAL 

WARNING 


ERROR 


I  KEY  OF  THE  MODEL  ROOT  ELEMENT 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

EACH  ENTRY  IN  THE  SCHEMA-ROOT  CONSTITUENT  LIST  IS  READ. 

IF  IT  IS  AN  INSTANCE_COLLECTOR  NODE,  THEN  EACH  ENTITY 
ON  THE  CONSTITUENT  LIST  OF  THE  COLLECTOR  NODE  IS  READ 
AND  THE  ADB.SYSUSE  FIELD  IS  SET  TO  'TRUE'. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDTION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


ORIGINATED:  02/06/85  CCWW  E.  D.  SHREVE 


FRMI 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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%PAGE  *) 

(* . *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* . *) 

(*  *) 

(*END . *) 


(*  END  %INCLUDE  MAESWA  *) 
(**) 
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%PAGE 

(*  ^INCLUDE  HAESWT .  *) 

(**) 

PROCEDURE  MAESWT( CONST  KEV1 : ANYKEY; CONST  ISWT: INTEGER; 
VAR  RC : EXT_RET_CODE ); SUBPROGRAM ; 


SFUNCTION: 

SET  AN  ENTITY  SWITCH  OR  THE  SWITCHES  FOR  EACH  ENTITY  IN  A 
LIST  AS  REQUESTED  BY  THE  USER. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

KEY1  I  KEY  OF  THE  ENTITY  WHOSE  SWITCH  IS  TO  BE 

SET  OR  KEY  OF  THE  LIST  ALL  OF  WHOSE 
ENTITY  SWITCHES  ARE  -TO  BE  SET 
ISWT  I  SWITCH  VALUE  REQUESTED 

RC  0  EXTERNAL  RETURN  CODE 

=  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 

SCOMMONS: 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

THE  TYPE  OF  KEY  IS  CHECKED  FOR. 

IF  AN  ENTITY,  THEN  THE  ENTITY'S  SWITCH  IS  RESET. 

IF  A  LIST,  THEN  EACH  ENTITY  ON  THE  LIST  HAS  ITS  SWITCH 
RESET. 

SCOMMENTS: 

SCHANGE  CONTROL: 


REVISED:  05/01/86 


B.  A.  ULMER 


ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 
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r) 


%PAGE 

(*  %INCLUDE  MAEU. 

(**) 

PROCEDURE  MAEU (CONST  KEY 1 : ANYKEY; VAR  KEY2 : LISTKEY ; 
VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(•* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

{* 


{FUNCTION: 

CREATE  A  LIST  OF  USER  ENTITY  REFERENCES. 
{DESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

mmmms 

*** 

(* 

(* 

KEY1 

I 

ENTITY  OR  LIST  OF  ENTITIES  FOR  WHICH 
LIST  OF  DIRECT  USERS  IS  REQUESTED 

(* 

PARM2 

0 

LIST  OF  USER  REFERENCES 

(* 

RC 

0 

EXTERNAL  RETURN  CODE- 

*  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 


SCOMMONS: 


{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

{PROCESSING  DESCRIPTION: 

A  NEW  LIST,  KEY2,  IS  CREATED  THAT  CONTAINS  THE  LIST  OF 
DIRECT  USERS.  IF  KEY1  IS  AN  ENTITY  KEY,  THE  DIRECT  USERS 
OF  KEY1  ARE  PLACED  IN  THE  LIST.  IF  KEY1  IS  A  LISTKEY,  THE 
DIRECT  USERS  OF  ALL  ENTITIES  IN  THE  LIST  ARE  PLACED  INTO 
KEY2. 

{COMMENTS: 

{CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  W315 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  05/15/85  B.  A.  ULMER  W315 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 
(* 

(*  REVISED:  08/14/86  K.  M.  ROSS  W315 

(*  ADDED  A  CHECK  FOR  NIL  POINTER  FOR  KEY1 
(* 

(*  ORIGINATED:  06/21/84  D.  J.  KERCHNER  W315 

(* 

(* . . 

%PAGE 

(**) 

(*  END  %INCLUDE  MAEU.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  MAEUD  *) 

(**) 

PROCEDURE  MAEUD(VAR  KEYE:ENTKEY;VAR  ENTDEF-.ENTBLOCK; 
VAR  RC : EXT  RET.CODE) SUBPROGRAM; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

UPDATE  THE  ENTITY  BLOCK  CORRESPONDING  TO  A  KEY. 
JDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

KEYE 

I 

KEY  OF  THE  ENTITY  TO  BE  UODATED 

ENTDEF 

I 

APPLICATION  DATA  ASSOCIATED  WITH 

RC 

0 

EXTERNAL  RETURN  CODE 
-0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 

SCOMMONS: 

S ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

CALL  REVNODM 

SCOMMENTS: 

IT  IS  ILLEGAL  FOR  THE  APPLICATION  TO  CHANGE  KIND  ON  UPDATE. 
SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 

REVISED:  10/11/84  D.  J.  KERCHNER  FRMI 

UPDATED  THE  INCLUDE  DOCUMENTATION 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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* 

REVISED: 

10/04/84 

E.  D.  SHREVE 

FRMI 

★ 

* 

CHANGED 

THE  DECLARATION  FOR  KEYE  AND  ENTDEF  TO  VAR 

* 

REVISED: 

08/14/86 

K.  M.  ROSS 

DBMA 

* 

* 

ADDED  A 

CHECK  FOR  NIL 

POINTER  FOR  KEY1 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  MAEUI  *) 

(**) 

PROCEDURE  MAEUI (CONST  KEY 1 : ANYKEY; VAR  KEY2 : LISTKEY ; 
VAR  RC : EXT  RET  CODE) ; SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

{* 

(* 


SFUNCTION: 

CREATE  AN  APPLICATION  LIST  OF  INCLUSIVE  USER  ENTITIES. 
SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

KEY1 

I 

KEY  OF  AN  ENTITY  OR  A  LIST. 

KEY2 

0 

RETURNED  KEY  OF  THE  APPLICATION  LIST. 

RC 

0 

FUNCTION  RETURN  CODE. 

-  0  GOOD  RETURN 

>  0  CRITICAL  ERROR 

<  0  WARNING 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360,  370,  43XX 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  PROCEDURE 

SPROCESSING  DESCRIPTION: 

KEY2  IS  CREATED  (EMPTY  LIST). 

IF  KEY1  IS  AN  ENTITY,  THEN  THE  INCLUSIVE  USER  LIST  OF  KEY1 
WILL  BE  COPIED  INTO  KEY2. 

IF  KEY1  IS  A  LIST  KEY,  THEN  THE  INCLUSIVE  USER  LISTS  OF 
EACH  ENTITY  WILL  BE  COPIED  INTO  KEY2. 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE" 
CONDITION  TO  USER  RECOGNIZEABLE  FORM 
REVISED:  11/08/85  B.  A.  ULMER  W315 

FIX  BUG  DEALING  WITH  PREVIOUS  FIX 
REVISED:  11/08/85  B.  A.  ULMER  W315 

NOT  ALLOW  ENTITIES  THAT  ARE  ON  THE  APPLICATION 
INPUT  LIST  TO  BE  ON  THE  APPLICATION  OUTPUT  LIST 
(FIX  THE  INCONSISTENCIES  IN  THE  PROCESSING) 
REVISED:  07/11/85  B.  A.  ULMER  W315 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING 
AND  DEBUGGING  PURPOSES 

REVISED:  05/15/85  B.  A.  ULMER  W315 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  04/29/85  E.  D.  SHREVE  W315 

(*  TO  USE  MAS  INTERNAL  PROCESS  FLAG  (MAPROB) 

(*  REVISED:  08/14/86  K.  M.  ROSS  W315 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 

(*  ORIGINATED:  06/13/84  D.  J.  KERCHNER  W315 

(* 

(**) 

(*  END  %INCLUDE  MAEUI  *) 


*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 


(*  %INCLUDE  MAEUIK  *) 

(**) 

PROCEDURE  MAEUIK(CONST  KEY1 :ANYKEY;CONST  ENTKIND:ORD_KIND; 
VAR  KEY2:LISTKEY;VAR  RC:EXT_RET  CODE) ; SUBPROGRAM; 


(*  SFUNCTION:  *) 
(*  CREATE  A  LIST  OF  INCLUSIVE  USERS  BY  KIND.  *) 
(*  *) 
(*  SDESCRIPTION  OF  ARGUMENTS:  *) 
(*  NAME  I/O  DESCRIPTION  *) 

(*  *■**  *) 

(*  KEY1  I  THE  KEY  OF  AN  ENTITY  OR  A  LIST  OF  ENTITIES  *) 
(*  WHOSE  INCLUSIVE  USERS  ARE  TO  BE  SEARCHED  *) 
(*  FOR  THE  SPECIFIED  KIND.  *) 
(*  KIND  I  THE  KIND  CODE  OF  AN  ENTIT-Y  OR  AN  ENTITY  *) 
(*  CLASS.  *) 
(*  KEY2  0  THE  KEY  OF  THE  LIST  WHICH  WILL  CONTAIN  ALL  *) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


ENTITIES  OF  THE  SPECIFIED  KIND  FOUND  WITHIN  *) 

THE  INCLUSIVE  USERS  OF  KEY1 .  *) 

RC  0  THE  FUNCTION  RETURN  CODE.  *) 

-  0  GOOD  RETURN  *) 

>  0  CRITICAL  ERROR  *) 

<  0  WARNING  *) 

*) 

SCOMMONS:  *) 

NONE  *) 

*) 

$ ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360,  370,  43XX  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE.  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

FOR  THE  GIVEN  ENTKEY  OR  LISTKEY  EXPAND  ITS  USERS  INCLU  *) 

SIVLEY.  FOR  EACH  MEMBER  OF  THE  EXPANDED  LIST  WHOSE  KIND  *) 

MATCHES  THE  KIND  VALUE  DESIRED  ADD  IT  TO  THE  LIST  POINTED  *) 

TO  BY  KEY 2  *) 

*) 

SCHANGE  CONTROL:  *) 

REVISED:  05/01/86  B.A.  ULMER  W315  *) 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"*) 

CONDITION  TO  USER  RECOGNIZEABLE  FORM  *) 

REVISED:  07/11/85  B.A.  ULMER  W315  *) 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  *) 

AND  DEBUGGING  *) 
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(* 

REVISED: 

05/15/85 

B.A.  ULMER 

W315 

* 

(* 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 

★ 

(* 

REVISED: 

04/29/85 

E.D.  SHREVE 

W315 

* 

(* 

TO  USE  THE 

INTERNAL  MAS  PROCESS  FLAG 

(MAPROB) 

★ 

(* 

REVISED: 

08/14/86 

K.M.  ROSS 

W315 

* 

(* 

ADDED  A  NIL 

POINTER  CHECK  FOR  KEY1 

* 

(* 

(* — 

ORIGINATED:  08/20/84 

R.  A.  MCCLUSKEY 

W315 

★ 

_ * 

(* . *) 

(**) 

(*  END  %INCLUDE  MAEUIK  *) 
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%PAGE 

(*  %INCLUDE  MAEUSR  *) 

(**) 

PROCEDURE  MAEUSR(CONST  KEYE:ENTKEY;  VAR  UEXIST: INTEGER; 
VAR  RC : EXT_RET_CODE) ; SUBPROGRAM ; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

f* 

\ 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

{FUNCTION:  *) 

DETERMINES  IF  AN  ENTITY  HAS  ANY  USERS.  *) 

*) 

{DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

KEYE  I  ENTITY  KEY  *) 

UEXIST  0  INTEGER  VALUE  INDICATING  IF  KEYE  HAS  *) 

ANY  USERS.  *) 

-  0  NO  USERS  EXIST  -  *) 

*  1  USERS  EXIST  *) 

RC  0  EXTERNAL  RETURN  CODE  *) 

-  0  OK  RETURN  CODE  *) 

>  0  CRITICAL  ERROR  *) 

<  0  WARNING  MESSAGE  *) 

*) 

{COMMONS:  *) 

NONE  *) 

*) 

{ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

{EXECUTION  PROCEDURE:  *) 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE.  *) 

*) 

{PROCESSING  DESCRIPTION:  *) 

EVALUATES  THE  USER  POINTER  IN  THE  ENTITY  BLOCK  FOR  A  NIL.  *) 

IF  NIL,  THEN  NO  USERS  EXIST.  *) 

*) 

{COMMENTS:  *) 

THIS  PROCEDURE  DEVELOPED  SPECIFICALLY  FOR  THE  IDB  PACKAGE  *) 

BUT  IS  FUNCTIONAL  FOR  ALL  APPLICATIONS.  *) 

*) 

{CHANGE  CONTROL:  *) 

*) 

REVISED:  05/01/86  B.  A.  ULMER  *) 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

TO  USER  RECOGNIZEABLE  FORM  *) 

*) 

REVISED:  04/07/85  B.  A.  ULMER  *) 

CHANGED  TO  CHECK  FOR  THE  SYSTEM  LIST  HAVING  NO  ENTRIES  -  IF  IT*) 

DOES,  THEN  NO  USERS  EXIST  *) 

*) 
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(*  REVISED:  07/11/86  B.  A.  ULMER 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
(*  PURPOSES 
(* 

(*  ORIGINATED:  03/25/85  E.  D.  SHREVE 

(* 

(* 

(*END . - . 

(*  END  %INCLUDE  MAEUSR  *) 
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%PAGE 

(*  %INCLUDE  MAEUXQ  *) 

(**) 

PROCEDURE  MAEUXQ (CONST  KEY1 : ANYKEY; VAR  DATAREC:BLKDATA; 

CONST  PROCNAME: ROUTINE; VAR  KEY2 : LISTKEY ; VAR  RCC:EXT  RET_CODE; 
VAR  RC : EXT_RET  CODE) SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  EXECUTE  A  PROCEDURE  ON  THE  USERS  OF  AN  ENTITY,  OR  LIST 

(*  OF  ENTITIES.  IF  AN  OUTPUT  LIST  IS  NOT  PASSED,  CONSTRUCT  ONE 

(*  IN  ORDER  TO  PUT  ENTITIES  ON  IT  AS  DETERMINED  BY  THE 

(*  APPLICATION  PROCEDURE. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

KEY1 

I 

ENITIY  OR  LIST  OF  ENTITIES  WHOSE  USERS 

(* 

ARE  TO  BE  PROCESSED 

(* 

DATAREC 

I/O 

APPLICATION  DEFINED  DATA  STRUCTURE  WHICH 

(* 

EITHER  SUPPLIES  OR  RECIEVES  VALUES 

(* 

OPERATED  ON  BY  THE  APPLICATION  PROCEDURE 

(* 

PROC 

I 

ENTRY  POINT  OF  APPLICATION  DEFINED 

(* 

PROCEDURE 

(* 

KEY2 

0 

KEY  OF  THE  LIST  CREATED 

(* 

FOR  THIS  ROUTINE 

(* 

RCC 

0 

USER  DEFINED  PROCEDURE  RETURN  CODE 

(* 

=  0,1  OK  RETURN  CODE 

(* 

-  2-7  PROCEDURE  WARNING  CODE 

(* 

-  8-15  PROCEDURE  ERROR  CODE 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 
-  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 

SCOMMONS: 

S ENVIRONMENT: 

(* 

LANGUAGE: 

IBM  PASCAL 

(* 

(* 

(* 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

(* 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SPROCESSING  DESCRIPTION: 

(*  THE  USER  SENDS  IN  THE  NECESSARY  INFORMATION,  THEN  THIS 

(*  ROUTINE  REFERENCES  THE  USER'S  SPECIFIED  PROCEDURE  TO  ACT 

(*  UPON  THE  INFORMATION  HE  HAS  SUPPLIED  TO  THE  PROCEDURE. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  09/09/86  B.  A.  ULMER  DBMA 

(*  FIX  PROBLEM  WITH  DELETING  EMPTY  PASSED  IN  APPL  LIST 
(* 

(*  ORIGINATED:  06/16/86  B.  A.  ULMER  W315 

(* 

(* . 

%PAGE 

(**) 

(*  END  %INCLUDE  MAEUXQ  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  MAEXEQ  *) 

(**) 

PROCEDURE  MAEXEQ (CONST  KEY 1: ANYKEY; VAR  DATARECrBLKDATA; 
CONST  PROCNAME: ROUTINE; VAR  RCC : EXT_RET_CODE ; 

VAR  RC : EXT_RET  CODE) SUBPROGRAM; 


*  SFUNCTION:  * 

*  * 

*  SDESCRIPTION  OF  ARGUMENTS:  * 

*  NAME  I/O  DESCRIPTION  * 


KEY1  I  THE  KEY  OF  THE  ENTITY  OR  APPLICATION  LIST*) 

OF  ENTITIES  TO  BE  PROCESSED  *) 

DATAREC  I/O  THE  APLLICATION  DEFINED  DATA  STRUCTURE  *) 

WHICH  EITHER  SUPPLIE-S  OR  RECEIVES  VALUES  *) 
OPERATED  ON  BY  THE  APPLICATION  USER  *) 

DEFINED  PROCEDURE  *) 

PROCNAME  I  THE  NAME  OF  THE  USER  DEFINED  PROCEDURE  *) 

RCC  0  THE  USER  DEFINED  PROCEDURE'S  RETURN  CODE  *) 

RCC  <  0  &  RCC  >  15  PROC  OUT_OF_RANGE  *) 
RCC=*>  0  &  RCC»<  7  CONTINUE  PROCESSING  *) 


*  RCC*>  8  &  RCC*<  15  PROC  CODE  ERROR  *) 

*  RC  0  EXTERNAL  RETURN  CODE  "  *) 

*  *  0  OK  *) 

*  >0  CRITICAL  ERROR  *) 

*  <0  WARNING  *) 

*  *) 

*  SCOMMONS:  *) 

*  *) 

*  $ ENVIRONMENT:  *) 

*  LANGUAGE:  IBM  PASCAL  *) 

*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*  *j 

*  $ EXECUTION  PROCEDURE:  *) 

*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

* 


(*  SPROCESSING  DESCRIPTION:  *) 
(*  THE  USER  SENDS  IN  THE  NECESSARY  INFORMATION,  THEN  THIS  *) 
(*  ROUTINE  REFERENCES  THE  USER'S  SPECIFIED  PROCEDURE  TO  ACT  *) 
(*  UPON  THE  INFORMATION  HE  HAS  SUPPLIED  TO  THE  PROCEDURE.  *) 
(*  THE  PROCEDURE  RETURNS  ITS  OWN  RETURN  CODE  TO  THE  USER  *) 
(*  *) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A. ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  01/20/86  B.  A. ULMER  FRMI  *) 

(*  ADD  NEW  CAPABILITY  TO  ALLOW  READING  LIST  IN  REVERSE  IN  ORDER  *) 

(*  TO  PROCESS  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A. ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  03/06/85  B.  A. ULMER  FRMI  *) 

(*  FIXED  APPLICATION  LIST  PROBLEM  -  *) 

(*  *) 

(*  REVISED:  11/28/84  D.  J.  KERCHNER  FRMI  *) 

(*  CHANGED  MANNER  OF  ACCESSING  USER  DEFINED  PROCEDURE  -  NOW  *) 

(*  ACCESSED  VIA  ASSEMBLER  CSECT  PASASM  *) 

(*  *) 

(*  ORIGINATED:  04/11/84  D.  J.  KERCHNER  FRMI  *) 

(*  *) 

(* . *) 

%PAGE  *) 

(* . *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* . *) 

(*  *) 

(*END . - . *) 

(*  END  ^.INCLUDE  MAEXEQ  *) 

(**) 
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(*  %INCLUDE  HAINIT.  *) 

(**) 

PROCEDURE  MAINIT(VAR  RC : EXT_RET_CODE) ; SUBPROGRAM ; 


(*  *) 

(*  $  FUNCTION:  *) 

(*  INITIALIZE  THE  MAS  NETWORK.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  -  0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  -  *) 
(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  JPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 
(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  REVISED:  05/21/85  B.  A.  ULMER  W315  *) 

(*  ADD  CALL  TO  INITIALIZE  THE  APPLICATION  ACCESSIBLE  FLAG  TABLE  *) 
(*  *) 

(*  ORIGINATED:  03/08/84  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* . *) 

%PAGE  *) 

%PRINT  ON 

(*  END  %INCLUDE  MAINIT  *) 
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') 


%PAGE 

(*  %INCLUDE  HAKCNT 
(**) 

PROCEDURE  MAKCNT( CONST  KINDX : INTEGER ; VAR  COUNT: INTEGER; 
VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 


{FUNCTION: 

DETERMINE  THE  NUMBER  OF  ENTITIES  IN  THE  WORKING  FORM  MODEL 
OF  A  SPECIFIED  KIND 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{DESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

KINDX 

I 

KIND  VALUE  FOR  WHICH  A  COUNT  IS  TO 

(* 

DETERMINED 

(* 

COUNT 

0 

NUMBER  OF  ENITITES  III  THE  MODEL  OF 

(* 

SPECIFIED  KIND 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

(* 

«0  OK  RETURN  CODE 

(* 

>  0  CRITICAL  ERROR 

(* 

<  0  WARNING 

{COMMONS: 

NONE 

{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

{PROCESSING  DESCRIPTION: 

DETERMINE  IF  THE  KIND  SPECIFIED  IS  IN  THE  WORKING  FORM 
MODEL.  IF  SO,  RETURN  THE  LENGTH  VALUE  OF  THE  CONSTITUENT 
LIST  FOR  THE  COUNT.  IF  NOT,  RETURN  A  VALUE  OF  ZERO  FOR 
THE  COUNT. 

{COMMENTS: 

NONE 


{CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE” 
TO  USER  RECOGNIZEABLE  FORM 


W315 

CONDITION 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDi  ING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  05/10/85  B.  A.  ULMER  W315  *) 

(*  *) 

(*END . - . - . *) 

(*  END  %INCLUDE  MAKCNT  *) 


» 
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%PAGE 

(*  %INCLUDE  MAKILL.  *) 

(**) 

PROCEDURE  MAKILL (VAR  RC : EXT_RET  CODE) SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  DELETE  THE  WORKING  FORM  MODEL. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  RC  0  EXTERNAL  RETURN  CODE 

{  •  =0  OK  RETURN  CODE 

(*  <0  WARNING 

(*  >0  CRITICAL  ERROR 

(* 

(*  SCOMMONS: 

(*  NDSGVR 

(*  LIST_OF_ROOTS  0  POINTER  TO  LIST  OF  ROOTS 

(*  STACK_OF_LISTS  0  POINTER  TO  STACK_OF_ROOTS 

(*  NDSREM 

(*  KEY  0  POINTER  TO  THE  WORKING  FORM  ROOT  NODE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE. 

(*  THIS  VERSION  USED  WITH  THE  MAS  MEMORY  MANAGER. 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DELETES  THE  WORKING  FORM  USING  PROCEDURE  'NDSREL' . 

(*  RESETS  POINTERS  IN  THE  COMMONS  TO  NIL. 

(* 

(*  SCOMMENTS: 

(*  THIS  VERSION  FOR  USE  WITH  THE  MAS  MEMORY  MANAGER.  THE  OLD 

(*  VERSION  MUST  BE  USED  IF  THE  PASCAL  MEMORY  MANAGER  IS  USED. 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
(*  TO  USER  RECOGNIZEABLE  FORM 

(* 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
(*  PURPOSES 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  04/05/85  E.  D.  SHREVE  W315  *) 

(*  CHANGED  TO  DELETE  THE  WORKING  FORM  USING  'NDSREL' .  *) 

(*  *) 

(*  ORIGINATED:  02/02/84  D.  KERCHNER  K315  *) 

(*  *) 

(* .  . *) 

(*END . *) 

(**) 

%PRINT  ON 

(*  END  %INCLUDE  MAKILL  *) 
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%PAGE 

(*  ^INCLUDE  MAKXEQ  *) 
(**) 


PROCEDURE  MAKXEQ (CONST  KIND :ORD_KIND; VAR  DATAREC:BLKDATA; 
CONST  PROCNAME: ROUTINE; VAR  RCC : EXT_RET_CODE ; 

VAR  RC : EXT  RET_CODE) ; SUBPROGRAM; 


(*  *) 

(*  $ FUNCTION  *) 

(*  EXECUTE  A  PROCEDURE  ON  ALL  ENTITIFS  OF  A  SPECIFIED  KIND.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS  * 

(*  NAME  I/O  DESCRIPTION  *) 

( *  ■*«*  =  =====  3*StI=3I  =  =====  * ) 

(*  KIND  I  KIND  VALUE  OF  THE  ENTITIES  TO  BE  PROCESSED.  *) 

(*  DATAREC  I  THE  APPLICATION  DEFINED  DATA  STRUCTURE  WHICH  *) 

(*  EITHER  SUPPLIES  OR  RECEIVES  VALUES  OPERATED  *) 

(*  ON  BY  THE  APPLICATION  DEFINED  PROCEDURE.  *) 

(*  PROCNAME  I  THE  NAME  OF  THE  USER  DEFINED  PROCEDURE.  *) 

(*  DATAREC  0  THE  DATA  STRUCTURE  THAT  RESULTS  FROM  USING  *) 

(*  THE  USER  DEFINED  PROCEDURE.  *) 

(*  RCC  0  THE  USER  DEFINED  PROCEDURE'S  RETURN  CODE.  *) 

(*  RC  0  THE  FUNCTION  RETURN  CODE.  *) 

(*  =0  EXPECTED  RESULT  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE.  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THE  CONSITIUENT  LIST  OF  THE  INPUT  'KIND'  INSTANCE  COLLECTOR  *) 

(*  IS  READ  IN  LIFO  ORDER  AND  THE  INPUT  PROCEDURE  IS  CALLED  *) 

(*  WITH  EACH  ENTRY  IN  THE  CONSTITUENT  LIST.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  THE  ROUTINE  PASASM  IS  CALLED  TO  PROVIDE  A  METHOD  OF  PASSING  *) 

(*  ARGUMMENTS  FROM  A  FORTRAN  ROUTINE.  *) 

(*  THE  LIST  IS  READ  IN  LIFO  ORDER  IN  CASE  THE  INPUT  PROCEDURE  *) 

(*  DELETES  ENTITIES  THAT  AFFECT  THE  LIST  BEING  READ.  WITH  THE  *) 

(*  LIFO  ORDER,  THE  LIST  POSITION  IS  NOT  AFFECTED.  *) 

(*  *) 


E- 152 


PS  560130000A 
1  January  1987 


(*  SCHANGE  CONTROL: 

(*  REVISED:  05/01/86  B.  A.  ULMER 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE" 

(*  CONDITION  TO  USER  RECOGNIZEABLE  FORM 

(*  REVISED:  07/29/85  B.  A.  ULMER 

(*  FIX  LOCAL  LIST  PROBLEM 

(*  REVISED:  07/11/85  B.  A.  ULMER 

(*  ADO  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND 

(*  DEBUGGING  PURPOSES 

(*  REVISED:  03/27/85  E.  SHREVE 

(*  TO  READ  THE  LIST  IN  LIFO  ORDER 

(*  REVISED:  03/11/85  B.  ULMER 

(*  FIX  PROBLEM  OF  LIST  POSITION. 

(*  REVISED:  02/18/85  B.  ULMER 

(*  CHANGED  THE  STRUCTURE  OF  THE  INTERNAL  ITEM  FOR  IMPLEMENT- 

(*  AT I ON  OF  THE  CRB 

(*  ORIGINATED:  01/20/85  E.  SHREVE 

(* . - . 

(**) 

(*  END  XINCLUDE  MAKXEQ  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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') 


%PAGE 

(*  %INCLUDE  MAL 
(**) 

PROCEDURE  MAL (VAR  KEYL:LISTKEY;VAR  RC : EXT_RET  CODE) SUBPROGRAM; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{FUNCTION: 

CREATE  AN  EMPTY  LIST. 

{DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

BBSS  =Z 

RC  ( 

{COMMONS: 


EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


{ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

{PROCESSING  DESCRIPTION: 

{COMMENTS: 

{CHANGE  CONTROL: 


FRMI 


REVISED:  05/01/86  B.  A. ULMER 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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*) 


{FUNCTION: 

CREATE  AN  APPLICATION  LIST  OF  ENTITIES  COMMON  TO  TWO  INPUT 
LISTS. 


SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION  *) 

mmmm 

mmm 

mmmscxmmmmxm  *) 

ENTITY  OR  LIST  OF  ENTITIES  WHICH  WILL  BE  *) 
'ANDED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST*) 

KEY1 

I 

KEY2 

I 

ENTITY  OR  LIST  OF  ENTITIES  WHICH  WILL  BE  *) 
'ANDED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST*) 

KEY3 

0 

LIST  OF  ENTITIES  COMMON  TO  KEY1  AND  KEY2  *) 

RC 

0 

EXTERNAL  RETURN  CODE  *) 

*  0  OK  RETURN  CODE  *) 

WARNING 
CRITICAL  ERROR 


%PAGE 

(*  %INCLUDE  MALAND. 

(**) 

PROCEDURE  MALAND (CONST  KEY 1: ANYKEY; CONST  KEY2: ANYKEY; 
VAR  KEY3:LISTKEY;VAR  RC : EXT  RET.CODE) SUBPROGRAM; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 


SCOMMONS: 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE 


INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

THE  INPUT  LIST  KEY1  WILL  BE  COMPARED  WITH  THE  INPUT  LIST 
KEY 2.  THOSE  ENTITIES  WHICH  APPEAR  ON  KEY1  AND  KEY2  WILL 
BE  PUT  ON  THE  OUTPUT  LIST  KEY3. 

{COMMENTS: 

{CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  :OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  W315 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  08/14/86  K.  M.  ROSS 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 
(* 

(*  ORIGINATED:  03/09/84  D.  J.  KERCHNER 

(* 

(* . 

%PAGE 

(**) 

(*  END  %INCLUDE  MALAND.  *) 


W315  *) 

*) 
*) 

W315  *) 

*) 

. *) 

*) 
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%PAGE 

(*  %INCLUDE  MALATC  *) 

(**) 

PROCEDURE  MALATC (VAR  KEY1 : ANYKEY; CONST  KEY2: ANYKEY; 
VAR  RC : EXT_RET_CODE) ; SUBPROGRAM ; 


(*  *) 
(*  SFUNCTION:  *) 

(*  APPEND  AN  ENTITY  OR  LIST  (KEY2)  TO  AN  ENTITY  OR  LIST  (KEY1) .  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  .  . .  *) 

(*  KEY1  I  THE  KEY  OF  THE  ENTITY  OR  LIST  OF  ENTITIES*) 

(*  TO  WHICH  KEY2  IS  APPENDED  *) 

(*  KEY2  I  THE  KEY  OF  THE  ENTITY  OR  LIST  OF  ENTITIES*) 

(*  TO  BE  APPENDED  RO  KE-Y1  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  -  0  OK  RETURN  CODE  *) 

(*  -  1  YOU  BLEW  IT  *) 

(*  -  2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  IF  KEY1  AND  KEY2  ARE  BOTH  ENTITIES,  THEN  *) 

(*  KEY2  IS  ADDED  TO  THE  CONSTITUENT  LIST  OF  KEY1 .  *) 

(*  IF  KEY1  IS  AN  ENTITY  AND  KEY2  IS  A  LIST,  THEN  *) 

(*  ALL  ENTITIES  OF  KEY2  ARE  ADDED  TO  THE  CONSTITUENT  LIST  *) 

(*  OF  KEY1.  *) 

(*  IF  KEY1  IS  A  LIST  AND  KEY2  IS  AN  ENTITY,  THEN  *) 

(*  KEY2  IS  ADDED  TO  THE  END  OF  KEY1 .  *) 

(*  IF  KEY1  AND  KEY2  ARE  BOTH  LISTS,  THEN  *) 

(*  ALL  ENTITIES  OF  KEY2  ARE  ADDED  TO  THE  END  OF  KEY1 .  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 
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(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  10/11/84  D.  J.  KERCHNER  FRMI  *) 

(*  INPUT  PARAMETER  KEY2  CHANGED  TO  VAR  FROM  CONST  FOR  COMPATA-  *) 

(*  BILITY  WITH  DEC  VAX  SYSTEM  -  UPDATE  DOC  *) 

(*  *) 
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') 


%PAGE 

(*  %INCLUDE  MALCPY. 

(**) 

PROCEDURE  MALCPY (CONST  KEY1 :LISTKEY;VAR  KEY2 : LISTKEY ; 
VAR  RC : EXT_RET  CODE) SUBPROGRAM; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


(FUNCTION: 

MAKE  A  COPY  OF  A  LIST. 
(DESCRIPTION  OF  ARGUMENTS: 


NAME 

KEY1 

KEY2 

RC 


SCOMMONS: 


*) 
*) 
*) 
*) 
*) 
*) 

-  *) 

THE  KEY  OF  THE  LIST  TO  BE  COPIED  *) 

THE  KEY  OF  THE  NEW  LIST  THAT  WILL  CONTAIN*) 
A  COPY  OF  KEY1 
EXTERNAL  RETURN  CODE- 
*  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


I/O  DESCRIPTION 


S ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


INTERFACE  ROUTINE 


(EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE 

(PROCESSING  DESCRIPTION: 

(COMMENTS: 

(CHANGE  CONTROL: 


REVISED:  05/01/86  B.  A.  ULMER 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE" 
TO  USER  RECOGNIZEABLE  FORM 


FRMI 

CONDITION 


REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  MALD.  *) 

(**) 

PROCEDURE  MALD (CONST  KEY1:LISTKEY;VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(*  NAME  I/O 

mmmm  mmm 

(*  KEY1  I 

(* 

(*  RC  0 

(* 

(*  > 

(*  < 

(* 

(* 

(* 

(* 

(*  LANGUAGE;  IBM  PASCAL 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  REVISED;  08/14/86  K.  M.  ROSS  DBMA 

(* 

(* 

(* 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


$ FUNCTION: 

DELETE  AN  APPLICATION  LIST. 


SDESCRIPTION  OF  ARGUMENTS: 


DESCRIPTION 

THE  KEY  OF  THE  APPLICATION  LIST  TO  BE 
DELETED 

EXTERNAL  RETURN  CODE 
-  0  OK 

0  CRITICAL  ERROR - 
0  WARNING 


SCOMMONS: 

SENVIRONMENT: 

LANGUAGE: 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

1.  KEY1  MUST  BE  A  LISTKEY. 

2.  KEY1  IS  DELETED  AND  CAN  NOT  BE  RECOVERED. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE”  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 

REVISED:  08/14/86  K.  M.  ROSS 

ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 

PURPOSES 
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(*  %INCLUDE  MALDA  *) 

(**) 

PROCEDURE  MALDA (VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

(* . 

(* 

(*  $ FUNCTION: 

(*  DELETE  ALL  APPLICATION  LISTS  THAT  ARE  NOT  'LOCKED' 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  ■■■■  mmm  mmmmmmmmmmm 

(*  RC  0  EXTERNAL  RETURN  CODE 

(*  -  0  OK  RETURN  CODE 

(*  >0  CRITICAL  ERROR 

(*  <0  WARNING  MESSAGE 


SCOMMONS: 

NDSGVR 

STACK  OF  LISTS 


KEY  OF  STACK_OF_LISTS 


$ ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE.  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

READS  THE  STACK_OF_LISTS  AND  CALLS  THE  APPROPRIATE  ROUTINE  *) 

TO  DELETE  ALL  LISTS  FROM  THE  LIST_OF_LISTS.  IF  THE  LIST.  *) 

OF.LISTS  IS  EMPTY,  THE  SYSTEM  LIST  IS  DISPOSED.  *) 

*) 

SCOMMENTS:  *) 

ONLY  APPLICATION  LISTS  THAT  ARE  NOT  LOCKED  (DELTFLG  -  0)  *) 

ARE  DELETED.  *) 

*) 

SCHANGE  CONTROL:  *) 

*) 

REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION*) 
TO  USER  RECOGNIZEABLE  FORM  *) 

*) 

REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING*) 
PURPOSES  *) 

REVISED:  04/23/85  E.D.  SHREVE  W315  *) 

TO  DELETE  ONLY  UN.LOCKED  APPLICATION  LISTS.  *) 

ORIGINATED:  03/21/84  R.  A.  MCCLUSKEY  W315  *) 


(*  END  %INCLUDE  MALDA  *) 
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SFUNCTION: 

DELETE  AN  APPLICATION  LIST  AND  ALL  LISTS  AFTER  IT  THAT  ARE 
NOT  LOCKED. 

JDESCRIPTION  OF  ARGUMENTS: 


NAME 

KEY1 

RC 


I/O  DESCRIPTION 


I 

0 


SCOMMONS: 

NDSGVR 

STACK  OF  LISTS 


LIST  TO  START  THE  DELETE 
EXTERNAL  RETURN  CODE 
«  0  OK  RETURN  CODE 
>  0  CRITICAL  ERROR  - 
<  0  WARNING  MESSAGE 


I  KEY  OF  STACK  OF  LISTS 


%PAGE 

(*  ^INCLUDE  MALDI  *) 

(**) 

PROCEDURE  MALDI (CONST  KEY 1: ANYKEY; VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(‘ 

(* 

(* 

(* 

(* 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION*) 
TO  USER  RECOGNIZEABLE  FORM  *) 

*) 

REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING*) 
PURPOSES  *) 

REVISED:  04/23/85  E.D.  SHREVE  W315  *) 

TO  DELETE  ONLY  UNLOCKED  APPLICATION  LISTS.  *) 


$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE 


INTERFACE  ROUTINE. 


SPROCESSING  DESCRIPTION: 

READS  THE  STACK_OF_LISTS  AND  CALLS  THE  APPROPRIATE  ROUTINE 
TO  DELETE  ALL  LISTS  FROM  THE  LIST_OF_LISTS  AFTER  A  SPECI¬ 
FIED  LIST. 


SCOMMENTS: 

ONLY  APPLICATION  LISTS  THAT  ARE  NOT  LOCKED  (DELTFLG 
ARE  DELETED. 

SCHANGE  CONTROL: 


0) 
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(*  REVISED:  84/09/27  D.  KERCHNER 

(*  CHG  TO  DECREMENT  POSITION  FOR  READ  FROM  LIST,  CHG  TO 

(*  CHECK  FOR  VALID  POSITION  NUMBER,  CHG  TO  DELETE  EACH 

(*  EACH  ENTITY  FROM  LIST_OF_LISTS. 

(*  REVISED:  86/08/14  K.  ROSS 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 

(*  ORIGINATED:  03/21/84  R.  A.  MCCLUSKEY  W315 

(* 

(* 

(*END . - . - . 

(*  END  %INCLUDE  MALDI  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  MALFND.  *) 

(**) 

PROCEDURE  MALFND (CONST  KEY1: ANYKEY; CONST  KEY2:ENTKEY; 

CONST  IFIRST:LISTPSTN;VAR  IPOS:LISTPSTN;VAR  RC:EXT  RET_CODE) ; 
SUBPROGRAM; 


(*  *) 

(*  5FUNCTION  *) 

(*  FIND  THE  POSITION  OF  AN  ENTITY  (KEY2)  IN  AN  APPLICATION  *) 

(*  LIST  (KEY1) .  IF  KEY1  IS  AN  ENTITY  THEN  FIND  ITS  POSITION  *) 

(*  IN  THE  CONSTITUENT  LIST  OF  THAT  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ""  . .  *) 

(*  KEY1  I  THE  KEY  OF  THE  LIST  IN  WH-ICH  KEY2  IS  TO  BE  *) 

(*  FOUND.  *) 

(*  KEY2  I  THE  KEY  OF  THE  ENTITY  TO  BE  FOUND  IN  KEY1.  *) 

(*  IFIRST  I  THE  POSITION  IN  KEY1  WHERE  THE  FIND  *) 

(*  OPERATION  IS  TO  START.  *) 

(*  IPOS  0  THE  POSITION  IN  KEY1  FWHERE  KEY2  IS  FOUND.  *) 

(*  RC  0  THE  FUNCTION  RETURN  CODE.  *) 

(*  *) 

(*  SCOMMONS  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  MODEL  ACCESS  SOFTWARE  PROCEDURE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  KEY1  IS  EITHER  AN  ENTITY  KEY  OR  A  LIST  KEY.  IF  KEY1  IS  A  *) 

(*  LIST,  THEN  KEY2  IS  FOUND  IN  THE  LIST.  IF  KEY1  IS  AN  ENTITY  *) 

(*  THEN  KEY2  IS  FOUND  IN  THE  CONSTITUENT  LIST  OF  KEY1 .  KEY2  *) 

(*  IS  AN  ENTITY  KEY  THAT  IS  TO  BE  MATCHED.  *) 

(*  THE  SEARCH  STARTS  AT  POSITION  IFIRST.  EACH  ENTITY  IN  KEY1  *) 

(*  IS  CHECKED  FOR  A  MATCH  WITH  KEY2.  IF  MATCHED,  THEN  THE  *) 

(*  POSITION  IS  RETURNED  IN  IPOS.  IF  NO  MATCH,  THEN  IPOS  IS  *) 

(*  RETURNED  AS  ZERO  AND  THE  RETURN  CODE  SIGNALS  AN  ERROR.  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  *) 

(*  CONDITION  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 
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(*  REVISED:  07/11/85  B.  A.  ULMER  W315 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND 

(*  DEBUGGING  PURPOSES 

(* 

(*  REVISED:  03/25/85  E.D.  SHREVE  W315 

(*  TO  CALL  RDLST  FROM  OUTSIDE  THE  WHILE  LOOP  TO  SET  THE  EOL. 

(* 

(*  REVISED:  08/14/86  K.M.  ROSS  W315 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 

(* 

(*  ORIGINATED:  05/07/85  D.  KERCHNER  W315 

(* . . 

(**) 

(*  END  %INCLUDE  MALFND.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  MALGTK.  *) 

(**) 

PROCEDURE  MALGTK (CONST  KEY1: ANYKEY; CONST  IPOS: INTEGER; 
VAR  KEY2:ENTKEY;  VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


JFUNCTION: 

GET  THE  NTH  KEY  FROM  A  LIST. 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


KEY1 

IPOS 

KEY2 

RC 


I  THE  KEY  OF  ENTITY  OF  LIST  OF  ENTITIES 
WHOSE  NTH  KEY  IS  TO  BE  GOTTEN 
I  POSITION  IN  THE  LIST  WHERE  THE  TARGET 
ENTRY  IS  LOCATED 

0  THE  KSY  OF  THE  ENTITY  AT  THE  NTH  POSITION 
0  EXTERNAL  RETURN  CODE 
-  0  OK  RETURN  CODE 
=  1  YOU  BLEW  IT 
=  2  THE  ROUTINE  BLEW  IT 


SCOMMONS: 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

1.  IF  KEY1  IS  A  LIST,  GET  THE  IPOS  ENTRY  FROM  THE  LIST. 

2.  IF  KEY2  IS  AN  ENTITY,  GET  THE  IPOS  ENTRY  IN  THE 
CONSTITUENT  LIST  OF  KEY1 . 


SCOMMENTS: 


SCHANGE  CONTROL: 


REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CCNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


REVISED:  08/28/85  B.  A.  ULMER  FRMI 

CHANGE  WHEN  KEY2  IS  SET  TO  NIL  -  BU  FIX  FOR  HANDLING  1ST  AND 
3RD  PARAMETERS  AS  SAME  KEY 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


E- 166 


PS  560130000A 
1  January  1987 


(* 

(* 

(* 

(* 


REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 
ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
PURPOSES  *) 

*) 


E- 167 


PS  560130000A 
1  January  1987 


') 


(* 

(* 

(* 

(* 

(* 

(* 

(* 


{DESCRIPTION  OF  ARGUMENTS: 


NAME 

KEY1 

KEY2 

IPOS 


RC 


%PAGE 

(*  %INCLUDE  MALINS. 

(**) 

PROCEDURE  MALINS(CONST  KEY1 :ANYKEY;CONST  KEY2 : ANYKEY ; 
CONST  IPOS: INTEGER; VAR  RC:EXT  RET.CODE) SUBPROGRAM; 

(**) 

(* . 

(* 

(*  {FUNCTION: 

(*  INSERT  AN  ENTITY  OR  LIST  INTO  A  LIST. 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  {COMMENTS 


I/O  DESCRIPTION 

I  THE  KEY  OF  ENTITY  OR  LIST  OF  ENTITIES 
INTO  TO  WHICH  KEY2  IS  TO  BE  INSERTED 
I  THE  KEY  OF  ENTITY  OR  LIST  OF  ENTITIES  TO 
BE  INSERTED  INTO  KEY-1 
I  THE  POSITION  IN  KEY1  TO  INSERT  KEY2 
(NOTE:  THE  INSERT  BEGINS  AT  IPOS-1) 

0  EXTERNAL  RETURN  CODE 
=  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


{COMMONS: 

{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

{PROCESSING  DESCRIPTION: 

1.  KEY1  AND  KEY2  MAY  BE  LIST  OR  ENTITY  KEYS. 

IF  KEY1  IS  AN  ENTITY  KEY,  KEY2  IS  INSERTED  INTO  THE 
CONSTITUENT  LIST  OF  KEY1 . 

IF  KEY2  IS  A  LIST  KEY,  ALL  ENTITIES  IN  THE  LIST  ARE 
INSERTED  INTO  KEY1 . 

THE  INSERT  TAKES  PLACE  STARTING  AT  THE  POSITION  'BEFORE' 
IPOS  IN  KEY1 . 


2. 

3. 


{CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 


REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 
ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
PURPOSES  *) 

*) 
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(*  %I NCLUDE  MALK.  *) 

(**) 

PROCEDURE  MALK (CONST  KIND :ORD_KIND; VAR  KEY1 : LISTKEY ; 
VAR  RC : EXT  RET  CODE) ; SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 


SFUNCTION: 

CREATE  A  LIST  OF  ALL  ENTITIES  OF  A  SPECIFIED  KIND. 
SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

KIND 

I 

KIND  CODE  OF  A  CLASS  COLLECTOR  OR  AN 
INSTANCE  COLLECTOR 

KEY1 

0 

KEY  OF  THE  CREATED  LIST  OF  ENTITIES 

RC 

0 

EXTERNAL  RETURN  CODE 
-  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 

SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

THE  ELEMENTS  OF  THE  LIST  WILL  BE  A  CONCATENATION  OF  THE 
CONTENT  OF  EACH  ENTITY  CLASS  AS  THEY  ARE  ENCOUNTERED  IN 
THE  ENTITY  CLASS  STRUCTURE. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 

TO  USER  REOCGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  W315 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 

REVISED:  05/15/85  B.  A.  ULMER  W315 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  04/24/84 
(* 

(* . 

%PAGE 


(**) 

(*  END  %INCLUDE  MALK.  *) 


D.  J.  KERCHNER 


PS  560130000A 
1  January  1987 

W315  *) 

*) 

. *) 

*) 
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(*  ^INCLUDE  MALKL.  *) 

r*) 

PROCEDURE  MALKL (CONST  KEY 1 : ANYKEY; CONST  KIND : ORD_KIND ; 
VAR  KEY2:LISTKEY;VAR  RC : EXT_RET  CODE) ; SUBPROGRAM; 

(**) 

(* . 


(*  *) 

(*  {FUNCTION:  *) 

(*  CREATE  A  LIST  OF  AN  ENTITY  KIND  WHICH  ARE  FOUND  WITHIN  *) 

(*  ANOTHER  LIST.  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  **“  ■■■  “««“«“  *) 

(*  KEY1  I  THE  KEY  OF  ENTITY  OR  LIST  OF  ENTITIES  *) 

(*  WHOSE  IMMEDIATE  CONSTITUENTS  ARE  TO  BE  *) 

(*  SEARCHED  -  *) 

(*  KIND  I  THE  KIND  VALUE  OF  AN  ENTITY  OR  CLASS  *) 

(*  KEY2  0  THE  KEY  OF  THE  LIST  THAT  CONTAINS  THE  *) 

(*  SELECTED  ENTITIES  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  -  0  OK  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  1.  IF  KEY1  IS  AN  ENTKEY,  THEN  ALL  CONSTITUENTS  OF  KEY1  *) 

(*  THAT  MATCH  ON  KIND  ARE  PUT  INTO  KEY2.  *) 

(*  2.  IF  KEY1  IS  A  LISTKEY,  THEN  ALL  ENTITIES  ON  KEY1  THAT  *) 

(*  MATCH  ON  KIND  ARE  PUT  INTO  KEY2.  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 


REVISED:  12/10/85  B.  A.  ULMER  FRMI  *) 

RETURN  WARNING  WHEN  OUTPUT  LIST  IS  NIL  *) 

*) 

REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
PURPOSES  *) 

*) 
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(*  ^INCLUDE  MALN  *) 

(**) 

PROCEDURE  MALN (CONST  LSIZE: INTEGER; VAR  KEYL : LISTKEY ; 

VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


$ FUNCTION: 

CREATE  AN  EMPTY  LIST  OF  A  SPECIFIED  SIZE. 


SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

LSIZE 

I 

NUMBER  OF  ENTITIES  IN 

THE  LIST 

KEYL 

0 

INITIALIZED  TO  KEY  OF 

EMPTY  LIST 

RC 

0 

EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 

SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

A  NEW  APPLICATION  LIST  WILL  BE  CREATED,  WITH  SUFFICIENT 
SPACE  TO  ACCOMODATE  'LSIZE'  ENTRIES.  ALL  ENTRIES  ARE 
INITIALIZED  TO  NIL. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


E  - 1 74 


PS  560130000A 
1  January  1987 


*) 


%PAGE 

(*  %INCLUDE  MALNO. 

(**) 

PROCEDURE  MALNO(CONST  KEY 1: ANYKEY; VAR  KOUNT: INTEGER; 
VAR  RC ; EXT  RET_CODE) ; SUBPROGRAM; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


■*) 

*) 

*) 

*) 

*) 


SFUNCTION: 

COUNT  THE  ENTITIES  ON  A  LIST. 
^DESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

*) 

*) 

BE  COUNTED  *) 

KEY1 

I 

THE  LIST  WHOSE  ENTRIES  ARE  TO 

KOUNT 

0 

THE  NUMBER  OF  ENTRIES  IN  KEY1 

*) 

RC 

0 

EXTERNAL  RETURN  CODE 

*) 

-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS: 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

IF  KEY1  IS  A  LIST,  RETURN  THE  NUMBER  ON  THE  LIST. 
IS  AN  ENTITY,  RETURN  THE  NUMBER  OF  CONSTITUENTS. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE" 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND 
PURPOSES 


IF  KEY1 


FRMI 

CONDITION 


FRMI 

DEBUGGING 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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*) 


%PAGE 

(*  %INCLUDE  MALNOT. 

<**) 

PROCEDURE  MALNOT (CONST  KEY1:ANYKEY; CONST  KEY2: ANYKEY; 
VAR  KEY3:LISTKEY;VAR  RC:EXT  RET_CODE) ; SUBPROGRAM; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

CREATE  AN  APPLICATION  LIST  OF  ENTITIES  IN  KEY1  BUT  NOT  IN 
KEY2. 

SDESCRIPTION  OF  ARGUMENTS: 


NAME 

KEY1 

KEY2 

KEY3 


RC 


I/O  DESCRIPTION 


*) 
*) 
*) 
*) 
*) 
*) 
*) 

—  -  *) 

I  ENTITY  OR  LIST  OF  ENTITIES  WHCIH  WILL  BE  *) 
'NOTED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST*) 
I  ENTITY  OR  LIST  OF  ENTITIES  EHICH  WILL  BE  *) 
'NOTED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST*) 
0  LIST  OF  ENTITIES  WHICH  KEY1  HAS  BUT  KEY2  *) 
DOES  NOT 

0  EXTERNAL  RETURN  CODE 

-  0  OK  RETURN  CODE 

-  1  YOU  BLEW  IT 

-  2  THE  ROUTINE  BLEW  IT 


SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

THE  KEY1  LIST  IS  COMPARED  TO  THE  KEY2  LIST.  IF  AN  ENTITY 
IS  IN  THE  KEY1  LIST,  THEN  IT  IS  PUT  ON  THE  OUTPUT  KEY3 
LIST.  THE  OUTPUT  LIST  WILL  CONSIST  OF  ONLY  THOSE  ENTITIES 
FOUND  IN  KEY1  BUT  NOT  IN  KEY2. 

SCOMMENTS: 


SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER 
ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN 
TO  USER  RECOGNIZEABLE  FORM 


W315 

"OUT  OF  SPACE"  CONDITION 


W315 


REVISED:  07/11/85  B.  A.  ULMER 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  05/15/85  B.  A.  ULMER 

(*  FIX  INCONSISTENCY  IN  OUTPUTLIST  PROCESSING 
(* 

(*  REVISED:  08/14/86  K.  M.  ROSS 

(*  ADDED  NIL  POINTER  CHECK  FOR  KEY1 
(* 

(*  ORIGINATED:  03/09/84  D.  J.  KERCHNER 

(* 

(* . 

%PAGE 

(**) 

(*  END  %INCLUDE  MALNOT.  *) 


W315  *) 

*) 
*) 

W315  *) 

*) 
*) 

W315  *) 

*) 

. *) 

*) 
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(*  %INCLUDE  MALOCK  *) 

(**) 

PROCEDURE  MAlOCK(VAR  LKEY:LISTKEY;CONST  LOCK: INTEGER; 
VAR  RC:EXT  RET.CODE); SUBPROGRAM; 


SFUNCTION: 

SET  AN  APPLICATION  LIST  FOR  DELETE  OR  NON-DELETE  STATUS. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

mmmm  mmm 

LKEY  I  LISTKEY 

LOCK  I  INTEGER  VALUE  INDICATING  LOCK  SETTING 

-  0  SET  TO  'DELETE' 

-  1  SET  TO  'NON-DELE-TE' 

RC  0  EXTERNAL  RETURN  CODE 

=0  OK  RETURN  CODE 
>  0  CRITICAL  ERROR 
<  0  WARNING  MESSAGE 

SCOMMONS: 

NONE 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE. 

SPROCESSING  DESCRIPTION: 

SETS  A  FLAG  IN  THE  INPUT  LIST  TO  DELETE  OR  NON-DELETE. 
SCOMMENTS: 

THE  DELETE/NON-DELETE  STATUS  AFFECTS  ONLY  THE  MALDA  AND 
MALDI  INTERFACE  ROUTINES.  THESE  ROUTINES  WILL  CHECK  THE 
STATUS  AND  NOT  DELETE  THE  LIST  IF  STATUS  -  1.  ALL  OTHER 
DELETE  FUNCTIONS  (EG.  MALD)  DO  NOT  CHECK  THE  STATUS  WHEN 
DELETING. 


SCHANGE  CONTROL:  *) 

REVISED:  05/01/86  B.  A.  ULMER  *) 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

TO  USER  RECOGNIZEABLE  FORM  *) 

*) 

REVISED:  07/11/85  B.  A.  ULMER  *) 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

PURPOSES  *) 


PS  560130000A 
1  January  1987 


(*  ORIGINATED:  04/23/85  E.  D.  SHREVE 

(* 

(* 

(*END . 

(*  END  %INCLUDE  MALOCK  *) 


*) 

*) 

*) 

*) 
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(*  %INCLUDE  MALOR  *) 

(**) 

PROCEDURE  MALOR(CONST  KEY1 : ANYKEY; CONST  KEY2: ANYKEY; 
VAR  KEY3:LISTKEY;VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

CREATE  AN  APPLICATION  LIST  FROM  A  BOOLEAN  'OR'  ON  TWO 
INPUT  LISTS. 

SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

KEY1 

I 

ENTITY  OR  LIST  OF  ENTITIES  WHICH  WILL  BE 
'ORED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST 

KEY2 

I 

ENTITY  OR  LIST  OF  ENTITIES  WHICH  WILL  BE 
'ORED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST 

KEY3 

0 

LIST  OF  ENITIES  WHICH  ARE  EITHER  IN  KEY1 
OR  KEY2 

RC 

0 

EXTERNAL  RETURN  CODE 
*  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 

SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

KEY1  AND  KEY2  MAY  BE  EITHER  ENTKEYS  OR  LISTKEYS. 

IF  KEY1  IS  AN  ENTITY  KEY,  THEN  ITS  CONSTITUENT  LIST  WILL  BE 
'OR'ED  WITH  KEY2. 

IF  KEY2  IS  AN  ENTITY  KEY,  THEN  ITS  CONSTITUENT  LIST  WILL  BE 
'OR'ED  WITH  KEY1 . 

CREATE  AN  APPLICATION  LIST,  KEY3,  CONTAINING  ALL  ENTITIES 
IN  EITHER  OR  BOTH  OF  TWO  INPUT  LISTS. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *} 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  05/15/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *) 

(*  REVISED:  08/14/86  K.  M.  ROSS  W315  *) 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1  *) 

(*  *) 

(*  ORIGINATED:  03/09/85  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* . *) 

%PAGE  *) 

(**) 

(*  END  ^INCLUDE  MALOR  *) 
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(*  %INCLUDE  MALPUT.  *) 

(**) 

PROCEDURE  MALPUT(VAR  KEYL:LISTKEY;CONST  EKEY : ENTKEY ; 
CONST  IPOS: INTEGER) ; SUBPROGRAM; 


(**) 

(*" 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


****  FOR  IDB  USE  ONLY.  12/15/84  E.  SHREVE  **** 
$ FUNCTION: 

INSERT  AN  ENTITY  INTO  THE  IDB  BIG  LIST. 


SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

KEYL 

I 

KEY  OF  THE  IDB  APPLICATION  LIST  Of 
ENTITIES 

ALL 

KEYE 

I 

KEY  OF  THE  ENTITY  10-  BE  INSERTED 

IPOS 

I 

THE  POSITION  IN  KEYL  TO  INSERT  THE 

KEY 

RC 

0 

EXTERNAL  RETURN  CODE 
=  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 

SCOMMONS: 

SENVIRONMENT: 

LANGUAGE: 

IBM  PASCAL 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


1 
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k) 


3SPAGE 

(*  %INCLUDE  MALRD 
(**) 

PROCEDURE  MALRD (CONST  KEY 1: ANYKEY; VAR  KEY2 : ENTKEY ; 
VAR  RC : EXT_RET  CODE) ; SUBPROGRAM; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

READ  THE  NEXT  ENTRY 


IN  A  DIRECTED  LIST. 


{DESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

KEY1 

I 

THE  KEY  OF  THE  DIRECTED  LIST  TO  BE  READ 

KEY2 

0 

KEY  OF  THE  ENTITY  READ 

RC 

0 

EXTERNAL  RETURN  CODE 

0 

0 

0 


OK 

CRITICAL  ERROR 
WARNING 


{COMMONS: 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

{PROCESSING  DESCRIPTION: 

THE  LIST  IS  READ  IN  THE  DIRECTION  AS  SET  BY  MALSTF  OR 
MALSTR.  IF  KEY1  IS  AN  ENTKEY  THEN  THE  NEXT  CONSTITUENT 
IS  READ.  IF  KEY1  IS  AN  APPLICATION  LIST  THE  NEXT  ENTITY 
IS  READ. 

{COMMENTS: 

{CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  MALRDE.  *) 

(**) 

PROCEDURE  MALRDE(CONST  KEYL : LISTKEY ; 
VAR  RC : EXT  RET  CODE) ; SUBPROGRAM; 


(**) 

(*" 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


$ FUNCTION: 

REMOVE  DUPLICATE  ENTRIES  IN  A  LIST. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME 

»s« 

KEYL 
RC 


SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

ANY  DUPLICATE  ENTITIES  FOUND  IN  THE  INPUT  LIST  WILL  BE 
REMOVED.  THE  CHANGE  IS  MADE  IN-PLACE. 

•  CALLS  ELDNL  IN  THE  NDS  PACKAGE. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


I/O  DESCRIPTION 

mmm  mmmmmatmmmmvc 

I  THE  KEY  OF  THE  LIST  WHOSE  DUPLICATE 
ENTITIES  WILL  BE  REMOVED 
0  EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  MALREP  *) 

(**) 

PROCEDURE  MALREP(CONST  KEY 1: ANYKEY; CONST  KEY2: ANYKEY; 
VAR  RC : EXT  RET  CODE) ; SUBPROGRAM; 

(**) 


*  SFUNCTION: 

*  REPLACE  A  LIST.  IF  KEY1  IS  AN  ENTITY,  THEN  REPLACE  THE 

*  CONSTITUENT  LIST  OF  THAT  ENTITY. 

* 

*  SDESCRIPTION  OF  ARGUMENTS: 

*  NAME  I/O  DESCRIPTION 


* 

* 

* 

* 

* 

* 

* 

* 


KEY1  I  THE  KEY  OF  THE  ENTITY  OR  LIST  OF  ENTITIES*) 

TO  BE  REPLACED  -  IF  AN  ENTITY,  THEN  *) 
USE  THE  CONSTITUENT  -LIST  OF  KEY1  *) 

KEY2  I  THE  KEY  OF  THE  ENTITY  OR  LIST  OF  ENTITIES*) 


*  TO  REPLACE  KEY1  -  IF  AN  ENTITY,  THEN  *) 

*  USE  THE  CONSTITUENT  LIST  OF  KEY1  *) 

*  RC  0  EXTERNAL  RETURN  CODE  *) 

*  *0  OK  *) 

*  >0  CRITICAL  ERROR  *) 

*  <0  WARNING  *) 

*  *) 

*  SCOMMONS:  *) 

*  *) 

*  $ ENVIRONMENT:  *) 

*  LANGUAGE:  IBM  PASCAL  *) 

*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

*  SEXECUTION  PROCEDURE:  *) 

*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

*  *) 

*  SPROCESSING  DESCRIPTION:  *) 

*  KEY1  MAY  BE  EITHER  AN  ENTITY  KEY  OR  A  LIST  KEY.  *) 

*  IF  KEY1  IS  A  LIST  KEY,  THEN  KEY2  REPLACES  KEY1 .  *) 

*  IF  KEY1  IS  AN  ENTITY,  THEN  THE  CONSTITUENT  LIST  OF  KEY1  IS  *) 

*  REPLACED  BY  KEY2.  *) 

*  KEY2  MAY  BE  EITHER  AN  ENTITY  KEY  OR  A  LIST  KEY.  *) 

*  IF  KEY2  IS  A  LIST  KEY,  THEN  KEY2  REPLACES  KEY1 .  *) 

*  IF  KEY2  IS  AN  ENTITY,  THEN  THE  CONSTITUENT  LIST  OF  KEY2  *) 

*  REPLACES  KEY1 .  *) 

*) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  10/30/85  B.  A.  ULMER  FRMI  *) 

(*  TAKE  OUT  CHECK  OF  DELETE  RULES  *) 

(*  *) 

(*  REVISED:  09/05/85  B.  A.  ULMER  FRMI  *) 

(*  ADDED  NEW  PARAMETERS  TO  FNDURUL  FOR  THE  TWO  NEW  DELETE  RULES.  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  '  *) 
(*  REVISED:  08/14/86  K.  M.  ROSS  DBMA  *) 

(*  ADDED  A  NIL  POINTER  CHECK  KEY1  *) 

(*  *) 
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(*  ^INCLUDE  HALRMV  *) 

(**) 

PROCEDURE  MALRMV( CONST  KEY1: ANYKEY; CONST  IPOS : LISTINDX ; 
VAR  RCrEXT  RET_CODE) ; SUBPROGRAM; 

(**) 


SFUNCTION: 

REMOVE  AN  ENTITY  FROM  A  LIST. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

KEY1  I  THE  KEY  OF  ENTITY  OF  LIST  OF  ENTITIES 

WHICH  AN  ENITTY  WILL  BE  REMOVED 
IPOS  I  THE  POSITION  IN  KEY1  LIST  WHICH  THE 

ENTITY  WILL  BE  REMOVED 
RC  0  EXTERNAL  RETURN  CODE 

-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS: 

S ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

1.  KEY1  MAY  BE  AN  ENTITY  OR  LIST  KEY. 

2.  IF  KEY1  IS  A  LIST  KEY,  THEN  AN  ENTITY  IS  REMOVED 
FROM  THE  LIST. 

3.  IF  KEY1  IS  AN  ENTITY  KEY,  THEN  AN  ENTITY  IS  REMOVED 
FROM  THE  CONSTITUENT  LIST  OF  KEY1 .  THE  DELETE  RULES 
FOR  KEY1  ARE  TESTED  TO  INSURE  THAT  THE  REMOVAL  FROM 
KEY1  IS  PERMITTED. 

4.  IPOS  IS  THE  POSITION  NUMBER  OF  THE  ENTITY  TO  BE 
REMOVED. 

SCOMMENTS: 


SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AAN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


*} 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 
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(*  REVISED:  09/05/85  B.  A.  ULMER  FRMI  *) 

(*  ADDED  NEW  PARAMETERS  TO  FNDURUL  FOR  THE  TWO  NEW  DELETE  RULES.  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  10/31/84  D.  J.  KERCHNER  FRMI  *) 

(*  INITIALIZED  THE  POSITION  TO  AN  ARBITRARY  #100  FOR  THE  DELRLST  *) 

(*  AND  DELPLST  CALLS  *) 

(*  *) 

(*  REVISED:  02/06/85  E.  D.  SHREVE  FRMI  *) 

(*  TEST  FOR  INVALID  IPOS  ARGUMENT  *) 

(*  *) 

(*  ORIGINATED:  06/28/84  E.  D.  SHREVE  FRMI  *) 

(*  *) 

(* . - . *) 

%PAGE  -  *) 

(* . *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* . *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  MALRMV  *) 

(**) 
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(*  %INCLUDE  MALROR  *) 

(**) 

PROCEDURE  MALROR (VAR  KEYL:LISTKEY;VAR  RC:EXT  RET  CODE) ; SUBPROGRAM; 


(*  *) 

(*  ^FUNCTION:  *) 

(*  REORDER  THE  APPLICATION  LIST  IN  USER  CONSTITUENT  ORDER  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYL  I/O  LIST  TO  BE  REORDERED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  -  0  OK  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  -  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  MALRPL.  *) 

(**) 

PROCEDURE  MALRPL (CONST  KEY1 :ANYKEY;CONST  KEY2:ENTKEY; 
CONST  I POS : L I STPSTN ; VAR  RC : EXT_RET_CODE) ; SUBPROGRAM ; 

(**) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

SFUNCTION:  *) 

REPLACE  AN  ENTITY  IN  A  LIST.  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

KEY1  I  THE  KEY  OF  AN  ENTITY  OR  LIST  OF  ENTITIES  *) 

WHICH  WILL  BE  REPLACED  *) 

KEY2  I  KEY  OF  THE  ENTITY  TO  BE  MOVED  INTO  KEY1  *) 

IPOS  I  THE  POSITION  IN  KEY1-  WHERE  KEY2  IS  TO  BE  *) 

PLACED  *) 

RC  0  EXTERNAL  RETURN  CODE  *) 

-  0  OK  *) 

>  0  CRITICAL  ERROR  *) 

<  0  WARNING  *) 

*) 

SCOMMONS:  *) 

*) 

$ ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

1.  KEY1  MAY  BE  AN  ENTITY  OR  LIST  KEY.  *) 

*) 

2.  IF  KEY1  IS  AN  ENTITY  KEY,  THEN  KEY2  WILL  REPLACE  THE  *) 

ENTITY  AT  IPOS  IN  KEYl'S  CONSTITUENT  LIST.  *) 

*) 

3.  THE  KEY  AT  IPOS  POSITION  IN  THE  LIST  IS  REPLACED.  *) 

*) 

SCOMMENTS:  *) 

IF  THE  ENTITY  BEING  REPLACED  IN  A  CONSTITUENT  LIST  IS  *) 

'MARKED  FOR  DELETE',  THEN  AN  ATTEMPT  WILL  BE  MADE  TO  *) 

DELETE  THE  ENTITY.  *) 

*) 

SCHANGE  CONTROL:  *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 
TO  USER  RECOGNIZEABLE  FORM  *) 

*) 

REVISED:  03/20/86  B.  A.  ULMER  FRMI  *) 

CHANGE  DELRLST  TO  INDLST  AND  DELPLST  WHEN  TRYING  TO  REMOVE  *) 
THE  USER  KEY  FROM  THE  REPLACED  ENTITY'S  USER  LIST  *) 

*) 

REVISED:  08/  /85  L.  J.  BEHAN  FRMI  *) 

ADD  NEW  PARAMETER  TO  DELRUL,  DELENTY  TO  HANDLE  APPLICATION  *) 

LIST  POSITION  PROBLEM  *) 

*) 

REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
PURPOSES  *) 

*) 
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%  i 

(*  %INCLUDE  MALRVS.*) 

(**) 

PROCEDURE  MALRVS (VAR  KEYA: ANYKEY;  VAR  RC:EXT  RET  CODE) SUBPROGRAM; 
(**) 

(* . 


(*  *) 

(*  $  FUNCTION:  *) 

(*  REVERSE  THE  ORDER  OF  THE  INPUT  LIST.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYA  I/O  A  LIST  OR  ENTITY  KEY  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  -  0  OK  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS:  -  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  IF  THE  INPUT  KEY  IS  AN  APPLICATION  LIST,  THE  LIST  IS  *) 

(*  REVERSED.  IF  THE  INPUT  IS  AN  ENTITY,  THE  CONSTITUENT  *) 

(*  LIST  OF  THE  ENTITY  IS  REVERSED.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  ORIGINATED:  04/11/86  MAS 2  E.  D.  SHREVE  W315  *) 

(*  *) 

(* . *) 

(*END . - . *) 

(*  END  %INCLUDE  MALRVS.  *) 
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(*  %INCLUDE  MALSRT  *) 

(**) 

PROCEDURE  MALSRT (CONST  KEY: ANYKEY;  CONST  PROCNAME: ROUTINE; 
VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

$ FUNCTION:  GIVEN  THE  USER  DEFINED  ORDER  FUNCTION  THE  LIST  PASSED*) 
IN  AS  INPUT  WILL  BE  SORTED  USING  THIS  FUNCTION  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 


NAME 

KEY 

PROCNAME 

RC 


I/O  DESCRIPTION 


*) 

*) 


I  THE  KEY  OF  THE  ENTITY  OR  APPLICATION  LIST*) 


OF  ENTITIES  TO  BE  SORTED 
I  THE  NAME  OF  THE  USER  DEFINED  FUNCTION 
FOR  THE  ORDERING  OF  -THE  LIST 
0  EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS: 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


ORDER 
USER  DEFINED 


SPROCESSING  DESCRIPTION: 
THE  USER  SENDS  IN  THE 
REFERENCES  THE 
BEING  SORTED. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  MM/DD/YY 
REASON  FOR  CHANGING  THE 

ORIGINATED:  04/  /86 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


FUNCTION,  THEN  THIS  ROUTINES 
FUNCTION  TO  ACT  UPON  THE  ENTITIES*) 

*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


I  M  THECHANGER 
ROUTINE 

B.  A.  ULMER 


GROUP 


FRMI 
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(* 

(* . 

%PAGE 

(* . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(* . 

(* 

(*END . 

(*  END  %INCLUDE  MALSRT  *) 

(**) 
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SFUNCTION: 

INITALIZE  FOR  READING  A  DIRECTED  LIST  IN  FORWARD  ORDER. 

SDESCRIPTION  OF  ARGUMENTS: 

I/O  DESCRIPTION 


I 


%PAGE 

(*  ^INCLUDE  MALSTF  *) 

(**) 

PROCEDURE  MALSTF (CONST  KEY1 :ANYKEY;VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


NAME 

atsacsz 

KEY1 

RC 


THE  KEY  OF  AN  ENTITY  OR  LIST  OF  ENTITIES 
WHOSE  READ  DIRECTION  WILL  BE  SET  TO 
FflRUARn 

EXTERNAL  RETURN  CODE 
=  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 


(+  IF  KEY1  IS  AN  ENTITY  THEN  THE  CONSTITUENT  LIST  OF  KEY1 

(*  WILL  BE  INITIALIZED.  IF  KEY1  IS  A  LISTKEY  THEN  THE  LIST 

(*  POINTED  TO  WILL  BE  INITIALIZED.  IN  EITHER  CASE  THE 

(*  <.POSITION>  ELEMEMT  IS  SET  TO  THE  VALUE  1  AND  THE 

(*  <.DIRECTION>  ELEMENT  IS  SET  TO  THE  VALUE  <FORWARD>. 

(* 

(*  SCOMMENTS: 

(*  USES  NDS  FUNCTION  LSTLNM. 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  05/01/86  B.  A.  ULMER 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE" 

(*  TO  USER  RECOGNIZEABLE  FORM 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND 
(*  PURPOSES 


FRMI 

CONDITION 


FRMI 

DEBUGGING 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(*  REVISED:  08/14/86  K.  M.  ROSS 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 

(* 


DBM  A 


*) 

*) 

*) 

*) 
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{FUNCTION: 

INITALIZE  FOR  READING  A  DIRECTED  LIST  IN  REVERSE  ORDER. 
MAS  INTERFACE  PACKAGE. 

{DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


KEY1 


RC 


I  THE  KEY  OF  AN  ENTITY  OR  LIST  OF  ENTITIES 
WHSOE  READ  DIRECTION  WILL  BE  SET  TO 
REVERSE 

0  EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


{COMMONS: 


%PAGE 

(*  %INCLUDE  MALSTR  *) 

(**) 

PROCEDURE  MALSTR (CONST  KEY 1: ANYKEY; VAR  RC:EXT  RET_CODE) ; SUBPROGRAM; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

{PROCESSING  DESCRIPTION: 

IF  KEY1  IS  AN  ENTITY  THEN  THE  CONSTITUENT  LIST  OF  KEY1 
WILL  BE  INITIALIZED.  IF  KEY1  IS  A  LISTKEY  THEN  THE  LIST 
POINTED  TO  WILL  BE  INITIALIZED.  IN  EITHER  CASE  THE 
<.POSITION>  ELEMEMT  IS  SET  TO  THE  LENGTH  OF  THE  LIST  AND 
THE  <.DIRECTION>  ELEMENT  IS  SET  TO  THE  VALUE  <REVERSE>. 

{COMMENTS: 

USES  NDS  FUNCTION  LSTLNM. 

{CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


REVISED:  08/14/86  K.  M.  ROSS 

ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 


DBMA 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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k) 


%PAGE 

(*  %INCLUDE  MALXEQ 
(**) 

PROCEDURE  MALXEQ (CONST  KEY1: ANYKEY; VAR  DATAREC:BLKDATA; 

CONST  PROCNAME: ROUTINE; VAR  KEY2 : LISTKEY ; VAR  RCC : EXT_RET_CODE ; 
VAR  RC : EXT_RET  CODE) SUBPROGRAM; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


$ FUNCTION: 

EXECUTE  A  PROCEDURE  ON  AN  ENTITY,  OR  A  LIST  OF  ENTITIES. 
CONSTRUCT  AN  OUTPUT  LIST  OF  ENTITIES  AS  DETERMINED  BY  THE 
APPLICATION  PROCEDURE. 


SDESCRIPTION  OF  ARGUMENTS: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 


(* 

/* 

NAME 

I/O 

DESCRIPTION 

*) 

*\ 

V 

(* 

KEY1 

I 

ENITIY  OR  LIST  OF  ENTITIES  TO  BE 

) 

*) 

(* 

PROCESSED 

*) 

(* 

DATAREC 

I/O 

APPLICATION  DEFINED  DATA  STRUCTURE  WHICH 

*) 

(* 

EITHER  SUPPLIES  OR  RECIEVES  VALUES 

*) 

(* 

OPERATED  ON  BY  THE  APPLICATION  PROCEDURE 

*) 

(* 

PROC 

I 

ENTRY  POINT  OF  APPLICATION  DEFINED 

*) 

(* 

PROCEDURE 

*) 

(* 

KEY2 

0 

KEY  OF  THE  LIST  CREATED 

*) 

(* 

FOR  THIS  ROUTINE 

*) 

(* 

RCC 

0 

USER  DEFINED  PROCEDURE  RETURN  CODE 

*) 

(* 

-  0,1  OK  RETURN  CODE 

*) 

(* 

-  2-7  PROCEDURE  WARNING  CODE 

*) 

(* 

-  8-15  PROCEDURE  ERROR  CODE 

*) 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

*) 

(* 

-  0  OK  RETURN  CODE 

*) 

(* 

<  0  WARNING 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

*) 

(* 

$ ENVIRONMENT: 

*) 

(* 

LANGUAGE: 

IBM  PASCAL 

*) 

(* 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

*) 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE 


INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

THE  USER  SENDS  IN  THE  NECESSARY  INFORMATION,  THEN  THIS 
ROUTINE  REFERENCES  THE  USER'S  SPECIFIED  PROCEDURE  TO  ACT 
UPON  THE  INFORMATION  HE  HAS  SUPPLIED  TO  THE  PROCEDURE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TTO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  01/20/86  B.  A.  ULMER  W315  *) 

(*  ADD  CAPABILITY  TO  READ  THE  INPUT  LIST  IN  REVERSE  IN  ORDER  *) 

(*  TO  PROCESS  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  05/15/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *  *) 
(*  REVISED:  03/06/85  B.  A.  ULMER  W315  *) 

(*  FIX  APPLICATION  LIST  PROBLEM  *) 

(*  *) 

(*  REVISED:  11/28/84  D.  J.KERCHNER  W315  *) 

(*  MALXEQ  MADE  FROTRAN  CALLABLE  BY  USING  INTERMEDIATE  ASSEMBLER  *) 

(*  ROUTINE  (PASASM)  *) 

(*  *) 

(*  ORIGINATED:  04/24/84  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* . *) 

%PAGE  *) 

(**) 

(*  END  %INCLUDE  MALXEQ  *) 
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*) 


%PAGE 

(*  %INCLUDE  MAQURY 
(**) 

PROCEDURE  MAQURY (CONST  KEY1:ENTKEY;  CONST  FLGNAME:NAMTYP;  VAR 
FLGVAL: INTEGER;  VAR  RC:EXT  RET  CODE) ; SUBPROGRAM; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

DESCRIPTION  OF  WHAT  THIS  ROUTINE  DOES. 

SDESCRIPTION  OF  ARGUMENTS: 

I/O  DESCRIPTION 


NAME 

KEY1 

FLGNAME 

FLGVAL 

RC 


I 

I 

0 


ENTITY  WHOSE  SPECIFIED  FLAG  VALUE  IS  TO 
DETERMINED 

FLAG  NAME  (STRING(6) ) 

VALUE  OF  THE  SPEC IF  If  D  FLAG 
*1  TRUE 
-0  FALSE 

EXTERNAL  RETURN  CODE 
*  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 


SCOMMONS: 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


(*  $ EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

DETERMINE  WHICH  APPLICATION  ACCESSIBLE  FLAG'S  VALUE  IS  TO 
BE  GOTTEN  AND  THEN  GET  THE  FLAG  VALUE 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  W315 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  05/21/85  B.  A.  ULMER 

(* 

(* . 

%PAGE 

(*  END  %INCLUDE  MAQURY  *) 


PS  560130000A 
1  January  1987 

W315  *) 

*) 

. *) 

*) 
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%PAGE 

(*  ^INCLUDE  MASALOC  *) 

(**> 

PROCEDURE  MASALOC (CONST  SIZE: INTEGER;  VAR  REGVAL: POINTER; 
VAR  RC: INTEGER); FORTRAN; 

(**) 

(*  END  %INCLUDE  MASALOC  *) 
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1  January  1987 


') 


%PAGE 

(*  ^INCLUDE  MASDSP 
(**) 

PROCEDURE  MASDSP (  VAR  ENT.PTR: 

CONST  TYPE.SIZE: 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


POINTER; 

INTEGER) ; EXTERNAL; 


SFUNCTION: 

DISPOSE  OF  A  MAS  DYNAAMICALLY  ALLOCATED  MEMORY  AREA. 
SDESCRIPTION  OF  ARGUMENTS: 


NAME 

TYPE  SIZE 

ENT_PTR 

RC 


I/O  DESCRIPTION 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


I  THE  SIZE  OF  THE  AREA  TO  BE  DISPOSED 
I  POINTER  TO  THE  MEMORY  AREA  TO  BE  DISPOSED*) 
0  EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS: 

SPCMGR 


HOLDS  THE  DESCRIPTORS  FOR  THE  MAS  MEMORY  AREAS. 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

DELETE  A  BLOCK  AND  COMBINE  IT  WITH  ANY  CONTIGIOUS  BLOCKS 
OF  FREED  MEMORY. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  02/06/86  B.  A.  ULMER  FRMI 

ADDED  CODE  TO  HANDLE  WHEN  THE  8K  OVERFLOW  BLOCK  NEEDS  FREED 
(JUST  REMOVE  IF  FROM  THE  BLOCK  CHAIN  AND  SET  OVERFLOW  FLAG  TO 
FALSE) 

REVISED:  08/  /85  B.  A.  ULMER  FRMI 

FIX  BUG  DEALING  WITH  THE  PRESENCE  OF  AN  INFINITE  LOOP 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ELIMINATE  THE  LEAVE  AND  MAX  FUNCTIONS  FOR  BETTER  COMPATABILITY 
WITH  THE  DEC  VAX 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  12/10/84  J.  J.  JOHNSON 
(* 

(* . 

%PAGE 


(* . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(* . 

(* 

(*END . 

(*  END  %INCLUDE  MASDSP  *) 


FRMI 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  MASMSZ  *) 

(**) 

PROCEDURE  MASMSZ (VAR  MODSIZ: INTEGER;  VAR  FRESIZ: INTEGER; 

VAR  RC : EXT_RET  CODE) ; SUBPROGRAM; 

(**) 

(* . 

(* 

(*  S FUNCTION: 

(*  RETURNS  THE  ACTUAL  MODEL  SPACE  USED  AND  THE  AMOUNT  OF 

(*  FREE  SPACE  IN  THE  ALLOCATED  MEMORY  BLOCKS  OF  THE  MODEL. 

(* 


(* 

SDESCRIPTION  OF 

ARGUMENTS: 

(* 

NAME 

I/O 

DESCRIPTION 

(* 

mmmmi 

mmm 

(* 

MODSIZ 

0 

TOTAL  BYTES  OF  USED  MODEL 

SPACE 

(* 

FRESIZ 

0 

TOTAL  BYTES  OF  FREE  SPACE 

IN  THE 

(* 

ALLOCATED  MODEL  BLOCKS. 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

(* 

-  0  OK  RETURN  CODE 

(* 

>  0  CRITICAL  ERROR 

(* 

<  0  WARNING 

(* 

(*  SCOMMONS: 

(*  NONE 
(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(*  USED  ONLY  WITH  THE  MAS  MEMORY  MANAGER.  CAN  NOT  BE  USED 

(*  WITH  THE  PASCAL  MEMORY  MANAGER. 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  CALLS  THE  INTERNAL  MAS  ROUTINES  THAT  CALCULATE  FREESPACE 

(*  AND  MODEL  SPACE  USING  THA  MAS  MEMORY  MANAGER  CONTROL  BLOCKS. 

(* 

(*  SCOMMENTS: 

(*  IF  THIS  PROCEDURE  IS  TO  BE  USED  WITH  THE  PASCAL  MEMORY 

(*  MANAGER,  THEN  A  SPECIAL  PROCEDURE  'NDSFCT'  IS  REQUIRED. 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  04/09/85 
(* 

(* . 

(* 

(*END . . 

(*  END  %INCLUDE  MASMSZ  *) 


E.  SHREVE 
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*) 


%PAGE 

(*  %INCLUDE  MASNEW 
(**) 

PROCEDURE  MASNEW (  VAR  ENT_PTR: 

CONST  TYPE.SIZE: 
VAR  RR: 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


POINTER; 

INTEGER; 

RET  REC) ; EXTERNAL; 


(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 


SFUNCTION: 

ALLOCATES  A  NEW  DYNAMIC  MEMORY  AREA  FOR  MAS  ELEMENTS. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


TYP.SIZE 

ENT.PTR 

RR 


SCOMMONS: 

SPCMGR 


I  THE  SIZE  OF  THE  MEMORY  REGION  REQUIRED 
0  POINTER  TO  THE  AREA  OBTAINED 
0  EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


HOLDS  THE  DESCRIPTORS  FOR  THE  MAS  MEMORY  SPACE. 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

ATTEMPTS  TO  LOCATE  A  FREE  SPACE,  STARTING  AT  THE  FIRST 
ALLOCATED  REGION,  AND  CONTINUES  THRU  ALL  ALLOCATED  REGIONS. 
IF  FOUND,  IT  REMOVES  THE  REGION  FROM  THE  FREE  SPACE  CHAIN. 
IF  NO  SPACE  EXISTS,  IT  ALLOCATES  A  NEW  REGION  AND  CONNECTS 
THE  NEW  REGION  TO  THE  LAST. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  02/06/86  B.  A.  ULMER  FRMI 

ADDED  CODE  TO  HANDLE  A  FAILURE  ON  GETMAIN  IN  ROUTINE  MASALOC 
AND  PROCESSING  OF  8K  OVERFLOW  BLOCK 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ELIMINATE  THE  LEAVE  AND  MAX  FUNCTIONS  TO  BETTER  COMPATIBILITY 
WITH  THE  DEC  VAX 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  12/10/84  J.  J.  JOHNSON 

(* 

(* . 

%PAGE 

(* . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(*END . 

(*  END  %INCLUDE  MASNEW  *) 

(**) 


FHRI  *) 
*) 

. *) 

*) 

. *) 

*) 

. *) 
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%PAGE 

(*  %INCLUDE  MASOVR  *) 

(**) 

PROCEDURE  MASOVR (  CONST  SIZE:  INTEGER;  VAR  ENT_PTR:  POINTER; 
VAR  OSPACE:  SCBP) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(* 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

RC 

0 

EXTERNAL  RETURN  CODE 

(* 

-  0 

OK 

(* 

>  0 

CRITICAL  ERROR 

(* 

(* 

(* 

<  0 

WARNING 

SCOMMONS: 

(* 

SPCMGR 

HOLDS  THE 

DESCRIPTORS  FOR  THE  MAS  MEMORY  AREAS. 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  $ EXECUTION  PROCEDURE: 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI 

(*  ELIMINATE  THE  LEAVE  AND  MAX  FUNCTIONS  FOR  BETTER  COMPATABILITY 
(*  WITH  THE  DEC  VAX 
(* 

(*  ORIGINATED:  3/21/86  B.  A.  ULMER  FRMI 

(* 

(* . - . 

%PAGE 

(* . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(* . 

(* 

(*END . - . 

(*  END  %INCLUDE  MASDSP  *) 

(**) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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') 


$ FUNCTION: 
UPDATE 


A  SPECIFIED  APPLICATION  ACCESSIBLE  FLAG  VALUE 


SDESCRIPTION  OF  ARGUMENTS: 


NAME 

KEY1 

FLGNAME 

FLGVAL 


RC 


I/O  DESCRIPTION 


ENTITY  OR  LIST  OF  ENTITIES  WHOSE 
SPECIFIED  FLAG  VALUE  IS  TO  BE  UPDATED 
FLAG  NAME  (STRING(6) ) 

VALUE  TO  BE  USED  WHEN  UPDATING  THE  FLAG 

-  1  TRUE 
=  0  FALSE 

EXTERNAL  RETURN  CODE 

-  0  OK  RETURN  CODE 
WARNING 
CRITICAL  ERROR 


0 

0 


%PAGE 

(*  %INCLUDE  MAUPDT 
(**) 

PROCEDURE  MAUPDT (VAR  KEY 1: ANYKEY;  CONST  FLGNAME :NAMTYP;  CONST 
FLGVAL: INTEGER;  VAR  RC:EXT  RET  CODE) ; SUBPROGRAM; 

(**) 

(* . - . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SCOMMONS: 


OOOIOOOO 
00020000 
00030000 
00093005 
00094000 
00096000 
-*>00097000 
*)00098000 
*>00099000 
*) 00099107 
*)00099200 
*) 00099300 
*) 00099400 
*) 00099500 
*) 00099604 
*)00099704 
*) 00099804 
*)00099904 
*) 00100004 
*) 00100107 
*)00100200 
*)00100300 
*) 00100404 
*>001005^ 
*>0010080^ 
*>00100900 
*>00101500 
*>00101600 
*>00101700 
*>00101800 
*>00102300 
*>00102400 
*>00102500 
*>00102800 
*>00102900 

DETERMINE  WHICH  OF  THE  APPLICATION  ACCESSIBLE  FLAGS  IS  TO  BE*)00103007 

*>00103104 
*>00103204 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


UPDATED  AND  THEN  UPDATE  IT  WITH  THE  INPUT  VALUE 
SCOMMENTS: 


SCHANGE  CONTROL: 

REVISED:  08/21/85  B.  A.  ULMER 

CHANGED  TO  NOT  ALLOW  APPLICATION  TO  SET  AN  ENTITY 
DELETE 


FRMI 
FOR  MARK 


REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*>00103300 
*>00103500 
*>00103600 
*>00104508 
*>00104608 
*>00104708 
*>00104800 
*>00104908 
*>00105008 
*>00105108 
*>001052 
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(*  ORIGINATED:  05/21/85  B.  A.  ULMER  FRMI  *)00105304 

(*  *)00105400 

(* . *)  00105500 

%PAGE  *)00105600 

(*  END  ^INCLUDE  MAUPDT  *)  00630000 
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%PAGE 

(**) 

PROCEDURE  MIDBD(VAR  KEY1 : ANYKEY ;  VAR  RC:EXT  RET_CODE) ; SUBPROGRAM; 
%PAGE 

(*  %INCLUDE  MIDBD.  *) 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


WARNING;  FOR  IDB  USE  ONLY 

MAY  CONTAMINATE  MODEL  IF  USING  DELETE  WITH  NO  DELETE  RULES 
SFUNCTION: 

DELETE  AN  ENTITY  OR  LIST  OF  ENTITIES  BUT  DO  NOT  CONSIDER 
THE  DELETE  RULES 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SDESCRIPTION  OF  ARGUMENTS: 


■*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

REVISED:  04/22/86  E.  D.  SHREVE  W315  *) 

CHANGED  TO  CALL  XIELM  INSTEAD  OF  DELENTY  TO  PERFORM  THE  DELETE  *) 
AND  CHANGE  INPUT  TO  VAR.  *) 

*) 


(* 

(* 

(* 

NAME 

70 

DESCRIPTION 

KEY1 

I 

ENTITY  OR  LIST  OF  ENTITIES  TO  BE  DELETED 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

(* 

-  0 

OK  RETURN  CODE 

(* 

<  0 

WARNING 

(* 

(* 

(* 

(* 

(* 

>  0 

CRITICAL  ERROR 

SCOMMONS: 

SENVIRONMENT: 

(* 

LANGUAGE: 

IBM  PASCAL 

(* 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

IF  KEY1  IS  AN  ENTKEY  THEN 
DELETE  THE  ENTITY 
IF  KEY1  IS  A  LISTKEY  THEN 
DELETE  EACH  ENTITY  ON  THE  LIST 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE”  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 
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(*  REVISED:  08/04/85  L.  J.  BEHAN  W315 

(*  ADD  NEW  PARAMETER  TO  DELENTY  FOR  HANDLING  OF  APPLICATION 

(*  LIST  POSITION  PROBLEM 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 

(*  PURPOSES 

(* 

(*  ORIGINATED:  06/17/85  B.  A.  ULMER  W315 

(* 

(* . 

(**) 

(*  END  7.INCLUDE  MIDBD.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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>) 


%PAGE 

(*  %INCLUDE  MIDBRV 
(**) 

PROCEDURE  MIDBRV (CONST  KEYl:ANYKEY;CONST  IPOS : LISTINDX ; 
VAR  RC : EXT_RET_CODE ); SUBPROGRAM ; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


WARNING:  FOR  IDB  USE  ONLY 

MAY  CONTAMINATE  MODEL  IF  USING  REMOVE  WITHOUT  DELETE  RULES 
SFUNCTION: 

REMOVE  AN  ENTITY  FROM  A  LIST  WITHOUT  CONSIDERING  THE 
DELETE  RULES 

SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

KEY1 

I 

THE  KEY  OF  AN  ENTITY-  OR  LIST  OF  ENTITIES 

(* 

FROM  WHICH  AN  ENTITIY  WILL  BE  REMOVED 

(* 

IPOS 

I 

THE  POSITION  IN  KEY1  FROM  WHICH  THE 

(* 

ENTITIY  WILL  BE  REMOVED 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

(* 

=  0  OK 

(* 

>  0  CRITICAL  ERROR 

(* 

<  0  WARNING 

SCOMMONS: 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

1.  KEY1  MAY  BE  AN  ENTITY  OR  LIST  KEY. 

2.  IF  KEY1  IS  A  LIST  KEY,  THEN  AN  ENTITY  IS  REMOVED 
FROM  THE  LIST. 

3.  IF  KEY1  IS  AN  ENTITY  KEY,  THEN  AN  ENTITY  IS  REMOVED 
FROM  THE  CONSTITUENT  LIST  OF  KEY1 . 

4.  IPOS  IS  THE  POSITION  NUMBER  OF  THE  ENTITY  TO  BE 
REMOVED. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(*  REVISED:  12/30/85  B.  A.  ULMER  FRMI 

(*  CHANGE  CALL  FROM  DELENTY  TO  DELRUL  FOR  THE  CASE  WHEN  ENTITY  IS 
(*  MARKED  FOR  DELETE 

(* 

(*  REVISED:  08/  /85  L.  J.  BEHAN  FRMI 

(*  ADD  NEW  PARAMETERS  TO  DELENTY  FOR  HANDLING  OF  APPLICATION 

(*  LIST  POSITION  PROBLEM 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
(*  PURPOSES 

(* 

(*  ORIGINATED:  06/19/85  B.  A.  ULMER  FRMI 

(* 

(* . 

%PAGE 

(* .  . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(* .  . 

(* 

(*END . 

(*  END  %INCLUDE  MIDBRV  *) 

(**) 
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%PAGE 

(*  ^INCLUDE  MOVRLSM  *) 

(**) 

PROCEDURE  MOVRLSM (CONST  FROM_L I ST : L I STPNTR ; 

CONST  FROM_POS I T I ON : L I STPSTN ; VAR  TO_LIST:LISTPNTR; 
CONST  TO_POSITION : LISTPSTN ; CONST  ENTCOUNT : L I STS I Z E ; 
VAR  RR:RET  REC) ; EXTERNAL; 


(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  MOVE  ENTITIES  BETWEEN  SYSTEM  LISTS.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  -  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  FROMJ.IST  *) 

(*  I  POINTER  TO  A  SYSTEM  LIST.  *) 

(*  FROM.POSITION  *) 

(*  I  THE  RELATIVE  POSITION  OF  THE  FIRST  ENTITY  TO  *) 

(*  BE  MOVED.  *) 

(*  TO_LIST  I  POINTER  TO  A  SYSTEM  LIST.  *) 

(*  TO_POSITION  *) 

(*  I  THE  RELATIVE  POSITION  IN  THE  LIST  TO  WHICH  *) 

(*  THE  ENTITIES  WILL  BE  MOVED.  *) 

(*  ENTCOUNT  I  THE  NUMBER  OF  ENTITIES  TO  MOVE.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  -  0  NORMAL  RETURN  CODE.  *) 

(*  -  14  BAD  LIST.POSITION  *) 

(*  -  16  BAD  LIST_MOVE_COUNT  *) 

(*  -  17  BAD_LIST_REFERENCE  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  MOVRLSM  USES  AMPXMOVE  A  SYSTEM  ROUTINE.  AMPXMOVE  MOVES  *) 

(*  DATA  FROM  MEMORY  TO  MEMORY  (NUMBER  OF  BYTES  TO  BE  MOVED  *) 

(*  HAS  TO  BE  SPECIFIED).  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 
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(*  84/10/04  MAS  VER  2  E.  D.  SHREVE 

(*  CHANGED  DECLARATION  OF  'TO  LIST'  TO  VAR. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  MOVRLSM  *) 


*) 

*) 

*) 

*) 
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%PAGE 

(*  %1NCLUDE  MRGTLSM.  *) 

(**) 

PROCEDURE  MRGTLSM (VAR  LISTl:LISTPNTR;CONST  LIST2:LISTPNTR; 
VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  CONCATENATE  THE  ENTITIES  IN  LIST2  TO  LIST1. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 
(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  LIST1 ,  LIST2  -  TWO  LIST  POINTERS. 

(* 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  MRGTLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  MRGTNM.  *) 

(**) 

PROCEDURE  MRGTNM (CONST  KEYL1 : LISTKEY ; CONST  KEYL2:LISTKEY; 
VAR  RR:RET  REC);  EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  CONCATENATE  THE  ENTITIES  IN  LIST2  TO  LIST1. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  KEYE1 

(* 

(*  KEYE2 

(* 

(* 

(* 

(*  OUTPUT 

(*  RR 

(* 

(* . 

(**) 

(*  END  %INCLUDE  MRGTNM.  *) 


-  KEY  OF  THE  APPLICATION  LIST.  IF  ENTITY  KEY, 
THEN  USE  CONSTITUENT  LIST. 

-  KEY  OF  THE  APPLICATION  LIST  TO  BE 
CONCATENATED.  IF  ENTITY  KEY,  THEN  USE 
CONSTITUENT  LIST. 


-  THE  FUNCTION  RETURN  RECORD. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

■*) 
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%PAGE 

(*  %INCLUDE  MRKNM .  *) 

(**) 

PROCEDURE  MRKNM (VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  MARK  THE  STACK  OF  LISTS  SO  THAT  THE  NEXT  RELEASE  LIST 

(*  WILL  ONLY  DESTROY  LISTS  CREATED  AFTER  THIS  MARK  OPERATION. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  NONE 

(* 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

l* . 

(**) 

(*  END  %INCLUDE  MRKNM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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%PAGE 

(*  %INCLUDE  MSTART.  *) 

(**) 

PROCEDURE  MSTART (CONST  ID: INTEGER) ; SUBPROGRAM; 
(**) 

i* . . . . 


{FUNCTION: 

START  STATISTICS  GENERATION. 

{DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


INDICATION  OF  THE  STATISTICS  BEING  KEPT 
THIS  FIELD  MUST  CORRESPOND  TO  ID  INPUT 
TO  MSTOP 

EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS: 


{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

{PROCESSING  DESCRIPTION: 

WHEN  MSTART  IS  CALLED,  THE  INTEGER  EQUIVALENT  VALUE  OF  THE 
MAS  ROUTINE  ID  IS  ENTERED  INTO  A  COMMON  FIELD.  ALSO,  A 
FLAG  IS  SET  TO  ON  INDICATING  THAT  THIS  PARTICULAR  MAS 
ROUTINE  IS  THE  ONE  CURRENTLY  BEING  PROCESSED. 

{COMMENTS: 

{CHANGE  CONTROL: 

REVISED:  07/24/86  B.  A.  ULMER  FRMI 

CHANGE  ID.FLAG  FIELD  OF  MSTATUS  TO  AN  INTEGER  SO  THAT  AN  APPL. 
USER  CAN  KNOW  HOW  MANY  LEVELS  HE  IS  NESTED 


REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  MSTOP.  *) 

(**) 

PROCEDURE  MSTOP (CONST  ID: INTEGER) SUBPROGRAM; 

(**) 

(* .  . 

(* 

(*  FUNCTION 

(*  STOP  STATISTICS  GENERATION. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  STATISTICS  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  ID  -  INDICATION  OF  TYPE  OF  STATISTICS  BEING  KEPT. 

(*  THIS  FIELD  MUST  CORRESPOND  TO  ID  INPUT  TO 

(*  CALL  TO  MSTART. 

(* 

(*  OUTPUT 

(*  NONE 

(* 

(*  METHOD 

(*  WHEN  MSTOP  IS  CALLED,  THE  INTEGER  EQUIVALENT  VALUE  OF  THE 

(*  MAS  ROUTINE  ID  IS  ENTERED  INTO  A  COMMON  FIELD.  ALSO,  A 

(*  FLAG  IS  SET  TO  OFF  INDICATING  THAT  THIS  PARTICULAR  MAS 

(*  ROUTINE  IS  NO  LONGER  ACTIVELY  BEING  PROCESSED,  BUT  THE  ID 

(*  WILL  INDICATE  THAT  IT  WAS  THE  LAST  ONE  CALLED. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  MSTOP.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  NDSCMM.  *) 

(**) 

PROCEDURE  NDSCMM; EXTERNAL; 


(*  *) 

(*  FUNCTION  *) 

(*  DUMMY  PROGRAM  DEFINES  NDSREM  COMMON.  *) 

(*  USED  AS  THE  'SEED'  OF  THE  MAS  NDS.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  NETWORK  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  -  *) 

(*  INPUT  *) 

(*  NONE  -  *) 

(*  *) 

(*  OUTPUT  *) 

(*  NONE  -  *) 

(*  *) 

(*  METHOD  *) 

(*  SYSTEM  INCONGRUITIES  FORCE  NESTING  OF  DEF  WITHIN  A  *) 

(*  PROCEDURE.  *) 


(**) 

(*  END  %INCLUDE  NDSCMM.  *) 
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(*  %INCLUDE  NDSFCT  *) 

(**) 

PROCEDURE  NDSFCT(VAR  MODSIZ: INTEGER;  VAR  FRESIZ: INTEGER; 
VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . : . 

(* 

(* 

(* 

(* 

(* 


V 


SFUNCTION: 

COMPUTES  THE  AMOUNT  OF  USED  MODEL  SPACE  AND  THE  AMOUNT  OF 
FREESPACE  IN  THE  ALLOCATED  MEMORY  BLOCKS. 


SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

MODSIZ 

0 

TOTAL  BYTES  OF  USED  MODEL  SPACE 

(* 

FRESIZ 

0 

NUMBER  OF  BYTES  OF  FREE  SPACE. 

(* 

RR 

0 

RETURN  CODE 

*  0  OK  RETURN  CODE 
>  0  CRITICAL  ERROR 
<  0  WARNING 


I  POINTER  TO  THE  1ST  ALLOCATED  MEMORY  BLOCK. 


IBM  PASCAL 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  CHANGED:  07/16/85  B.  A.  ULMER  W315 

(*  REASON:  CHANGED  $PCMGT  TO  PCMGT  FOR  VAX  C0MPA7ABILITY 

(* 


SCOMMONS: 

PCMGT 
PTR 

SENVIRONMENT: 

LANGUAGE: 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 
$ EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
USED  ONLY  WITH  THE  MAS  MEMORY  MANAGER.  CAN  NOT  BE  USED 
WITH  THE  PASCAL  MEMORY  MANAGER. 

SPROCESSING  DESCRIPTION: 

EACH  ALLOCATED  BLOCK  IS  FOUND  USING  THE  BLOCK  CHAIN  OF  THE 
SPACE  CONTROL  BLOCK  ($CB).  THE  FREE  CHAIN  IS  USED  TO  SUM 
THE  SIZE  OF  EACH  FREED  ENTRY.  THE  BLOCK  SIZES  OF  ALL 
ALLOCATED  BLOCKS  ARE  ALSO  TOTALED. 

MODSIZ  =  TOTAL  SPACE  ALLOCATED  -  FREESIZE 

SCOMMENTS: 

THE  STRUCTURE  OF  THE  MEMORY  MANAGER  CONTROL  BLOCKS  ARE 
DESCRIBED  IN  THE  INCLUDE  MEMBER  'PCMGT'. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  04/09/85  E.  SHREVE 

(* 

(* . 

(*END . 

(*  END  %INCLUDE  NDSFCT  *) 


W315  *) 

*) 

. *) 

. *) 
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(*  %INCLUDE  NDSGBM.  *) 

(**) 

PROCEDURE  NDSGBM {EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  DUMMY  PROCEDURE  FOR  COMPILE  TIME  INITIALIZATION  OF  NDS 

(*  GLOBAL  AREA.  CONTAINS  NDS  GLOBAL  VARIABLE. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  NETWORK  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  NONE 

(* 

(*  OUTPUT 

(*  NONE 

(* 

(*  COMMENT 

(*  DEFINED  WITHIN  THIS  PROCEDURE  ARE  THE  LIST  OF  ALL  NETWORKS 

(*  AND  THE  LIST  OF  ALL  LISTS. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  NDSGBM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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(*  %INCLUDE  NDSRML  *) 

(**) 

PROCEDURE  NDSRML ; EXTERNAL ; 

(**) 

(*- . 

(* 

(*  5FUNCTION: 

(*  RELEASE  ALL  ••  tMORY  BLOCKS  ALLOCATED  TO  THE  WORKING  FORM. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  NONE 

(* 

(*  SCOMMONS: 

(*  SPCMGR 

(*  PTR  I  POINTER  TO  THE  FIRST  ALLOCATED  BLOCK. 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  -  MAS  PACKAGE  USING 

(*  THE  MODEL  ACCESS  MEMORY  MANAGER. 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 

(*  THIS  ROUTINE  CAN  ONLY  BE  USED  WITH  THE  MAS  MEMORY  MANAGER. 

(*  IF  THE  PASCAL  MEMORY  MANAGER  IS  USED,  THE  ROUTINE  DISPNDM 

(*  MUST  BE  SUBSTITUTED  FOR  NDSRML. 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  BEGINNING  WITH  THE  POINTER  IN  SPCMGR,  EACH  MEMORY  BLOCK 

(*  ALLOCATED  TO  THE  WORKING  FORM  IS  LOCATED  AND  FREED. 

(* 

(*  SCOMMENTS: 

(*  THE  1ST  WORD  OF  EACH  MEMORY  AREA  CONTAINS  THE  POINTER  THAT 

(*  CHAINS  ALL  WORKING  FORM  MEMORY  AREAS. 

(* 

(*  SCHANGE  CONTROL: 


(* 

REVISED:  07/11/85 

B.  A. 

ULMER 

W315 

(* 

(* 

(* 

CHANGED  SPCMGT  TO  PCMGT 

FOR  VAX 

COMPATABILITY 

ORIGINATED:  04/05/85 

E.D. 

SHREVE 

W315 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* . 

%PAGE 

(* . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(*  THE  INCLUDE  MEMBER  'SPCMGR'  DESCRIBES  THE  STRUCTURE  OF  THE 

(*  CONTROL  BLOCKS  THAT  CONTROL  THE  MEMORY  AREAS  AND  LINKS  THEM 

(*  TOGETHER. 

(* . 

(* 

(*END . 

(*  END  %INCLUDE  NDSRML  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  NEWCRB  *) 

(**) 

PROCEDURE  NEWCRB (VAR  CRB:CRBPNTR;  VAR  RR:RET  REC) ; EXTERNAL; 


(*  AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 


(*  VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  CREATE  A  CRB  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *  *) 

(*  HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE  *) 

(*  -  0  OK  RETURN  CODE  *) 

(*  -  1  YOU  BLEW  IT  *) 

(*  -  2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  COMMONS:  *) 

(*  C0M1  *) 

(*  VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

(*  MUST  BE  PROVIDED  *) 

(*  VAR2  I  VAR2  MUST  BE  SPECIFIED  *) 

(*  COM2  *) 

(*  VAR3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

(*  FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC.  *} 

(*  *) 

(*  COMMENTS:  *) 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 
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(* 

(* . 

(**) 

(*  END  %INCLUDE  NEWCRB  *) 


*) 

*) 
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%PAGE 

(*  %INCLUDE  NEWEMM.  *) 

(**) 

PROCEDURE  NEWEMM (VAR  KEYE:ENTKEY; CONST  FORM: ENTITIES; 

VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* .  - 

(* 

(*  FUNCTION 

(*  CREATE  A  NEW  NDS  OBJECT.  FORM  DETERMINES  WHAT  IS  CREATED. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  ENTITY  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  FORM  -  THE  FORM  OF  THE  ENTITY  TO  CREATE. 

(* 

(*  OUTPUT 

(*  KEYE  -  THE  POINTER  TO  THE  CREATED  ENTITY. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  CHANGE  CONTROL: 

(*  CHANGED:  12/10/84  J.  JOHNSON  -  TO  CALL  'MASNEW'. 

(* . 

(**) 

(*  END  %INCLUDE  NEWEMM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  NEW I IM 
(**) 

PROCEDURE  NEWIIM(CONST  ROOT: ENTKEY; VAR  KEYErENTKEY; 
VAR  ENTDEF : ENTBLOCK;VAR  RR: RET  REC) ; EXTERNAL; 

(**) 

(* . 


(* 

(*  AUTHOR:  UNKNOWN 
(*  VERSION:  MAS  VER 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  NAME  I/O 

(*  ROOT  I 

(* 

(*  ENTDEF  I 

(* 

(*  KEYE  0 

(*  RR  0 

(* 

(* 

(* 

(* 

(*  {PROCESSING  DESCRIPTION: 


CADD  CREATED:  YY/MM/DD  CC 
REVISED:  84/10/11  CC 

SFUNCTION: 

CREATE  A  NEW  ENTITY  AND  COPY  THE  APPLICATION  ENTDATA  INTO 
IT.  CALLING  PROCEDURE  MUST  CONNECT  ENTITY  TO  PROPER  POINT 
IN  NDS. 

$ ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX,  DEC  VAX  11/780 

{DESCRIPTION  OF  ARGUMENTS: 

DESCRIPTION 

THE  NDS  INTERNAL  ROOT  TO  BE  THE  OWNER  OF 
THE  ENTITY. 

CONTAINS  THE  DATA  TO  BE  COPIED  INTO  THE 
NEW  ENTITY. 

KEYE  0  THE  KEY  OF  THE  NEW  ENTITY. 

RR  0  ERROR  CONDITION  RETURN  CODE. 

-  0  NORMAL  RETURN  CODE. 

{COMMONS: 


ALLOCATES  A  NEW  T.ENTITY  AND  CREATS  EMPTY  USER  AND  CNSTS 
LISTS  AND  POINTS  TO  THEM.  IT  CREATES  THE  ADB. 


{COMMENTS: 

{CHANGE  CONTROL: 
04/26/85 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* . 

(**) 

(*  END  %INCLUDE  NEWIIM  *) 


E.  D.  SHREVE 


W315 


TO  INITIALIZE  THE  CRBEXIT  AND  MAPROB  FIELDS 

84/10/11  MAS  VER  2  D.  J.  KERCHNER 
UPDATED  DOCUMENTATION. 

84/10/04  MAS  VER  2  E.  D.  SHREVE 

CHANGED  DECLARATION  OF  ENTDEF  TO  VAR. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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FUNCTION 

LISTREF  IS  INITIALIZED  AND  ALLOCATED  ENOUGH  SPACE  TO  HOLD 
SIZE  ENTITIES.  IF  ALREADY  INITIALIZED,  LISTREF  IS  DELETED 
PRIOR  TO  ALLOCATION  OF  SPACE.  IF  SIZE  IS  ZERO,  NO  SPACE 
IS  ALLOCATED. 

LANGUAGE 

PASCAL. 


%PAGE 

(*  %INCLUDE  NEWLSM.  *) 

(**) 

PROCEDURE  NEWLSM(CONST  SIZE: LISTSIZE; VAR  POSITION: LISTPSTN; 
VAR  LISTREF : LISTPNTR;  VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 
(** 

(* 


PACKAGE 

LIST  PACKAGE. 

ARGUMENTS 

INPUT 

SIZE 

OUTPUT 

POSITION 

LISTREF 

RR 


NUMBER  OF  ENTITIES  TO  BE  ALLOCATED. 


-  POSITION  OF  LIST. 

-  POINTER  TO  A  SYSTEM  LIST  WITH  SIZE  ENTITIES 
ALLOCATED  TO  IT. 

-  THE  FUNCTION  RETURN  RECORD. 


CHANGE  CONTROL 

CHANGED:  12/10/84  J.  JOHNSON  -  TO  CALL  'MASNEW'. 

) 

END  %INCLUDE  NEWLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  NEWNDM.  *) 

(**) 

PROCEDURE  NEWNDM (VAR  NDSREM:NDS;VAR  RR : RET_REC ) ; EXTERNAL ; 
(**) 

(* . 

{* 

(*  FUNCTION 

(*  CREATE  A  NEW  EMPTY  MODEL  IN  MEMORY. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  NETWORK  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  NONE 

(* 

(*  OUTPUT 

(*  NDSREM  -  CONNECTED  TO  THE  NEW  NDS. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  CHANGE  CONTROL: 

(*  EDS  -  MAS  VERSION  2  -  9/17/84  REMOVE  'MARK'  FUNCTION. 
(* 

(* . 

(**) 

(*  END  %INCLUDE  NEWNDM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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0 


SFUNCTION 

CREATE  AN  EMPTY  APPLICATION  LIST. 


SDESCRIPTION  OF  ARGUMENTS 
NAME  I/O 

KEYL  0 

RR  0 


SCOMMONS 

NDSGVM 

STACK_OF_LISTS 


%PAGE 

(*  %INCLUDE  NEWNM. 

(**) 

PROCEDURE  NEWNM (VAR  KEYL :LISTKEY; VAR  RR:RET_REC) ; EXTERNAL; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*— ■ 

(**) 

(♦END 


DESCRIPTION 

KEY  OF  THE  CREATED  APPL  LIST 
RETURN  CODE 
-0  GOOD  RETURN 
>0  CRITICAL  ERROR 
<0  WARNING 


USED  TO  FIND  LIST_OF_LISTS  TO  ADD 
THE  NEW  LIST  KSY. 


SENVIRONMENT; 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  OF  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

CREATES  A  NEW  APPLICATION  LIST  ELEMENT  AND  ATTACHES  IT 
TO  THE  LIST_OF_LISTS.  IT  CREATES  A  NEW  SYSTEM  LIST  THAT 
IS  EMPTY  AND  ATTACHES  IT  TO  THE  APPLICATION  LIST  ELEMENT 
THE  FIELDS  OF  THE  ELEMENTS  ARE  INITIALIZED. 


SCHANGE  CONTROL: 

REVISED:  04/23/85  E.D.  SHREVE 
CHANGED  TO  INITIALIZE  THE  NEW  'DELTFLG' 

ORIGINATED:  ORIGINAL  NDS  PACKAGE 


%INCLUDE  NEWNM.  *) 


W315 

FIELD. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

■*) 
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%PAGE 

(*  %INCLUDE  NEWNODE  *) 

(**) 

PROCEDURE  NEWNODE (CONST  NDSREM:NDS;VAR  KEYE: ENTKEY ; 

VAR  ENTDEF : ENTBLOCK ; VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC 

(*  VERSION:  MAS  VER  2  REVISED;  84/10/11  CC 

(* 

(*  FUNCTION: 

(*  CREATE  A  NEW  ENTITY  IN  THE  NDS  AND  COPY  THE  APPLICATION 

(*  ENTDATA  INTO  IT. 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  NDSREM  I  THE  NDS  TO  BE  THE  OWNER  OF  THE  ENTITY. 

(*  ENTDEF  I  CONTAINS  THE  DATA  TO  BE  COPIED  INTO  THE 

(*  NEW  ENTITY. 

(*  KEYE  0  THE  KEY  OF  THE  NEW  ENTITY. 

(*  RR  0  ERROR  CONDITION  RETURN  CODE. 

(*  *  0  NORMAL  RETURN  CODE. 

(* 

(*  COMMONS: 

(* 

(*  PROCESSING  DESCRIPTION: 

(* 

(*  COMMENTS: 

(* 

(*  CHANGE  CONTROL: 

(*  84/10/11  MAS  VER  2  D.  0.  KERCHNER 

(*  UPDATED  DOCUMENTATION. 

(*  84/10/04  MAS  VER  2  E.  D.  THREVE 

(*  CHANGED  DECLARATION  FOR  ENTDEF  TO  VAR. 

(* 

(* . 

(**) 

(*  END  %I NCLUDE  NEWNODE  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

■*) 
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f) 


FUNCTION 

CREATE  AN  EMPTY  SCHEMA  CLASS  COLLECTOR  ATTACHED  TO  THE 
SCHEMA  ROOT. 

LANGUAGE 

PASCAL. 

PACKAGE 

SCHEMA  PACKAGE. 


%PAGE 

(*  ^INCLUDE  NEWNSC. 

(**) 

PROCEDURE  NEWNSC (VAR  ROOT :ENTKEY; VAR  KEYE:ENTKEY;VAR  RR:RET_REC) 
EXTERNAL; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 
(** 

(* 


ARGUMENTS 

INPUT 

ROOT 


OUTPUT 

KEYE 

RR 


-  THE  INTERNAL  ROOT  TO  WHICH  THE  CREATED 
INSTANCE  COLLECTOR  WILL  BE  ATTACHED. 


-  KEY  OF  THE  CREATED  CLASS  COLLECTOR  ENTITY. 

-  THE  FUNCTION  RETURN  RECORD. 


METHOD 

THIS  PROGRAM  IS  CALLED  FOR  NO  OTHER  REASON  THAN  TO  AVOID 
PASCAL  TYPE  CHECKING  BY  USING  A  DIFFERENT  DEFINITION  OF 
ENTBLOCK. 


) 

END  %INCLUDE  NEWNSC.  *) 


■*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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(*  %INCLUDE  NEWNSI.  *) 

(**) 

PROCEDURE  NEWNSI (VAR  ROOT : ENTKEY ; VAR  KEYE:ENTKEY;VAR  RR:RET_REC) ; 
EXTERNAL; 

(**) 

(* . 

•(* 

(*  FUNCTION 

(*  CREATE  AN  EMPTY  SCHEMA  INSTANCE  COLLECTOR  ATTACHED  TO  THE 

(*  SCHEMA  ROOT. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  SCHEMA  PACKAGE. 


ARGUMENTS 

INPUT 

ROOT 


-  THE  INTERNAL  ROOT  TO  WHICH  THE  CREATED 
INSTANCE  COLLECTOR  WILL  BE  ATTACHED. 


OUTPUT 

KEYE 

RR 


KEY  OF  THE  CREATED  INSTANCE  COLLECTOR  ENTITY. 
THE  FUNCTION  RETURN  RECORD. 


METHOD 

THIS  PROGRAM  IS  CALLED  FOR  NO  OTHER  REASON  THAN  TO  AVOID 
PASCAL  TYPE  CHECKING  BY  USING  A  DIFFERENT  DEFINITION  OF 
ENTBLOCK. 


(**) 

(*  END  %INCLUDE  NEWNSI.  *) 
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(*  %INCLUDE  NEWNSR.  *) 

(**) 

PROCEDURE  NEWNSR(VAR  ROOT :ENTKEY; VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  CREATE  A  NEW  NULL  SCHEMA  ROOT  AND  ATTACH  IT  TO  THE  NDS. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  SCHEMA  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  ROOT  -  THE  INTERNAL  ROOT  TO  WHICH  THE  CREATED 

(*  SCHEMA  ROOT  WILL  BE  ATTACHED. 

(* 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  METHOD 

(*  THIS  PROGRAM  IS  CALLED  FOR  NO  OTHER  REASON  THAN  TO  AVOID 

(*  PASCAL  TYPE  CHECKING  BY  USING  A  DIFFERENT  DEFINITION  OF 

(*  ENTBLOCK. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  NEWNSR.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  NEWSADB  *) 

(**) 

PROCEDURE  NEWSADB (CONST  SIZE : ENTSIZE ; VAR  ENTBPNTR:ENTPNTR; 
VAR  RR:RET_REC) ;  EXTERNAL; 


(**) 

(*" 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

VERSION:  MAS  VER  1  REVISED:  12/10/84  *) 

*) 

FUNCTION:  *) 

ALLOCATE  SPACE  FOR  DATA  TO  A  SYSTEM  UDB.  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43 XX,  DEC  VAX  11/780  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

SIZE  I  SIZE  OF  ENTDATA  TO  BE  COPIED.  *) 

ENTBPNTR  0  POINTER  TO  ENTBLOCK  CREATED.  *) 

RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

-  0  NORMAL  RETURN  CODE.  *) 

*) 

COMMONS:  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

NEWSADB  USES  THE  PASCAL/VS  COMPILER  SUPPORT  ROUTINE  AMPXNEW.*) 

*) 

COMMENTS:  *) 

*) 

CHANGE  CONTROL:  *) 

84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

UPDATED  DOCUMENTATION.  *) 

84/12/10  MAS  VER  2  J.  JOHNSON  *) 

TO  CALL  MASNEW.  *) 

*) 

. - . . . - . *) 


(**) 

(*  END  %INCLUDE  NEWSADB  *) 
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(*  %INCLL'DE  NEWSCHC.  *) 

(**) 

PROCEDURE  NEWSCHC (VAR  ROOT : ENTKEY ; VAR  KEYE:ENTKEY; 

VAR  ENTDEF:ENTBLOCK;VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  CREATE  AN  EMPTY  SCHEMA  CLASS  ENTITY  ATTACHED  TO  THE 

(*  SCHEMA  ROOT. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  SCHEMA  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  ROOT 

(* 

(* 

(*  OUTPUT 

(*  KEYE 

(*  ENTDEF 

(*  SCH_PTR 

(*  RR 

(* 

(* . 

(**) 

(*  END  7.INCLUDE  NEWSCHC.  *) 


-  THE  INTERNAL  ROOT  TO  WHICH  THE  CREATED 
CLASS  ENTITY  WILL  BE  ATTACHED. 


-  KEY  OF  THE  CREATED  ENTITY. 

-  WORK  AREA  TO  BE  PASSED  TO  NEWIIT. 

-  POINTER  TO  THE  CREATED  CLASS  ENTITY. 

-  THE  FUNCTION  RETURN  RECORD. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  NEWSCHI .  *) 

(**) 

PROCEDURE  NEWSCHI (CONST  ROOT : ENTKEY ; VAR  KEYE:ENTKEY; 

VAR  ENTDEF : ENTBLOCK ; VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  CREATE  AN  EMPTY  SCHEMA  INSTANCE  COLLECTOR  ENTITY  ATTACHED 

(*  TO  THE  SCHEMA  ROOT. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  SCHEMA  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  ROOT 

(* 

(* 

(*  OUTPUT 

(*  KEYE 

(*  ENTDEF 

(*  SCH_PTR 

(* 

(*  RR 

(* 

(* . 

(**) 

(*  END  %INCLUDE  NEWSCHI.  *) 


-  THE  INTERNAL  ROOT  TO  WHICH  THE  CREATED 
INSTANCE  COLLECTOR  WILL  BE  ATTACHED. 


-  KEY  OF  THE  INITIALIZED  ENTITY. 

-  WORK  AREA  TO  PASS  TO  NEWIIM. 

-  POINTER  TO  THE  CREATED  INSTANCE  COLLECTOR 
ENTITY. 

-  THE  FUNCTION  RETURN  RECORD. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  NEWSCHR. 

(**) 

PROCEDURE  NEWSCHR(VAR  ROOT : ENTKEY ; VAR  ENTDEFrENTBLOCK; 
VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* .  - 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 
i* 

(* 

^** 

(*  END  %INCLUDE  NEWSCHR.  *) 


FUNCTION 

CREATE  AN  EMPTY  ROOT  COLLECTOR  ENTITY  ATTACHED  TO  THE  NDS. 

LANGUAGE 

PASCAL. 


PACKAGE 

SCHEMA  PACKAGE. 

ARGUMENTS 
INPUT 
ROOT 


OUTPUT 

ENTDEF 

RR 


THE  INTERNAL  ROOT  TO  WHICH  THE  CREATED 
SCHEMA  ROOT  WILL  BE  ATTACHED. 


WORK  AREA  TO  BE  PASSED  TO  NEWIIM. 
THE  FUNCTION  RETURN  RECORD. 


*) 


■*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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(*  ^INCLUDE  NODECNM.  *) 

(**) 

PROCEDURE  NODECNM (CONST  KEYE:ENTKEY;VAR  KEYLOUTrLISTKEY; 
VAR  RR:RET  REC) ; EXTERNAL; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

CREATE  A  LIST  WHICH  CONTAINS  A  COPY  OF  THE  ENTITY'S 
CONSTITUENT  LIST. 

SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

BKK 

KEYE 

I 

KEY  OF  THE  ENTITY. 

KEYLOUT 

0 

LIST  OF  THE  ENTITY'S  CONSTITUENT  ENTITIES 

RR 

SCOMMONS: 

0 

THE  FUNCTION  RETURN  -RECORD. 

-  0  OK  RETURN  CODE 

-  1  YOU  BLEW  IT 

-  2  THE  ROUTINE  BLEW  IT 

=  ?  ERRORS  FROM  INTERNALLY  CALLED 
FUNCTIONS 

$ ENVIRONMENT: 

LANGUAGE: 

IBM  PASCAL 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 
OR 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

SCOMMENTS: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


SCHANGE  CONTROL: 

REVISED:  06/28/85  CCXX  B.  A.  ULMER  FRMI 

CHANGE  THE  RETURN  CODE  FROM  (END_OF_LIST  TO  NO_LIST_CREATED) 


*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  NODEUNM.  *) 

(**) 

PROCEDURE  NODEUNM(CONST  KEYE:ENTKEY;VAR  KEYLOUT: LISTKEY ; 

VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* . 

(* 

(*  S FUNCTION: 

(*  CREATE  A  LIST  WHICH  CONTAINS  A  COPY  OF  THE  ENTITY'S 

(*  USER  LIST. 

(* 

(*  SDESCRIPTION  OF 
(*  NAME 

(* 

(*  KEYE 

(*  KEYLOUT 

(*  RR 

(* 

(* 

(* 

(* 

(* 

(* 

(*  SCOMMONS: 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(*  OR 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 

(* 

(*  $ PROCESSING  DESCRIPTION: 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  06/28/85  CCXX  B.  A.  ULMER  FRMI 

(*  CHANGE  THE  RETURN  CODE  FROM  (END  OF  LIST  TO  NO  LIST.CREATED) 
(* 


ARGUMENTS: 

I/O  DESCRIPTION 

I  KEY  OF  THE  ENTITY. 

0  LIST  OF  THE  ENTITY'S  USER  ENTITIES 
0  THE  FUNCTION  RETURN  -RECORD. 

-  0  OK  RETURN  CODE 

-  1  YOU  BLEW  IT 

-  2  THE  ROUTINE  BLEW  IT 

-  ?  ERRORS  FROM  INTERNALLY  CALLED 

FUNCTIONS 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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AUTHOR: 

VERSION: 


B.  A. 
XXXX 


ULMER 


FRMI 


FUNCTION: 

COUNT  THE  NUMBER  OF  TIMES  THE  OVERFLOW  BUFFER  HAS  BEEN  USED 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 
EXECUTION  PROCEDURE: 

HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED. 

DESCRIPTION  OF  ARGUMENTS: 


%PAGE 

(*  %INCLUDE  OCOUNT  *) 

(**) 

PROCEDURE  OCOUNT (VAR  SIZE: INTEGER) ; EXTERNAL; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 


CREATED: 

REVISED: 


86/03/13 

YY/MM/DD 


CC 


I/O  DESCRIPTION 

I/O  SIZE  TO  BE  STORED  IN  THE  REQUESTED  SIZE  ARRAY 
IN  THE  MSTATUS  COMMON 


. *) 

*) 

CC??*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 
THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


NAME 

SIZE 


COMMONS: 

MSTATUS 


PROCESSING  DESCRIPTION: 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 
FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 

COMMENTS: 


CHANGE  CONTROL: 

YY/MM/DD  CCZZ  I.  M.  THECHANGER 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 

YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER 

DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
NARRATION  ON  THE  NEXT  LINE. 

YY/MM/DD  CCXX  I.  M.  APERSON 

DESCRIPTION  OF  FIRST  CHANGE  MADE. 


(**) 

{*  END  %INCLUDE  OCOUNT  *) 
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► 


» 


%PAGE 

(*  %INCLUDE  ORDRLST.  *) 

(**) 

PROCEDURE  ORDRLST (VAR  IN  LIST: LISTPNTR;  VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION; 

GIVEN  AN  APPLICATION  LIST  OF  ENTITIES  REORDER  THEN  SO  THAT 
THEY  ARE  IN  USER  TO  CONSTITUENT  ORDER 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

IN  LIST  I  SYSTEM  LIST  THAT  IS  TO  BE  REORDERED 

RC~  0  EXTERNAL  RETURN  CODE 

-  0  OK 

>  0  CRITICAL  ERROR  ' 

<  0  WARNING 

SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 

SPROCESSING  DESCRIPTION: 

CREATE  A  COPY  OF  IN_LIST  IN  SRT_LST. 

REPEAT  FOR  EACH  ENTITY  OF  SRTJ.ST : 

GET  ALL  USERS  OF  I-TH  ENTITY  OF  SRT_LST. 

IF  A  USER  OF  SRT  LST(I)  APPEARS  AT  SRT_LST(J)  AND  I<J 
THEN 

SWAP  SRT_LST { I )  AND  SRT_LST(J). 

ELSE 

GET  NEXT  SRT_LST(I) 

UNTIL  END  OF  LIST  IN  SRT.LST. 

SCOMMENTS: 

SCHANGE  CONTROL: 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*)- 

.*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


» 
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') 


%PAGE 

(*  %INCLUDE  OSTART 
(**) 

PROCEDURE  OSTART;  EXTERNAL; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* . 

(**) 

(*  END  %INCLUDE  OSTART  *) 


. *) 

*) 

CC??*) 
CC  *) 
*) 


AUTHOR: 

VERSION: 

FUNCTION: 


B.  A. 
XXXX 


ULMER 


FRMI  CREATED:  86/03/13 
REVISED:  YY/MM/DD 


*) 

INITIALIZE  THE  INFORMATION  DEALING  WITH  THE  OVERFLOW  BUFFER  *) 


IN  THE  MSTATUS  COMMON 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 
EXECUTION  PROCEDURE: 

HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED. 

DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

COMMONS: 

MSTATUS 

PROCESSING  DESCRIPTION: 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 
FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 

COMMENTS: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 
THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE. 


CHANGE  CONTROL: 

YY/MM/DD  CCZZ  I.  M.  THECHANGER 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 

YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER 

DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
NARRATION  ON  THE  NEXT  LINE. 

YY/MM/DD  CCXX  I.  M.  APERSON 

DESCRIPTION  OF  FIRST  CHANGE  MADE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

* 


) 
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(*  XINCLUDE  PASAM.  *) 

(**) 

PROCEDURE  PASAM (CON ST  KEYP:ENTKEY;  VAR  BLOCK: ENTBLOCK;  VAR  DATAREC:BLKDATA; 
VAR  RC: EXT -RET -CODE;  CONST  NAME : ROUTINE) ; FORTRAN; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. *) 

*) 

AUTHOR:  D.  KERCHNER  PDDI  CREATED:  84/09/11  *) 

VERSION:  MAS 2  REVISED:  YY/MM/DD  *) 

*) 

FUNCTION:  *) 

THIS  ROUTINE  SERVES  AS  A  LINK  ROUTINE  BETWEEN  THE  MAS  *) 

INTERFACE  PACKAGE  AND  THE  USER’S  APPLICATION  DEFINED  *) 

PROCEDURE  MAKING  IT  FORTRAN  CALLABLE  *) 

*) 

ENVIRONMENT:  *) 

IBM  ASSEMBLER  LANGUAGE  -  *) 

IBM  4341/3083  VAX  11/780  SYSTEMS  *) 

*) 

EXECUTION  PROCEDURE:  *) 

THIS  ROUTINE  IS  INVOKED  BY  A  CALL  FROM  A  MAS  INTERFACE  *) 

ROUTINE  SUCH  AS  MALXEQ  OR  MAEXEQ,  IN  ORDER  TO  INVOKE  A  *) 

USER  DEFINED  PROCEDURE  WHICH  IS  IN  THE  USER’S  MODULE  *) 

*) 

DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  TYPE  I/O  DESCRIPTION  *) 

KEYP  I  ENTITY  KEY  *) 

ENTBLOCK  I  APPLICATION  DEFINED  BLOCK  *) 

DATAREC  I/O  USER  PASSED  DATA  (I/O)  *) 

RC  0  ERROR  CONDITION  RETURN  CODE  (PASSED  *) 

ONLY,  NOT  PASSED  *) 

ROUTINE  I  NAME  OF  THE  USER  DEFINED  PROCEDURE  *) 

*) 

COMMONS:  *) 

*) 

PROCESSING  DESCRIPTION:  *) 

PASAM  RECEIVES  CALL  FROM  MAS  PASCAL  ROUTINE.  THIS  *) 


ASSEMBLER  CSECT  THEN  BRANCHES  TO  THE  USER  DEFINED  ROUTINE  *) 
BY  PASSING  THE  ADDRESS  OF  THAT  ROUTINE  IN  A  BRANCH  REGISTER) 
INSTRUCTION.  WHEN  THE  USER  ROUTINE  COMPLETES  PROCESSING,  *) 
CONTROL  IS  RETURNED  TO  THE  MAS  PASCAL  ROUTINE  VIA  THE  ,  *) 


USER  DEFINED  ROUTINE.  *) 

*) 

COMMENTS:  *) 

VARIABLES  ARE  NOT  ACCESSED,  BUT  ARE  PASSED  THROUGH  TO  THE  *) 
USER  DEFINED  ROUTINE.  *) 

*) 

DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

*) 
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(*  REGISTER  USAGE: 

-.(*  R1  -  PARAMETER  LIST 

(*  R15  -  BRANCHING  REGISTER 

(* 

(*  CHANGE  CONTROL: 

(* 

(*END  %INCLUDE  PASAM 


*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  RDLSM.  *) 

(**) 

PROCEDURE  RDLSM (VAR  POSITION: LISTPSTN;  CONST  LISTREF : LISTPNTR ; 

VAR  KEYErENTKEY;  VAR  EOL: BOOLEAN;  VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  READ  A  SYSTEM  LIST  AS  A  FIRST  IN  FIRST  OUT  ORDER. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  POSITION  -  INDICATING  NEXT  ENTITY  IN  LISTREF  TO  BE  READ. 

(*  LISTREF  -  LIST  TO  BE  READ. 

(* 

(*  OUTPUT 

(*  POSITION  -  UPDATED  TO  NEXT  ENTITY. 

(*  KEYE  -  ENTITY  READ  FROM  LIST. 

(*  EOL  -  TRUE  IF  ENTITY  WAS  READ  ELSE  FALSE. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  METHOD 

(*  IF  THERE  IS  AN  ENTITY  AT  INDICATED  POSITION  THEN  PLACE 

(*  NEXT  ENTITY  INDICATED  BY  POSITION  IN  KEYE,  ADJUST 

(*  POSITION  TO  INDICATE  NEXT  ENTITY,  RETURN  EOL  SET  TO 

(*  FALSE, 

(*  ELSE 

(*  RETURN  EOL  SET  TO  TRUE. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  RDLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  RDNM.  *) 

(**) 

PROCEDURE  RDNM(CONST  ENTRNG : ENTRANGE ; VAR  KEYL : LISTKEY ; 

VAR  KEYE:ENTKEY;VAR  ENTDEF:ENTBLOCK;VAR  EOL 1ST: BOOLEAN; 

VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  READ  THE  NEXT  ENTITY  IN  THE  KIND  RANGE  FROM  AN  APPLICATION 

(*  LIST. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 


(* 

(* 

ENTRNG 

-  ALL  ENTITIES  OUTSIDE  THIS  INCLUSIVE  RANGE 
ARE  IGNORED. 

(* 

(* 

(* 

KEYL 

OUTPUT 

-  KEY  OF  LIST  TO  READ. 

(* 

KEYE 

-  KEY  OF  NEXT  ENTITY  ON  LIST. 

(* 

ENTDEF 

-  DATA  FOR  NEXT  ENTITY  ON  LIST. 

(* 

EOL 1ST 

-  TRUE  IF  NO  ENTITY  IN  THE  RANGE  EXISTS. 

(* 

RR 

-  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  RDNM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  RDRLSM.  *) 

(**) 

PROCEDURE  RDRLSM(CONST  POSITION :LISTPSTN; CONST  LISTREF : LISTPNTR ; 
VAR  KEYE:ENTKEY;VAR  EOL: BOOLEAN; VAR  RR:RET_REC) ; EXTERNAL; 


(*  *) 

(*  FUNCTION  *) 

(*  READ  THE  LAST  ENTITY  KEY  FROM  LISTREF.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  -  *) 

(*  INPUT  *) 

(*  POSITION  -  RELATIVE  POSITION  IN  LISTREF  OF  ENTITY  *) 

(*  TO  BE  READ.  *) 

(*  LISTREF  -  LIST  WHOSE  POSITION-TH  ENTITY  IS  TO  BE  READ.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  KEYE  -  KEY  OF  POSITION-TH  ENTITY  IN  LISTREF.  *) 

(*  EOL  -  TRUE  IF  NO  POSITION-TH  ENTITY  IN  LISTREF.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* . *) 


(**) 

(*  END  %INCLUDE  RDRLSM.  *) 
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(*  ^INCLUDE  RDTLSM.  *) 

(**) 

PROCEDURE  RDTLSM (CONST  LISTREF : LISTPNTR; VAR  KEYE : ENTKEY ; 

VAR  EMPTY: BOOLEAN; VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  READ  THE  LAST  ENTITY  KEY  FROM  LISTREF. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  LISTREF  -  LIST  WHOSE  LAST  ENTITY  IS  TO  BE  READ. 

(* 

(*  OUTPUT 

(*  KEYE  -  RETURNS  LAST  ENTITY  IN  LISTREF. 

(*  EMPTY  -  TRUE  IF  NO  ENTITIES  IN  LIST,  ELSE  FALSE. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  RDTLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  REVAADB.  *) 

(**) 

PROCEDURE  REVAADB (CONST  ENTBPNTR : ENTPNTR ; VAR  ENTDEF:ENTBLOCK; 


VAR  RR : RET.REC ) ; EXTERNAL ; 


(*  FUNCTION 

(*  ASSIGN  THE  VALUE  OF  A  SYSTEM  UDB  TO  AN  APPLICATION  ENTBLOCK. 


(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  UDB  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  ENTBPNTR  -  POINTER  TO  ENTBLOCK  CREATED. 

(* 

(*  OUTPUT 

(*  ENTDEF  -  THE  ENTBLOCK  WITH  THE  VALUE  OF  SYSUDB 

(*  ASSIGNED  TO  IT. 

(*  RR  *  THE  FUNCTION  RETURN  RECORD. 

(* 

(*  METHOD 

(*  REVAADB  USES  SYSTEM  ROUTINE  AMPXMOVE  TO  MOVE  DATA  IN 

(*  MEMORY.  THE  NUMBER  OF  BYTES  TO  MOVE  MUST  BE  SPECIFIED. 

(* 

(* .  . 

(**) 

(*  END  %INCLUDE  REVAADB.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  REVNODM  *) 

(**) 

PROCEDURE  REVNODM (VAR  KEYE:ENTKEY;VAR  ENTDEF :ENTBLOCK; 

VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* .  . 

(* 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC 

(* 

(*  FUNCTION: 

(*  REVISE  AN  ENTITY’S  USER  DATA  BLOCK. 

(* 

(*  ENVIRONMENT: 

(*  IBM  PASCAL  LANGUAGE 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780 

(* 

(*  DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  KEYE  I  KEY  OF  ENTITY  TO  BE  REVISED. 

(*  ENTDEF  I  NEW  DATA  FOR  ENTITY  TO  BE  REVISED. 

(*  RR  0  ERROR  CONDITION  RETURN  CODE. 

(*  -  0  NORMAL  RETURN  CODE. 

(* 

(*  COMMONS: 

(* 

(*  PROCESSING  DESCRIPTION: 

(* 

(*  COMMENTS: 

(* 

(*  CHANGE  CONTROL: 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER 

(*  UPDATED  DOCUMENTATION. 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE 

(*  CHANGED  DECLARATION  ON  KEYE  AND  ENTDEF  TO  VAR. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  REVNODM  *) 


■*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  REVRLSM.  *) 

(**) 

PROCEDURE  REVRLSM (CONST  POSITION:LISTPSTN;CONST  KEYE:ENTKEY; 
CONST  L I STRE F : L I STPNTR ; VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  CHANGE  AN  ENTITY  IN  A  SYSTEM  LIST. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  POSITION  -  THE  RELATIVE  POSITION  OF  THE  ENTITY  IN 

(*  THE  LIST. 

(*  KEYE  -  THE  NEW  ENTITY  KEY. 

(*  LISTREF  -  A  POINTER  TO  A  SYSTEM  LIST. 

(* 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  REVRLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

■*) 
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(*  %INCLUDE  REVSADB 
(**) 

PROCEDURE  REVSADB (VAR  ENTDEF:ENTBLOCK;VAR  ENTBPNTR:ENTPNTR; 
VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* . 

(**) 

(*  END  %INCLUDE  REVSADB  *) 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 


AUTHOR: 

VERSION: 


UNKNOWN 
MAS  VER  2 


CADD  CREATED:  YY/MM/DD  CC 
REVISED:  84/10/11  CC 
REVISED:  84/12/10 


FUNCTION: 

REPLACE  THE  VALUE  OF  A  SYSTEM  ENTBLOCK  WITH  THE  VALUE  OF 
ENTDEF. 

ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX,  DEC  VAX  11/780 

DESCRIPTION  OF  ARGUMENTS: 


NAME 

ENTDEF 


I/O 

I 


ENTBPNTR  0 
RR  0 


DESCRIPTION 

THE  APPLICATION  ENTBLOCK  VALUE  TO  ASSIGN 
TO  A  SYSTEM  ENTBLOCK. 

POINTER  TO  THE  SYSTEM  ENTBLOCK  TO  BE  REVISED. 
ERROR  CONDITION  RETURN  CODE. 

-  0  NORMAL  RETURN  CODE. 


COMMONS: 


PRnrF^TNG  nrsrRTPTTnN- 

REVSADB  USES  SYSTEM 'ROUTINE  AMPXMOVE  TO  MOVE  DATA  IN 
MEMORY.  THE  NUMBER  OF  BYTES  TO  MOVE  MUST  BE  SPECIFIED. 

COMMENTS: 

CHANGE  CONTROL: 

84/10/11  MAS  VER  2  D.  J.  KERCHNER 
UPDATED  DOCUMENTATION. 

84/10/04  MAS  VER  2  E.  D.  SHREVE 
CHANGED  ENTDEF  FROM  CONST  TO  VAR. 

84/12/10  MAS  VER  2  J.  JOHNSON 
TO  CALL  MASDSP. 
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f) 


FUNCTION 

RELEASE  ALL  THE  LISTS  ON  THE  CURRENT  LIST  OF  LISTS. 


%PAGE 

(*  %INCLUDE  RLSNM. 

(**) 

PROCEDURE  RLSNM(VAR  RR:RET  REC) ; EXTERNAL; 
(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 


LANGUAGE 

PASCAL. 

PACKAGE 

LIST  PACKAGE. 

ARGUMENTS 

INPUT 

NONE 

OUTPUT 
RR 


-  THE  FUNCTION  RETURN  RECORD. 


(**) 

(*  END  7.INCLUDE  RLSNM.  *) 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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%PAGE 

(*  %INCLUDE  RSTLSM.  *) 

(**) 

PROCEDURE  RSTLSM(VAR  POSITION: LISTPSTN;CONST  LISTREF:LISTPNTR; 
VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  RESETS  POSITION  TO  INDICATE  THE  BEGINNING  OF  A  LIST. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  LISTREF  -  POINTER  TO  A  LIST. 

(* 

(*  OUTPUT 

(*  POSITION  -  RESET  TO  INDICATE  BEGINNING  OF  LIST. 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* .  . 

(**) 

(*  END  %INCLUDE  RSTLSM.  *) 
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%PAGE 

(*  ^INCLUDE  RSTSFLG  *) 

(**) 

PROCEDURE  RSTSFLG(CONST  LISTP:LISTPNTR; 

CONST  SETTING: BOOLEAN; VAR  RR : RET_REC ) ; EXTERNAL ; 


(*  SFUNCTION:  *) 

(*  RESET  THE  REQUESTED  POSITION  IN  THE  INTERNAL  MAS  PROCESS  *) 

(*  FLAG  (MAPROB)  IN  THE  I IT  TO  THE  REQUESTED  BOOLEAN  VALUE.  *) 

(*  *) 
(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  mmmm  mm m  mmmmmmmmmmm  *) 

(*  LISTP  I  THE  LIST  OF  ENTITIES  THAT  ARE  TO  HAVE  A  BYTE  *) 

(*  IN  THE  SYSUSE  FLAG  SET.  *) 

(*  SETTING  I  BOOLEAN  VALUE  THE  SYSUSE(f LG.POS)  BYTE  IS  TO  *) 

(*  BE  SET  TO.  (IE:  TRUE  OR  FALSE)  *) 

(*  RR  0  FUNCTION  RETURN  CODE  *) 

(*  -  0  GOOD  RETURN  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  SCOMMONS  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360,370,43XX  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  FOR  EACH  ENTITY  ON  THE  LIST  OF  ENTITIES,  THE  MAPROB  *) 

(*  BYTE  IS  SET  TO  THE  INPUT  SETTING.  *) 

(*  *) 

(*  SCOMMENTS  *) 

(*  USES  THE  MAPROB  FLAG  IN  THE  T.ENTITY.  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  04/26/85  E.D.  SHREVE  W315  *) 

(*  TO  SET  THE  MAPROB  BYTE  IN  THE  T.ENTITY  INSTEAD  *) 

(*  OF  THE  SYSUSE  OF  THE  ADB.  FOR  INTERNAL  MAS.  *) 

(*  *) 

(*  ORIGINATED:  07/10/84  C.  J.  SAMPLE  W315  *) 

(* . *) 

(**) 

(*  END  %INCLUDE  RSTSFLG  *) 
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%PAGE 

(*  %INCLUDE  RVRLSM.*) 

(**) 

PROCEDURE  RVRLSM(VAR  KEYIN:LISTPNTR;  VAR  KEYOUT:LISTPNTR; 

VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  $ FUNCTION: 

(*  CREATE  AN  OUTPUT  LIST  THAT  CONTAINS  THE  ENTITIES  ON  THE 

(*  INPUT  LIST  IN  REVERSE  ORDER. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

KEYIN 

I 

LIST  TO  COPY  FROM 

KEYOUT 

0 

NEW  LSIT  WITH  ENTITY’S  REVERSED 

RR 

0 

EXTERNAL  RETURN  CODE- 

(*  -  0  OK  RETURN  CODE 

(* 

(*  SCOMMONS: 

(*  NONE 
(* 

(*  $ ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  INTERNAL  MODEL  ACCESS  SOFTWARE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  IF  THE  INPUT  LIST  IS  NOT  EMPTY,  A  NEW  OUTPUT  LIST  IS 

(*  CREATED.  THEN  THE  ENTITIES  ARE  MOVED  INTO  THE  NEW  LIST 

(*  IN  REVERSE  ORDER. 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*■  ORIGINATED:  04/11/86  MAS 2  E.  D.  SHREVE  W315 

(* 

(* .  . 

(*END . . . 

(*  END  %INCLUDE  RVRLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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*) 


%PAGE 

(*  %INCLUDE  SETRULS. 

(**) 

PROCEDURE  SETRULS(CONST  USER:ENTKEY;  CONST  CNST : ENTKEY ;  CONST 
DEL_LIST : LISTPNTR ;  VAR  RULE :T_RULE ;  VAR  MIN  CNST: LISTPSTN; 
VAR  RR:RET  REC) ; EXTERNAL; 

%PAGE 

(**) 

★ _ .  _  _ 


(* 

[/ 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

SET  DELETE  FLAGS  ACCORDING  TO  USER’S  DEPENDENCE  &  STRENGTH 
RULES. 

SDESCRIPTION  OF  ARGUMENTS: 


( 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  SCOMMENTS 


NAME 

USER 

CNST 

DEL.LST 

RULE 


MIN_CNST 

RR 


I/O  DESCRIPTION 


I 


0 

0 

0 


SCOMMONS: 


*) 
*) 
*) 
*) 
*) 
*) 
*) 

-  *) 

USER  WHOSE  RULES  ARE-  TO  BE  FOUND  BASED  ON*) 
THE  RELATIONSHIP  WITH  CNST  *) 

CNST  WHOSE  RULES  ARE  TO  BE  FOUND  BASED  ON*) 
THE  RELATIONSHIP  WITH  USER  *) 

LIST  OF  KEYS  THAT  ARE  ELIGIBLE  FOR  *) 

DELETION  *) 

INDICATES  WHICH  nr- :-E  AND  COMPRESS  RULES*) 
ARE  VALID  FOR  TbIS  RELATIONSHIP  *) 

MINIM"M  NUMBER  OF  CONSTITUENTS  FOR  USER  *) 
THE  FUNCTION  RETURN  CODE.  *) 

*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 

SPROCESSING  DESCRIPTION: 

IF  THE  USER  IS  IN  THE  DEL.LST  THEN  EXIT 
ELSE 

THE  RULES  OF  THE  CONNECTION  ARE  FOUND  AND  THE  RULE  SET  IS 
FILLED  APPROPRIATELY 


SCHANGF  CONTROL: 

REVISED:  06/17/86  B.  A.  ULMER  FRMI 

ADD  NEW  PARAMETERS  TO  SETRULS  AND  CHANGE  PROCESSING  TO  HANDLE 
THE  NEW  DELETE  RULES  -  MAJOR  REWRITE 
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(*  REVISED:  09/  /85  B.  A.  ULMER  FRMI  *) 

(*  ADD  NEW  PARAMETERS  TO  FNDURUL  TO  HANDLE  TWO  NEW  DELETE  RULES  *) 

(*  *) 
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%PAGE 

(*  %INCLUDE  SETSWCI .  *) 

(**) 

PROCEDURE  SETSWCI (CONST  LISTIN:LISTPNTR;CONST  ISWT:BQOLEAN; 

VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  SET  A  SWITCH  IN  THE  USER  DATA  BLOCK  FOR  EACH  ENTITY 

(*  AND  ALL  CONSTITUENTS  INCLUSIVE. 

(* 

(*  LANGUAGE 

(*  PASCAL 

(* 

(*  PACKAGE 

(*  ENTITY  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  LISTIN 

(* 

(*  I SWT 

(* 

(*  OUTPUT 

(*  RR 

(* 

(*  METHOD 

(*  THIS  ROUTINE  IS  CALLED  RECURSIVELY  TO  PROCESS  THE  ENTITIES 

(*  THAT  ARE  CONSTITUENTS  OF  THE  ENTITIES  ON  THE  INPUT  LIST. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  SETSWCI.  *) 


-  THE  LIST  CONTAINING  THE  ENTITIES  FOR  WHICH 
SWITCH  WILL  BE  SET. 

-  THE  BOOLEAN  SETTING  FOR  THE  SWITCH. 
VARIABLE  DISCRETION  AS  BEFORE. 

-  THE  FUNCTION  RETURN  CODE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  SORTDLST .  *) 

(**) 

PROCEDURE  SORTDLST (CONST  DEL  LST:LISTKEY;VAR  SRT  LST:LISTPNTR; 
VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* . 

(* 

(*  $ FUNCTION: 

(*  GIVEN  AN  APPLICATION  LIST  OF  ENTITIES  TO  BE  DELETED, 

(*  DEL.LST  RETURNS  A  SYSTEM  LIST  SORTED  IN  USER-CONSTITUENT 

(*  ORDER  IN  SRTLST. 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


DEL.LST 
SRT  LST 


APPLICATION  LIST  CONTAINING  THE  LISTKEY 
OF  TH  E  ENTITIES  TO  BE  DELETED 
POINTER  TO  A  SYSTEM  LIST  CONTAINING  THE 
ENTITIES  OF  THE  DEL  LST  SORTED  IN  USER- 
CONSTITUENT  ORDER 
EXTERNAL  RETURN  CODE 
-  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


SCOMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/438 1 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
SPROCESSING  DESCRIPTION: 

SET  MAPROB  FLAG  ON  FOR  ALL  ENTITIES  IN  THE  DEL-LST 
THAT  ARE  NOT  ’MARKED  FOR  DELETE’ 

REPEAT  FOR  EACH  ENTITY  IN  OELJ.ST 
IF  NOT  PROCESSED  (MAPROB  -  FALSE) 

CALL  SRTBYUSR  TO  PUT  ALL  USER  ENTITIES  ON  THE 
SRT  LST  BEFORE  ADDING  THE  ENTITY. 

RESET  MAPROB  AND  MAPR0B2 

SCOMMENTS: 

USES  NDS  PROCEDURES  RSTLSM,  RDLSM,  NEWLSM  AND  SRTBYUSR 


SCHANGE  CONTROL: 

REVISED:  12/17/85  B.  A.  ULMER  FRMI 

CHANGE  SRTBYUSR  TO  SRTBYCNT  -  SORT  LIST  NOW  IN  CONSTITUENT  TO 
USER  ORDER 
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(* 

(*  REVISED:  12/03/85  E.  D.  SHREVE  FRMI 

(*  REWRITTEN  TO  REPLACE  THE  COMPARE  SORT  WITH  A  SUBROUTINE  THAT 
(*  USES  THE  SYSTEM  FLAGS  (MAPROB  AND  MAPR0B2)  FOR  SORTING 
(* 

(*  REVISED:  07/01/85  B.  A.  ULMER  FRMI 

(*  ELIMINATE  THE  LEAVE  FUNCTION  TO  IMPROVE  COMPATABILITY  WITH  VAX 
(* 

(*  REVISED:  04/10/85  B.  A.  ULMER  FRMI 

(*  DO  NOT  PROCESS  THE  ALREADY  "MARKED  FOR  DELETE"  ENTITIES 
(* 

(*  ORIGINATED:  06/19/84  R.  A.  MCCLUSKEY  FRMI 

(* 

(* . 

%PAGE 

(* .  . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(* . 

(* 

(**) 

(*  END  7.INCLUDE  SORTDLST.  *) 

(**) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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>) 


SYSTEM  LIST. 


%PAGE 

(*  %INCLUDE  SORTLSM. 

(**) 

PROCEDURE  SORTLSM (VAR  LISTREFrLISTPNTR;  CONST  PROCNAME: ROUTINE; 
VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* . 

(**) 

(*  END  %INCLUDE  SORTLSM.  *) 


FUNCTION 
SORT  A 

LANGUAGE 

PASCAL. 


PACKAGE 

LIST  PACKAGE. 

ARGUMENTS 
INPUT 
LISTREF 


-  LIST  TO  BE  SORTED. 


OUTPUT 

RR 


-  THE  FUNCTION  RETURN  RECORD. 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*\ 

j 

*) 
*) 
*) 
*) 
*) 
*) 
*) 
*> 
*) 
*) 
*) 
*) 
*) 


METHOD 

THE  SYSTEM  LIST  LISTREF  IS  SORTED  IN  APPLICATION  DEFINED 
ORDER.  THE  ORDER  IS  DETERMINED  BY  A  USER  DEFINED  FUNCTION; 
ORDER.  ORDER  RETURNS  FALSE  IF  TWO  ENTITIES  ARE  IN  ORDER  ELSE*) 
IT  RETURNS  TRUE.  IF  LISTREF  HAS  LESS  THAN  TWELVE  ENTITIES,  *) 
THE  BUBBLE  SORT  ALGORITHM  IS  USED.  IF  LISTREF  CONTAINS  MORE  *) 
THAN  ELEVEN  ENTITIES  A  SLIGHT  VARIATION  OF  QUICK  SORT  IS 
USED  WHEN  THE  SUBLISTS  CREATED  BY  STANDARD  QUICK  SORT 
CONTAIN  LESS  THAN  TWELVE  ENTITIES,  SORTLSM  REVERTS  BACK  TO 
BUBBLE  SORT.  IN  GENERAL  SORTLSM  IS  FASTER  THAN  EITHER 
BUBBLE  SORT  OR  QUICK  SORT. 


*) 

*) 

*) 

*) 

*) 


*) 

.* 
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%PAGE 

(*  %INCLUDE  SRTBYCNT.  *) 

(**) 

PROCEDURE  SRTBYCNT(VAR  KEY1 :ENTKEY;VAR  SRT_LST:LISTPNTR; 
VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  IS  A  RECURSIVE  ROUTINE  THAT  PLACES  THE  CNST  ENTITIES 
OF  KEY1,  THAT  ARE  ON  THE  DELETE  LIST,  INTO  THE  SRT.LST 
BEFORE  KEY1  IS  ADDED. 

SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

mmmm 

mmm 

KEY1 

I 

THE  ENTITY  THAT  WILL  BE 
OUTPUT  LIST  ALONG  WITH 

PLACED  ON  THE 
ITS  CONSTITUENTS 

SRT.LST 

0 

POINTER  TO  A  SYSTEM  LIST  CONTAINING  THE 
ENTITIES  OF  THE  DEL  LST  SORTED  IN 
CONSTITUENT-USER  ORDER 

RC 

SCOMMONS: 

0 

EXTERNAL  RETURN  CODE 
*0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 

$ ENVIRONMENT: 

LANGUAGE: 

IBM  PASCAL 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 


SPROCESSING  DESCRIPTION: 

(ALL  ENTITIES  THAT  WERE  ON  THE  ORIGINAL  DELETE  LIST  HAVE  BEEN 
FLAGGED  IN  THE  ENTITY  BLOCK  (MAPROB  -  TRUE)) 

EACH  CNST  OF  KEY1  IS  PROCESSED: 

IF  NOT  PROCESSED  (MAPROB2  -  FALSE)  AND  IN  THE  DELETE 
LIST  (MAPROB  -  TRUE)  THEN 
CALL  SRTBYCNT  TO  PUT  THE  CNST  ENTITY  ON  SRT.LST 
ADD  KEY1  TO  THE  SRT.LST. 

SET  KEY1  (MAPROR2  -  TRUE) 


SCOMMENTS: 

(*  USES  NDS  PROCEDURES  RSTLSM,  RDLSM,  AND  SRTBYCNT 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  CREATED:  12/17/85  B  A.  ULMER  FRMI 

(*  THIS  ROUTINE  IS  USED  BY  SORTDLST  FOR  SORTING.  IT  REPLACES 

(*  THE  COMPARE  SORT  IN  THE  OLD  SORTDLST  WHICH  WAS  INEFFICIENT. 

(* 

(* . 

%PAGE 

(* . 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(*  THESE  ARE  DESCRIBED  IN  THE  NDSDCL  INCLUDE  MEMBER. 

(* . 

(* 

(**) 

(*  END  %INCLUDE  SRTBYCNT.  *) 

(**) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  UPDCRBE  *) 

(**) 

PROCEDURE  UPDCRBE (CONST  CRB:CRBPNTR;  CONST  EKEY : ENTKEY ; 

VAR  POS:LISTPSTN;  VAR  DIR: LISTDIR;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

* _ 


( 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 


-*) 
*) 
CC??*) 


AUTHOR:  B.  A.  ULMER 
VERSION:  XXXX 

FUNCTION: 

UPDATE  AN  ENTRY  IN  THE  CRB 


FRMI  CREATED:  85/02/08 
REVISED:  YY/MM/DD 


CC 


ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 
EXECUTION  PROCEDURE: 

HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED. 

DESCRIPTION  OF  ARGUMENTS: 


NAME 

CRB 

EKEY 

POS 

DIR 

RR 


COMMONS: 

C0M1 

VAR1 

VAR  2 
COM2 
VAR3 


I/O  DESCRIPTION 

I/O  CONSTITUENT  READ  BLOCK  ADDRESS 
I  ENTITY  KEY  OF  ENTRY  TO  UPDATE 
I  NEW  LIST  POSITION  SETTING 
I  NEW  DIRECTION  OF  LIST  (FORWARD  OR  REVERSE) 
0  ERROR  CONDITION  RETURN  CODE 

-  0  OK  RETURN  CODE 

-  1  YOU  BLEW  IT 

-  2  THE  ROUTINE  BLEW  IT 


I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA 
MUST  BE  PROVIDED 
I  VAR2  MUST  BE  SPECIFIED 

I  CHARACTER  DATA  MUST  BE  SPECIFIED 


PROCESSING  DESCRIPTION: 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 
FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


COMMENTS: 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 
THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

*) 
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(*  CHANGE  CONTROL: 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 

(*  NARRATION  ON  THE  NEXT  LINE. 

(*  YY/MM/DD  CCXX  I.  M.  APERSON 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  UPDCRBE  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  VERAPN.  *) 

(**) 

PROCEDURE  VERAPN (CONST  KEY 1 : ANYKEY ; CONST  KEY2: ANYKEY; 

VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  VERIFY  LEGALITY  OF  APPENDING  AN  ENTITY  OR  LIST  OF  ENTITIES 

(*  (KEY2)  TO  AN  ENTITY  OR  LIST  OF  ENTITIES  (KEY1) . 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  VERIFY  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  KEY1 

(* 

(* 

(*  KEY2 

(* 

(* 

(* 

(*  OUTPUT 

(*  RR 

(* 

(* . 

(**) 

(*  END  %INCLUDE  VERAPN.  *) 


-  KEY  Or  APPLICATION  LIST  TO  WHICH  ENTITIES 
'nr  TO  BE  APPENDED.  IF  ENTITY  KEY,  THEN 
“•jD  TO  CONSTITUENT  LIST. 

KEY  OF  APPLICATION  LIST  OF  ENTITIES  TO 
APPEND.  IF  ENTITY  KEY,  THEN  ADD  ENTITY 
TO  LIST. 


-  THE  FUNCTION  RETURN  RECORD. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  VERCN.  *) 

(**) 

PROCEDURE  VERCN (CONST  KEYLU: LISTKEY; CONST  KEYLC:LISTKEY; 

VAR  RR : RET.REC ) ; EXTERNAL ; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  VERIFY  LEGALITY  OF  CONNECTING  EACH  ENTITY  ON  A  LIST  OF 

(*  USERS  TO  EACH  ENTITY  ON  A  LIST  OF  CONSTITUENTS. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  VERIFY  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  KEYLU  -  KEY  OF  LIST  OF  USERS. 

(*  KEYLC  -  KEY  OF  LIST  OF  CONSTITUENTS. 

(* 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . . 

(**) 

(*  END  %INCLUDE  VERCN.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  ^INCLUDE  VERCR  *) 

(**) 

PROCEDURE  VERCR(VAR  ENTDEF : ENTBLOCK ; CONST  KEYE : ANYKEY ; 
VAR  RR:RET  REC) ; EXTERNAL; 


(*  *) 

(*  AUTHOR;  UNKNOWN  CADD  CREATED;  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  VERIFY  LEGALITY  OF  CREATING  AN  ENTITY  WITH  THE  USER  *) 

(*  SUPPLIED  ENTITY  DATA  BLOCK  AND  LIST  OF  CONSTITUENTS.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  -  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTDEF  I  USER  SUPPLIED  DATA  FOR  ENTITY  BLOCK.  *) 

(*  KEYE  I  KEY  OF  ENTITY  OR  APPLICATIONS  LIST  OF  *) 

(*  ENTITIES  TO  BE  CONSTITUENTS  OF  THIS  ENTITY.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  -  0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  ENTDEF  FROM  CONST  TO  VAR.  *) 

(*  *) 

(* . *) 

(**) 

(*  END  %INCLUDE  VERCR  *) 
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%PAGE 

(*  %I NCLUDE  VERDEL.  *) 

(**) 

PROCEDURE  VERDEL (CONST  KEYE: ANYKEY; VAR  RR : RET_REC ) ; EXTERNAL ; 
(**) 

(* . 

(* 

(*  FUNCTION 

(*  VERIFY  LEGALITY  OF  DELETING  AN  ENTITY. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  VERIFY  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  KEYE  -  KEY  OF  ENTITY  TO  BE  DELETED  FROM  NETWORK. 

(* 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  7.INCLUDE  VERDEL.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %INCLUDE  VERGT.  *) 

(**) 

PROCEDURE  VERGT(CONST  KEYE:ENTKEY;VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  VERIFY  LEGALITY  OF  RETRIEVING  AN  ENTITY  WITH  THE  USER 

(*  SUPPLIED  ENTITY  KEY. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  VERIFY  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  KEYE  -  KEY  OF  ENTITY  TO  BE  RETRIEVED  FROM  NETWORK. 

(* 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  VERGT.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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%PAGE 

(*  %I NCLUDE  VERUD  *) 

(*  (VERFORM)  VERIFY  ROUTINE  FORMALS.  *) 

(**) 

PROCEDURE  VERUD {CONST  KEYE:ENTKEY;VAR  ENTDEF:ENTBLOCK; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* . *) 

(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

{*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  VERIFY  LEGALITY  OF  UPDATING  AN  ENTITY  WITH  THE  USER  *) 

(*  SUPPLIED  ENTITY  KEY  USING  THE  USER  SUPPLIED  ENTITY  DATA  *) 

(*  BLOCK  AND  LIST  OF  CONSTITUENTS.  *) 

(*  *) 

(*  ENVIRONMENT:  -  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  KEY  OF  EXISTING  ENTITY.  *) 

(*  ENTDEF  I  USER  SUPPLIED  DATA  FOR  NEW  ENTITY  BLOCK.  *) 

{*  KEYL  I  KEY  OF  LIST  OF  CONSTITUENTS  TO  BE  CONNECTED  *) 

(*  TO  THIS  ENTITY.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  -  0  NORMAL  RETURN  CODE.  *) 

(*  *) 

{*  COMMONS:  *) 

(*  *) 

{*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  •  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  ENTDEF  FROM  CONST  TO  VAR.  *) 

(*  *) 

(* . *) 

(**) 

(*  END  ^INCLUDE  VERUD  *) 
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%PAGE 

(*  ^INCLUDE  XI EMM.  *) 

(**) 

PROCEDURE  XI EMM (VAR  KEYE:ENTKEY;VAR  RR:RET_REC) ; EXTERNAL; 


(*  *) 

(*  {FUNCTION:  *) 

(*  TO  DELETE  AN  ENTITY.  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

^  mmmm  mmm  acBacssssss  ^ j 

(*  KEYE  I/O  KEY  OF  ENTITY  TO  BE  DELETED,  WILL  BE  *) 

(*  SET  TO  NIL.  *) 

(*  *) 

(*  RR  0  THE  FUNCTION  RETURN  CODE.  *) 

(*  -  *) 
(*  {COMMONS:  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  09/13/85  L.  J.  BEHAN  FRMI  *) 

(*  CHANGED  TO  ENSURE  THE  DECREMENTING  OF  THE  READ  POSITION  OF  A  *) 

(*  USER  ENTITY  CONSTITUENT  LIST  *) 

(*  *) 

(*  REVISED:  02/18/85  B.  A.  ULMER  FRMI  *) 

(*  CHANGED  THE  STRUCTURE  OF  THE  INTERNAL  ITEM  FOR  THE  *) 

(*  IMPLEMENTATION  OF  THE  CRB  *) 

(*  *) 

(*  REVISED:  10/05/84  E.  D.  SHREVE  FRMI  *) 

(*  CHANGED  THE  KEYE  PARMS  FOR  XULST  AND  XCLST  TO  VAR  *) 

(*  *) 
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%PAGE 

(*  %INCLUDE  XREMM.  *) 

(**) 

PROCEDURE  XREMM (CONST  KEYEU:ENTKEY; CONST  KEYEC:ENTKEY; 

VAR  RR:RET  REC) ; EXTERNAL; 

(**) 

(* . 

(* 

(*  FUNCTION 

(*  DELETE  THE  FIRST  RELATION  BETWEEN  THE  USER  AND  CONSTITUENT. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  ENTITY  PACKAGE. 

(* 

(*  ARGUMENTS 
(*  INPUT 

(*  KEYCU  -  THE  INTERNAL  ITEM  ON  THE  USER  SIDE  OF  THE 

(*  RELATION. 

(*  KEYEC  -  THE  INTERNAL  ITEM  ON  THE  CONSTITUENT  SIDE 

(*  OF  THE  RELATION. 

(* 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* . 

(**) 

(*  END  %INCLUDE  XREMM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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APPENDIX  F 

ACCESS  SOFTWARE  DATA  DICTIONARY 


The  following  members  of  the  Access  Software  constitute  a  data  dictionary. 
These  listings  are  provided  on  the  following  pages. 


APLTYP  -  Application  type  declarations  for  MAS  interface  routines  F-2 
ENTBLK  -  Definition  of  an  application  data  block  for  an  entity  F-3 
MASKIND  Constants  for  internal  routines  F-4 
MASTYP  -  Constants  and  types  for  MAS  interface  routines  F-6 
NDSDCL  -  Constants  and  types  for  MAS  internal  routines  F- 10 
SPCMGT  -  MAS  memory  management  type  declaration  F-21 
PCMGT  MAS  memoty  management  type  declaration  F-22 
SCHDCL  -  Constants  and  types  for  MAS  internal  routines  F- 23 
SCHTYP  -  Constants  and  types  for  MAS  internal  routines  F-24 
TVERIFY  Verifies  common  types  -  F-28 
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(*  %INCLUDE  APLTYP  *) 

(* . 

(*  APPLICATION  TYPE  DECLARATIONS  FOR  USING  THE  MAS  PACKAGE. 

(* . 

TYPE 

ANYKEY  -  INTEGER; 

LISTKEY  -  ANYKEY; 

ENTKEY  -  ANYKEY; 

ORDJCIND  -  INTEGER; 

EXT_RET_CODE  -  INTEGER; 

LISTPSTN  -  INTEGER; 

LISTINDX  -  INTEGER; 

LISTSIZE  -  INTEGER; 

ROUTINE  -  ARRAY (.1.. 8.)  OF  CHAR; 

NAMTYP  -  PACKED  ARRAY (.1. .6.)  OF  CHAR; 

(*  END  %INCLUDE  APLTYP  *) 


*) 

*) 

*) 
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%PAGE 

(* . 

(*  (ENTBLK)  DEFINITION  OF  ENTITY  BLOCK  TYPE. 

(* . 

%INCLUDE  PRINTOFF 

(**) 

. 

(*  MAS  VERSION  1 

(*  PACKAGE:  ENTITY  PACKAGE. 

(* . 

(**) 

(*  THE  ENTITY  BLOCK  IS  DEFINED  SEPARATELY  TO  ALLOW  THE  UNLIKELY 
(*  APPLICATION  STRUCTURE  OF  AN  ENTDATA  RECORD  CONTAINING  FIELDS  OF 
(*  TYPES  DEFINED  IN  NDSDCL.  IN  SUCH  A  CASE  THE  APPLICATION  SHOULD 
(*  INCLUDE  NDSDCL,  THEN  DEFINE  ENTDATA,  THEN  INCLUDE  ENTBLOCK. 

(**) 

CONST 

SYS  MRDFLG  -  1;  •  (* 

SYS_PRCFLG  -  2;  (* 

SYS_ABSFLG  *  3;  (* 

SYS_APLFLG  -  4;  (* 

TYPE 

SYSINDX*1 . .4; 

ENTBLOCK-RECORD 
KIND:ORD_KIND; 

SIZErENTSIZE; 

SYSUSE:ARRAY( .SYSINDX. )  OF  BOOLEAN; 

DATA: ENTDATA; 

END; 

%PRINT  ON 

(*  END  %INCLUDE  ENTBLK  *)  1 


MARK  FOR  DELETE  FLAG  BAU 

PROCESS  FLAG 
ABSENT/PRESENT  FLAG 
APPLICATION  FLAG 


*) 

*) 

*) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 
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(*  %INCLUDE  MASKIND.  *) 

(**) 

(* . . . 

(* 

(*  FUNCTION 

(*  CONSTANT  DECLARATIONS  FOR  MAS  ENTITY  TYPES 

(* 

(*  LANGUAGE 

(*  PASCAL 

(* 

(*  PACKAGE 

(*  CADD  EMULATION  PACKAGE 

(* 

(*  ARGUMENTS  -  NONE. 

(* 

(*  COMMENTS 

(*  1001  -  1480  ARE  CADD  ENTITY  TYPES 

(*  1501  -  1508  ARE  PDDI  ENTITY  TYPES  (TOPOGRAPHICAL) 

(* 

(* . 

(**) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


CONST 


HEADER 

s 

1000 

MAS  POINT 

a 

1001 

MAS~LINE 

s 

1002 

MAS  PLANE 

a 

1003 

MAS  ARC 

m 

1004 

MAS  CIRCLE 

• 

1014 

MAS  PC  CURVE 

m 

1005 

MAS  SPHERE 

m 

1006 

MAS  CROSSHAIR 

m 

1007 

MAS  CONIC 

m 

1010 

MAS.ELLIPSE 

m 

1020 

MAS  LOFT  MAT 

m 

1051 

MAS  LOFT  FUN 

m 

1052 

MAS  LOFT  SPC 

m 

1053 

MAS  LOFT  LPA 

m 

1054 

MAS  LOFT  FAC 

s 

1055 

MAS_LOFT_COF 

m 

1056 

MAS  PC PATCH 

» 

1086 

mas’bounded  PLANE 

m 

1087 

MAS  SURFACE 

m 

1088 

MAS  GROUP 

m 

1089 

MAS  TEXT 

m 

1090 

MAS  COORDINATE  DIM 

m 

1180 

MAS  CONVENTIONAL  DIM 

m 

1280 

MAS  ANGULAR  DIM 

a 

1380 

MAS  RADIUS  DIM 

m 

1480 
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HAS  VERTEX 

m 

1501 

MAS  EDGE 

m 

1502 

MAS  LOOP 

m 

1504 

MAS  FACE 

m 

1505 

MAS  SHELL 

m 

1507 

MAS_OBJECT 

m 

1508 

DELETE_OP 

m 

2010 

REPLACE  OP 

m 

2020 

CONNECT  OP 

m 

2030 

DISCONNECT  OP 

m 

2040 

REPLACE_ATTRIBUTE_OP 

m 

2050 

PICK_ENTITY 

m 

2060; 

(*  END  ^INCLUDE  MASKIND.  *) 
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%PAGE 

(* . 

(*  (MASTYP)  CONSTANTS  AND  TYPES  USED  IN  THE  MAS  INTERFACE. 

(* . 

^INCLUDE  PRINTOFF 

(* . . 

(*  MAS  VERSION  1 

(*  PACKAGE:  NETWORK  PACKAGE. 

(* . 

(**) 

CONST 

(**) 

(* . 

(*  THE  NUMBER  OF  ROUTINES  IN  MAS/SCHEMA/NDS. 

(* . 

(**) 

NUM  MAS  ROUTINES-71; 

(**) 

(* .  . 

(*  EACH  INTERFACE  ROUTINE  MUST  BE  ASSOCIATED  WITH  A  NUMBER  FOR 
(*  STATISTICS  GENERATION. 

(* . 

(**) 

MAEUD_ID-1; 

MAEGTK_ID-2; 

MAECR_ID-3; 

MADMP_ID=4; 

M A INI T_ I D= 5 ; 

MDMP_ID-6; 

MAL_ID=7 ; 

MALATC_ID-8; 

MALNO  ID-9; 

MALGTK_ID-10; 

MAEXEQ_ID-11 ; 

MALXEQ_ID=12; 

MALK_ID-13; 

MALFND_ID*14; 

MAEU.ID-15; 

MALD  ID-16; 

MALRDE  ID-17; 

MALCPY_ID-18; 

MAEC.ID-19; 

MAECI_ID-20; 

MAEUIJD-21; 

MAESWT_ID-22 ; 

MAESVL.ID-23; 

MALKL  ID-24; 

MAED_Id-25; 

MAEDT  ID-26; 

MALRMV_ID-27 ; 

MALOR_ID-28; 


*) 

*) 

*) 

*) 

*) 

*) 

*) 


*> 

*) 

*) 


*) 

*) 

*) 

*) 
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MALRPL.ID-29; 
MALAND  ID-30; 
HALNOTllD-31; 
HAEA  ID-32; 
MAEAIJD-33; 
HALSTF_ID  -  34 
MALSTR_ID  -  35 
MALRD_ID  -  36 
MALDA_ID  -  37 
MALDI.ID  -  38 
MAEAV_ID  -  39 
MAKILL_ID  -  40 
MAEUIK_ID  -  41 
MAECIK.ID  -  42 
MALINS_ID  -  43 
MALREP_ID  -  44 
MAEDI.ID  -  45; 
MAEDTI_ID  -  46 
MAECTK.ID  -  47 
MAEKND_ID  -  48 
MAKXEQ_ID  -  49 
MAIN  ID  -  50 
HAESWA_ID  -  51 
MAEUSR_ID  -  52 
MAEGKN_ID  -  53 
MASMSZ_ID  -  54 
MALOCK_ID  -  55 
MAKCNT_ID  -  56 
MAQURY_ID  -  57 
MAUPDT  ID  -  58 
MIDBD  ID  -  59; 
MIDBRV  ID  -  60 
MAERST_ID  -  61: 
MARSGT.ID  -  62: 
MARSCR_ID  -  63: 
MALRVS_ID  -  64: 
MAEDTS  ID  -  65; 
MALSRT  ID  -  66; 
MALR0RJD  -  67; 
MAECXQ_ID  -  68; 
MAEUXCLID  -  69; 
MAECMP_ID  -  70; 
MAECQY_ID  -  71; 


(*  THE  EXTERNAL  RETURN  CODE  INITIALIZATION  AND  OK  VALUE. 

(* . 

(**) 

NORMAL  RC-0; 

(**) 


*) 

*) 

*) 
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(* .  . 

(*  THE  RANGE  ON  AN  ENTITY. 

(* . 

(**) 

MIN.ENT-O; 

MAX_ENT*65535; 

(**) 

(* . 

(*  THE  EXTERNAL  NIL  POINTER  VALUE. 

(* . 

(**) 

NIL_PNTR»0; 

TYPE 

LINE-TEXT; 

PGMNAME-PACKED  ARRAY ( . 1 . .8. )  OF  CHAR; 

ERRMSG-PACKED  ARRAY (.1. .25.)  OF  CHAR; 

(**) 

(* . 

(*  EXTERNAL  RETURN  CODE. 

(* . 

(**) 

EXT_RET_CODE- INTEGER; 

(**) 

CONST 

(**) 

(* . 

(*  NON- ERROR  EXTERNAL  RETURN  CODE  VALUE. 

(* . 

(**) 

OKRC-O; 

(**) 

(* . 

(*  MAXIMUM  VALUE  TO  BE  IN  THE  OVERFLOW  REQUESTED  SIZE  ARRAY 

(* . 

(**) 

MAX.OVRFLW-IO; 

(**) 

(* . 

(*  COMMON  AREA  FOR  F START  AND  FSTOP  ID  AND  ON/OFF  FLAG. 

(* . 

(**) 

TYPE 

COMMON  -  RECORD 

ID.FIELD: INTEGER; 

ID.FLAG: INTEGER; 

ID_ERR_PGM: INTEGER; 

ID_ERR_PGMNAME : PGMNAME ; 

ID.ERR  CODE: INTEGER; 

ID_ERR_MESSAGE : ERRMSG ; 


*) 

*) 

*) 


*) 

*) 

*) 


*) 

*) 

*) 


*) 

*) 

*) 


*) 

*) 

*) 


*) 

*) 

*) 
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OVRFLW.COUNT: INTEGER; 

OVRFLW_ENTRY: ARRAY  ( . 1 . .MAX.OVRFLW. )  OF  INTEGER; 

END; 

(**) 

%PRINT  ON 

(*  END  %INCLUDE  MASTYP  *) 
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(* . .  *) 

(*  (NDSDCL)  NETWORK  DATA  STRUCTURE  TYPES  AND  CONSTANTS  UbtO  BOTH  *) 
(*  BY  BOTH  INTERNAL  NDS  ROUTINES  AND  EXTERNAL  APPICATIONS.  *) 

(* . - . *) 

%INCLUDE  PRINTOFF 

(* . *) 

(*  MAS  VERSION  2  *) 

(*  PACKAGE:  NETWORK  PACKAGE.  *) 

(*  CHANGE  CONTROL:  *) 

(*  02/11/85  MAS  VER  2  B.  A.  ULMER  *) 

(*  ADD  CRBPNTR  TO  T_INT_ROOT  *) 

(*  ADD  MAX_RDB_SIZE  *) 

(*  ADD  INCREMENT  VALUES  FOR  CONSTITUENT  READ  BLOCK  *) 

(*  ADD  T_CNST_RDBLK  AND  CNST_RDB_ENTRY  *) 

(*  ADD  2  NEW  ERROR  MESSAGES  *) 

(*  ADD  RDBEXIST  TO  T_INT_ITEM  *) 

(*  DELETE  ROOT  FROM  T_INT_ITEM  *) 

(*  DELETE  DIRLIST  FROM  T_INT_ITEM  -  *) 

(*  04/23/85  MAS  VER  2  E.  D.  SHREVE  *) 

(*  ADD  DELTFLG  TO  T_APPL_LIST  TO  MARK  LISTS  FOR  NONDELETE.  *) 

(*  ADD  PROCESS  FLAG  (MAPROB)  FOR  INTERNAL  MAS  USAGE  *) 

(*  05/21/85  MAS  VER  2  B.  A.  ULMER  *) 

(*  ADD  NO_LIST_CREATED  WARNING  TO  LIST  OF  WARNINGS  *) 

(*  ADD  INVALID_FLAG  NAME  TO  LIST  OF  ERRORS  *) 

(*  06/13/85  MAS  VER  2  B.  A.  ULMER  *) 

(*  ADD  NAMTYP  FOR  PARAMETER  FOR  MAQURY  ANS  MAUPDT  *) 

(*  07/11/85  MAS  VER  2  B.  A.  ULMER  *) 

(*  ADD  NUM_WARN  AND  NUM.ERROR  FOR  CHANGE  TO  CNVRR  AND  *) 

(*  MSTATUS  COMMON  *) 

(*  10/24/85  MAS  VER  2  B.  A.  ULMER  *) 

(*  ADD  RTS_NOT_IN_WORKING_FORM  AND  SIZE_NOT_LARGE_ENOUGH  *) 

(*  TO  LIST  OF  ERRORS  *) 

(*  03/12/86  MAS  VER  2  E.  D.  SHREVE  *) 

(*  ADD  MAPR0B2  TO  THE  I  IT  FOR  SORT  DELETE  ROUTINES  *) 

(*  03/21/86  MAS  VER  2  B.  A.  ULMER  *) 

(*  ADD  CORE.NOT  AVAILABLE,  NOT_ENOUGH_CORE_FOR_INIT,  AND  *) 

(*  ABSOLUTELY_NO_MORE_CORE  TO  ERRORS  FOR  PROCESSING  OF  THE*) 

(*  "OUT  OF  SPACE"  CONDITION  *) 

(*  04/22/86  MAS  VER  2  B.  A.  ULMER  *) 

(*  ADD  NEW  WARNING  MESSAGE  FOR  MAEDTS  -  EMPTY_MARK_LIST  *) 

(*  AND  CHANGED  THE  NUM.WARN  TO  7  *) 

(*  05/05/86  MAS  VER  2  B.  A.  ULMER  *) 

(*  ADD  NEW  WARNING  CODES  FOR  HANDLING  EMPTY  OUTPUT  LISTS  *) 

(*  FOR  MAEDTS  AND  ERROR  CODES  FOR  MAINIT  *) 

(*  MAS  VERSION  3  *) 

(*  PACKAGE:  NETWORK  PACKAGE.  *) 

(*  06/17/86  MAS  VER  3  B.  A.  ULMER  *) 

(*  CHANGE  STRUCTURE  OF  I  IT  FOR  NEW  DELETE  RULES  -  ADD  TYPE  *) 

(*  DEFINITIONS  FOR  THE  SCHEMA  INSTANCE  COLLECTOR  *) 

(*  06/18/86  MAS  VER  3  B.  A.  ULMER  *) 

(*  ADD  NEW  ERROR  CODES  FOR  SETRULS  ROUTINE  -  ADD  MAX_GROUP  *) 

(*  CONSTANT  FOR  THE  INSTANCE  COLLECTOR  DEFINITION  *) 


F- 10 


PS  560130000A 
1  January  1987 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*— 

(**) 

CONST 


07/01/86  MAS  VER  3  B.  A.  ULMER  *) 

CHANGE  LSTNG  -  T.NDSGVM  DUE  TO  NDS  NAME  CHANGE  CONFLICTS*) 
07/22/86  MAS  VER  3  B.  A.  ULMER  *) 

CHANGE  T  NDS  ERROR  -  ERROR  CODE  *) 

CANT_MARK_FOR_DELETE  TO  SCHEMA_ROOT_NIL  -  BUG  FIX*) 
CANT.MARK  FOR.DELETE  TO  SCHEMA_ROOT_NIL  -  BUG  FIX*) 

THAT  DEALS  WITH  MAERST  *) 

. . *) 


(**) 

(*-- . - . 

(*  THE  NUMBER  OF  CHARACTERS  PER  WORD  IS  MACHINE  D^ENDENT.  THE 
(*  ASSUMPTION  HAS  BEEN  MADE  THAT  AN  INTEGRAL  NUMBlR  OF  CHARACTERS 
(*  WILL  OVERLAY  AN  INTEGER. 

(*  IBM  S/370  DEC  VAX  11/780  CDC  CYBER 

(*  CHARS_PER_WORD  4  4  10 

(* . 

(**) 

CHARS_PER_WORD  -  4; 

(**) 

(* . 

(*  THE  MAXIMUM  SIZE  OF  KIND  IS  THE  MAXIMUM  INTEGER. 

(* . 

(**) 

MAX  ENTJCIND  -  MAXINT; 

(**) 

(* . - . 

(*  LIST  INCREMENTS  ARE  USED  TO  CONTROL  THE  MEMORY  VS  SPEED 
(*  TRADEOFF  FOR  THE  MANAGEMENT  OF  THEIR  CORRESPONDING  LIST  TYPES. 
(*  THEIR  VALUE  CORRESPONDS  TO  THE  NUMBER  OF  ENTITIES  ADDED  TO  THE 
(*  LIST  EACH  TIME  GROWTH  IS  REQUIRED  AND  THE  NUMBER  OF  ENTITIES 
(*  REMOVED  WHEN  LIST  COMPRESSION  IS  APPLICABLE. 

(* . 

(**) 

APPL_LIST_INCR  -  10; 

ITEM_L IST_I NCR  -  24; 

USER_LIST_INCR  *  2; 

CNST_LIST_INCR  -  2; 

LIST_OF_ROOTS_INCR  -  10; 

LIST_OF_LISTS_INCR  =  20; 

STACK_OF_LISTS_INCR  -  20; 

INST_COL_CNST_INCR  *  200; 

LRG_LIST_INCR_1  =  20; 

LRG_LIST_INCR_2  =  100; 

LRG_LIST_INCR_3  -  200; 

(*  IF  LIST  PROCESSING  CHANGED. 

(**) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 


*) 

*) 

*) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 


*) 
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(* . *) 

(*  MAXIMUM  NUMBER  OF  DIFFERENT  KIND  OF  CONNECTIVE  RELATIONSHIP  AN  *) 
(*  ENTITY  CAN  HAVE  WITH  ITS  CONSTITUENTS  6/18/86*) 

(* . *) 

(**) 

MAX_GROUP  -  8; 


(**) 

(* . 

(*  RECORD  LENGTH  FOR  AN  ENTRY  IN  THE  CRB 

(*  CONSTITUENT  READ  BLOCK  INCREMENT  FOR  EXPANSION/COMPRESSION 

(* .  . 

(**) 

CRB_REC_LEN  -  12; 

CNST_RDBLK_INCR  -  4; 

(**) 

(* . 

(*  DUE  TO  THE  IBM/370  24  BIT  ADDRESSING  LIMIT,  THE  MAXIMUM  SIZE 
(*  OF  A  ENTBLOCK  IS  16777215  BYTES. 

(* . 

(**) 

MAX_ENT_SIZE  =  800000;  (*16777215  40*) 

MAX_ENT_WORDS  =  200000;  (*  4194301  10*) 

(**) 

(* . 

(*  TO  FORCE  VARIABLES  TO  A  HALFWORD  OF  STORAGE 

(* . 

(**) 

MAX_RDB_SIZE  »  65535; 


— *) 
BAU*) 
BAU*) 
— *) 


*) 

*) 

*) 

*) 


--**) 

BAU*) 

— *) 


(**) 

(* . *) 

(*  EACH  ENTRY  IN  A  LIST  OCCUPIES  ONE  WORD.  THE  LIST  ITSELF  CONTAINS  *) 
(*  1  WORD  OF  OVERHEAD.  THE  NUMBER  OF  ENTITIES  IN  A  LIST  ARE  LIMITED  *) 
(*  TO  THE  NUMBER  OF  WORDS  ADDRESSABLE  -  1  OR  (2**22) -1.  *) 

(* .  . *) 

(**) 

MAX_LIST_SIZE  «  4194302; 

(**) 

%PAGE 

TYPE 


SIGNED_INT2  *  PACKED  -32768.-32767; 

UNSIGNED_INT2  *  PACKED  0.. 65535; 

NATURAL2  -  PACKED  1.. 65535; 

(**) 

RDBSIZE  *  PACKED  0. -MAX_RDB_SIZE;  (*  BAU  *) 

(**) 
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(* . *) 

(*  THE  ORDER  TYPE  IS  USED  FOR  THE  RESULT  OF  THE  APPLICATION  DEFINED  *) 
(*  ORDER  FUNCTION.  THIS  FUNCTION  IS  USED  AS  INPUT  BY  THE  PROCEDURES  *) 

(*  THAT  SORT  LISTS.  *) 

(* . *) 

(**) 

T  ORDER  -  (N_LESS,N_EQUAL,N_GREATER); 

ORD_KIND  -  0 . . MAX_ENT  KIND; 

(**) 

CONST 


(**) 

(*" . - . 

(*  KIND  OF  NIL_KIND  INDICATES  ENTBLOCK  HAS  BEEN  DELETED. 

(* . 7 . 

(**) 

NIL  KIND  *  0; 

(**) 

(* . 

(*  NUMBER  OF  WARNINGS  AND  ERRORS 

(* .  .  . 

(**) 

NUM  WARN  -  -10; 

NUM_ERROR  -  43; 

(**) 


%PAGE 

TYPE 


(**) 

(* . 

(*  INTERNAL  RETURN  CODES. 

(* . 

(**) 

T  NDS  ERROR  - 


(OK, 

(* 

0  * 

BAD  ENT  KIND, 

(* 

1  * 

INVALID  CREATE, 

(* 

2  * 

CANT  CREATE  LIST, 

(* 

3  * 

MAS  I N IT  FAILED, 

(* 

4  * 

INVALID  UPDATE, 

(* 

5  * 

CANT  UPDATE  ENT, 

(* 

6  * 

CANT  CREATE  ENT, 

(* 

7  * 

CANT  VERIFY  CONNECT, 

(* 

8  * 

INVALID  CONNECTION, 

(* 

9  * 

CANT  CONNECT, 

(* 

10  * 

ABSENT  INPUT, 

(* 

11  * 

INVALID  GET, 

(* 

12  * 

NDS  OP  COMPLETE, 

(* 

13  * 

BAD  LIST  POSITION, 

(* 

14  * 

MAXIMUM  LIST  SIZE, 

(* 

15  * 

BAD  LIST  MOVE  COUNT, 

(* 

16  * 

BAD  LIST  REFERENCE, 

(* 

17  * 

BAD  ENT  KEY, 

(* 

18  * 

F- 13 
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*) 


. *) 
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. *) 


*) 

*) 

*) 
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DUPLICATE.SCH,  (*  19  *) 
DUMP  ERROR,  (*  20  *) 
BAD_ENT  SIZE,  (*  21  *) 
BAD_SCH  KIND,  (*  22  *) 
PROC  CODE.ERROR,  (*  23  *) 
PROC  OUT  OF.RANGE,  (*  24  *) 
NO_MATCH  FOUND,  (*  25  *) 
DUPS  NOT  REMOVED,  (*  26  *) 
INVALID  DELETE,  (*  27  *) 
BAD_ENTITY  ON_USER_LIST,  (*  28  *) 
BAD_DELETE  KEY,  (*  29  *) 
EMPTY  MODEL,  (*  30  *) 
ARG  OUT  OF  RANGE,  (*  31  *) 
INVALID_CRB_POSITION,  (*  32  *) 
CRB  ENTRY  NOT  FOUND,  (*  33  *} 
INVALID  FLAG  NAME,  (*  34  *) 
SCHEMA_ROOT_NIL,  (*  35  *) 
SIZE  NOT_LARGE_ENOUGH ,  (*  36  *) 
RTS  NOT_IN_WORKING_FORM,  (*  37  *) 
CORE_NOT_AVAI LABLE ,  (*  38  *) 
NOT_ENOUGH_CORE_FOR_I N IT ,  (*  39  *) 
ABSOLUTELY_NO_MORE_CORE ,  (*  40  *) 
MAINIT_ALREADY_DONE,  (*  41  *) 
RULE  DOES_NOT  MATCH,  (*  42  *) 
ENT ITY_NOT_FOUND_L I ST  );(*  43  *) 

T_NDS_WARNING  « 

(OKW,  (*  0  *) 
NO_SUCH  SCH,  (*  1  *) 
PROC_WARNING  CODE,  (*  2  *) 
EMPTY_DELETE~L I ST ,  (*  3  *) 
EM PTY_EXC E PT I ON_L I ST ,  (*  4  *) 
END  OF_LIST,  (*  5  *) 
NO.LIST  CREATED,  (*  6  *) 
EMPTY_MARK  LIST,  (*  7  *) 
EMPTY_MARK_N  EXCcPTION,  (*  8  *) 
EMPTY_DELETE~N_EXCEPTION, (*  9  *) 
EMPTY_MARK_N  DELETE) ;  (*  10  *) 


(**) 

RETURN  CODE  -  RECORD 

ERROR  :  T_NDS  ERROR; 

WARNING  :  T  NDS.WARNING; 

END; 

(**) 

RET  REC  ■  RECORD 

“RC  :  RETURN_CODE ;  ROUT.NAME  :  STRING(8); 

END; 


(* . 

(*  NEW  DELETE  AND  COMPRESS  RULE  STRUCTURES 

(* . 


. *) 

6/17/86  *) 

. *) 


T.RULE.ELMNTS  -  (COMPRESS,  DELETE,  USER.DELETE,  CNST.DELETE) ; 
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(**) 

T  RULE  -  SET  OF  T  RULE  ELMNTS; 

(**)  ' 

T.GROUP  -  RECORD 
LASTCNST  :  RDBSIZE; 

RULE  :  T_RULE; 

END; 

(**) 

T.GROUP.ARRAY  -  ARRAY  (.1. .MAX_GROUP.)  OF  T.GROUP; 

(**) 

(* . 

(*  ENTITIES  ARE  DYNAMIC  OBJECTS  REFERENCED  BY  APPLICATION  KEYS 
(*  AND  WHICH  CAN  BE  REFERENCED  BY  LISTS. 

(* . 

(**) 

ENTITIES  -  (NIL  ENT,  INT.ROOT,  INT  ITEM,  APPL.LIST); 

(**) 

(* . 

(*  LIST  POINTERS  ARE  USED  TO  CONNECT  ENTITIES  TO  SYSTEM  LISTS. 

(*  A  SYSTEM  LIST  CAN  NEVER  BE  CONNECTED  TO  MORE  THAN  ONE  ENTITY. 

(* . 

(**) 

LISTPNTR  -  @T  SYS  LIST; 

(**) 

(*— . 

(*  THE  SYSTEM  LIST  POSITION  INDICATES  RELATIVE  POSITION  WITHIN  A 
(*  SYSTEMS  LIST.  IT  IS  NOT  A  COMPONENT  WITH  THE  SYSTEM  LIST  TYPE 
(*  BECAUSE  ONLY  SYSTEM  LISTS  CONNECTED  TO  APPLICATION  LIST 
(*  ENTITIES  HAVE  AN  ASSOCIATED  POSITION. 

(* . 

(**) 

LISTPSTN  -  0 . . MAX  LIST  SIZE; 

(**) 

(* .  . 

(*  ALLOWABLE  SIZE  OF  SYSTEMS  LIST.' 

(* . 

(**) 

LISTSIZE  -  O..MAX_LIST_SIZE; 

(**) 

(* . 

(*  LIST  INDEX  FOR  INDEXING  INTO  SYSTEM  LISTS. 

(* .  . 

(**) 

LISTINDX  -  1. .MAX.LIST  SIZE; 

(**) 


*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 

*) 

*) 


*) 

*) 

*) 


*) 

*) 

*) 
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(* . 

(*  POINTER  TO  A  T  ENTITY  IN  THE  NETWORK  DATA  STRUCTURE. 

(* . T . 

(**) 

T  KEY  -  @T_ENTITY ; 

ENTKEY  -  RECORD 
P  :  T_KEY ; 

END; 

(**) 

(* .  . 

(*  SIZE  OF  USER  ENTITY  DATA  IN  WORDS. 

(* . - . 

(**) 

ENTSIZE  -  0 . . MAX  ENT  SIZE; 

(**) 

(* . 

(*  SIZE  OF  APPLICATION  DATA  IN  CHARACTERS. 

(* . - . 

(**) 

ENTCHARSIZE  -  0. .MAX_ENT_SIZE; 

(**) 

(* . - . 

(*  MACHINE  DEPENDENT  INDEX  TYPE  FOR  MOVING  USER  DATA  AS  CHARACTER 
(*  ARRAYS. 

(* . 

(**) 

ENTCHARINDX  -  1 . .MAX_ENT_SIZE; 

(**) 

(* . 

(*  MACHINE  DEPENDENT  INDEX  TYPE  FOR  MOVING  USER  DATA  AS  WORDS  IN 
(*  SYSTEMS  FORMAT. 

(* . 

(**) 

ENTINDX  -  1 . . MAX  ENT.WORDS; 

(**) 

(* . 

(*  USER  DATA  CAN  BE  VIEWED  AS  ARRAY  OF  CHARACTERS  OR  INTEGERS. 

(*  POINTER  TO  DYNAMICALLY  ALLOCATED  SYSTEM  DATA  STORAGE  AREAS. 

(* .  . 

(**) 

ENTPNTR  -  0ENTBLOCK; 

%PAGE 

(**) 

(* . 

(*  NDS  DYNAMIC  OBJECTS. 

(* . 

(**) 

TYPE 

(**) 


*) 

*) 

*) 


*) 

*) 

*) 


*) 

*) 

*) 


*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 


*) 

*) 

*) 
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(* . *) 

(*  POINTER  TO  CONSTITUENT  READ  BLOCK  BAU*) 

(* . *) 

(**) 

CRBPNTR  -  @T_CNST_RDBLK; 

(**) 

(* . *) 

(*  EACH  NDS  HAS  ONE  AND  ONLY  ONE  INTERNAL  ROOT.  *) 

(* . - . *) 


(**) 

T  INT_ROOT  -  RECORD 
ROOT  :  ENTKEY ; 

SCH_ROOT  :  ENTKEY; 

CNST  RDBLK  :  CRBPNTR; 

END; 

(**) 

(* . *) 

(*  DIRECTED  LIST  TYPE  FOR  MAINTAINING  DIRECTION  AND  POSITION  IN  LISTS*) 

(* . *) 

(**) 

LISTDIR  -  (FORWARD,  REVERSE); 

(**) 

DIRLST  -  RECORD 

LIST  :  LISTPNTR; 

POSITION  :  LISTPSTN; 

DIRECTION  :  LISTDIR; 

END; 

(**) 

(* .  . *) 

(*  CONSTITUENT  READ  BLOCK  FOR  MAINTAINING  "POSITION"  AND  "DIRECTION"  *) 


(*  IN  CONSTITUENT  LISTS  BAU*) 

(* . *) 

(**) 


CNST_RDB_ENTRY  -  RECORD 
ENT  :  ENTKEY; 

POSITION  :  LISTPSTN; 

DIRECTION  :  LISTDIR; 

END; 

(**) 

T_CNST_RDBLK  -  RECORD 

SIZE  :  RDBSIZE; 

CRBLNG  :  RDBSIZE; 

CNST  RDBLK.ARY  :  ARRAY ( .RDBSIZE. )  OF  CNST_RDB_ENTRY ; 

END; 

(**) 
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(* . 

(*  EACH  NOS  HAS  ONE  INTERNAL  ITEM  FOR  EACH  ENTBLOCK. 
* _ 


( 

(*  T  INT  ITEM  - 
RDBEXIST 
MAPROB 
MAPROB2 
USERS 
CNSTS 
ENPTR 

END; 

(**) 

T  INT_ITEM  - 
RDBEXIST 
MAPROB 
MAPROB2 
COLL_ADB 

USERS 
CNSTS 
ENPTR 


■*) 

*) 


(**) 
*. 


END; 


RECORD 
BOOLEAN 
BOOLEAN 
BOOLEAN; 
LISTPNTR; 
LISTPNTR; 
ENTPNTR; 


RECORD 
BOOLEAN 
BOOLEAN 
BOOLEAN 
ENTPNTR 


LISTPNTR; 

LISTPNTR; 

ENTPNTR; 


ADOED  04/23/85 
ADDED  12/03/85 


MAS  PROCESS  FLAG 
FOR  DELETE  EDS 


(*  ADDED  04/23/85 
(*  ADDED  12/03/85 
(*  ADDED  06/17/86 
(* 


MAS  PROCESS  FLAG  *) 
FOR  DELETE  EDS  *) 
FOR  DELETE  AND  *) 
AND  COMPRESS  BAU  *) 


( 

(*  THE  APPLICATION  LIST  IS  NOT  PART  OF  THE  NDS.  THERE  IS  ONE 
(*  APPLICATION  LIST  FOR  EACH  LIST  CREATED  BY  AN  APPLICATION. 

(*  SOME  NDS  UTILITIES  ALSO  CREATE  APPLICATION  LISTS. 

(* . 

(**) 

I 

(**) 


*) 

*) 

*) 

■*) 


DELFLG  -  (DEL,  NODEL) ; 


(*  ADDED  4/23/85  *) 


(**) 


T,APPL_LIST 
LIST 

POSITION 
DIRECTION 
DELTFLG 

END; 


RECORD 

LISTPNTR; 

LISTPSTN; 

LISTDIR; 

DELFLG; 


(*  ADDED  4/23/85  *) 


T_ENTITY  -  RECORD 
FORM  :  ENTITIES; 

CASE  ENTITIES  OF 
NIL.ENT  :  (); 
INT.ROOT  :  (IRT 
INT.ITEM  :  (I IT 
APPLJ.IST  :  (APL 


(**) 


END; 


T_INT_ROOT) ; 
T_INT_ITEM) ; 
T_APPL_LIST) ; 
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(* . 

(*  THE  SYSTEM  LIST  IS  A  VARIABLE  LENGTH  DYNAMICALLY  ALLOCATED 
(*  STRUCTURE  CONTAINING  A  LIST  OF  ENTITY  REFERENCES 

(* . 

(**) 

T  SYS.LIST  -  RECORD 
SIZE  :  LISTSIZE; 

LSTLNM  :  LISTSIZE; 

LIST  :  ARRAY (.LISTINDX.)  OF  ENTKEY; 

END; 

%PAGE 

(**) 

(* . 

(*  USER  OBJECTS 

(* . 

(**) 

TYPE 

ENTRANGE  -  RECORD 
LOW  :  ORD.KIND; 

HIGH  :  ORD  KIND; 

END; 

(**) 

NDS  *  RECORD 
KEY  :  ENTKEY; 

END; 

(**) 

LISTKEY  -  RECORD 
P  :  T_KEY ; 

END; 

(**) 

ANYKEY  -  RECORD 
CASE  INTEGER  OF 

0  :  (ENTK  :  ENTKEY); 

1  :  (LSTK  ;  LISTKEY); 

END; 


*) 

*) 

*) 

*) 


*) 

*) 

*) 


%PAGE 

TYPE 

(**) 

(* . 

(*  GLOBAL  VARIABLE  RECORD 

(* . 

(**) 

TJIDSGVM  -  RECORD 

LIST  OF_ROOTS  :  LISTPNTR; 

STACK  OF.LISTS  :  LISTPNTR;  (*  MAY  NOT  BE  NEEDED  IN  FUTURE 

(*  IF  LIST  PROCESSING  CHANGED. 

MODEL  HEAP  :  T_KEY ; 

END; 


*) 

*) 

*) 


*) 

*) 
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(* . BAU  6/13 . *) 

(**) 

NAMTYP  -  PACKED  ARRAY  (.1..6.)  OF  CHAR; 

%PRINT  ON 

(*  END  %INCLUDE  NDSDCL  *) 
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> 


^ ********************************************************************** ^ 
(*  SPCMGT  -  INCLUDE  FILE  TO  DEFINE  TYPES  FOR  SPACE  MANAGEMENT  PROCS  *) 

^ ********************************************************************** j 

%PRINT  OFF 
CONST 

XCB.SIZE  -  8; 

SCB.SIZE  -  16; 

TYPE 

XCBP  -  @XCB; 

$CBP  -  0SCB; 

XCB  -  RECORD 

FREE:  XCBP; 

SIZE:  INTEGER; 

END; 

SCB  -  RECORD 

NEXT:  SCBP ; 

BIGGEST:  INTEGER; 

FIRST:  XCB; 

END; 

MEMCONVS  -  RECORD 

CASE  INTEGER  OF 
0:  (I:  INTEGER); 

1:  ($:  SCBP); 

2:  (X:  XCBP); 

END; 

T_$PCMGR  *  RECORD 

SIZE:  INTEGER; 

PTR:  SCBP; 

END; 

%PRINT  ON 


I 
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| ************************************************** X ***^*************** J 

(*  PCMGT  -  INCLUDE  FILE  TO  DEFINE  TYPES  FOR  SPACE  MANAGEMENT  PROCS  *) 

|********************************************************************** j 

%PRINT  OFF 
CONST 

XCB_SIZE  -  8; 

$ C B_S I Z E  -  16; 

OSIZE  -  32368;  (*  16184  32368  8092  *) 

TYPE 

XCBP  -  0XCB; 

$CBP  -  @$CB; 

XCB  -  RECORD 

FREE:  XCBP; 

SIZE:  INTEGER; 

END; 

$CB  -  RECORD 

NEXT:  $CBP; 

BIGGEST:  INTEGER; 

FIRST:  XCB; 

END; 

MEMCONVS  »  RECORD 

CASE  INTEGER  OF 
0:  (I:  INTEGER); 

1:  ($:  SCBP) ; 

2:  (X:  XCBP); 

END; 

T_$PCMGR  *  RECORD 

SIZE:  INTEGER; 

PTR:  SCBP; 

OVERFLOW:  SCBP; 

OFLAG:  BOOLEAN; 

END; 

%PRINT  ON 
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(* . *) 

(*  (SCHDCL)  NETWORK  DATA  STRUCTURE  SCHEMA  TYPES  AND  CONSTANTS  *) 

(* .  . *) 

XINCLUDE  PRINTOFF 

(* . *) 

(*  MAS  VERSION  1  *) 

(*  NDS  SCHEMA  OBJECTS  *) 

(*  PACKAGE:  SCHEMA  PACKAGE.  *) 

(* .  *) 

(**) 

%INCLUDE  NDSDCL 
%INCLUDE  SCHTYP 
TYPE 

(* . *) 

(*  USER  DATA  CAN  BE  VIEWED  AS  ARRAY  OF  CHARACTERS  OR  INTEGERS.  *) 

(* . *) 

ENTDATA-RECORD 


CASE  INTEGER  OF 

0: (CHARS: PACKED  ARRAY (. ENTCHARINDX. )  OF  CHAR); 

1: ( INTS : ARRAY (.ENTINDX.)  OF  INTEGER);  2: (SCH_ROOTS:T_SCH_ROOT_ENT) ; 
3: (SCH_INSTS:T_SCH_INST_ENT) ; 

4: (SCH_CLS:T_SCH_CLS_ENT) ; 

END  (*  ENTDATA  *) ; 

%INCLUDE  ENTBLK; 

(**) 

%PRINT  ON 

(*  END  %INCLUDE  SCHDCL  *) 
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(* . 

(*  (SCHTYP)  NETWORK  DATA  STRUCTURE  SCHEMA  TYPES  AND  CONSTANTS 

(* .  . 

%INCLUDE  PRINTOFF 


(*" 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 

(**) 


MAS  VERSION  1 
NDS  SCHEMA  OBJECTS 
PACKAGE:  SCHEMA  PACKAGE. 

MAS  VERSION  2 
NDS  SCHEMA  OBJECTS 
PACKAGE:  SCHEMA  PACKAGE. 

CHANGED:  B.  A.  ULMER  (LJB)  DATE:  09/04/85 

REASON:  ADD  TWO  NEW  DELETE  RULES  (REQUIRES  USER(S)  TO  EXIST- 
REQUIRES  CONSTITUENT(S)  TO  EXIST) 

MAS  VERSION  3 
NDS  SCHEMA  OBJECTS 
PACKAGE:  SCHEMA  PACKAGE. 

CHANGED:  B.  A.  ULMER  DATE-:  06/18/86 

REASON:  CHANGE  STRUCTURE  OF  THE  SCHEMA  INSTANCE  COLLECTOR  SO  AS 
HANDLE  NEW  DELETE  AND  COMPRESS  RULES 


CONST 


(**) 

(* . 

(*  THE  SCHEMA  FAST  ARRAY  MUST  HAVE  A  FIXED  NUMBER  OF  ENTRIES  IN 
(*  PASCAL. 

(* . - . 

(**) 

MAX_SCH_FST_SIZE  «  1; 

(**) 

TYPE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 


(**) 

(* . *) 

(*  THE  SCHEMA  KIND  IS  ASSIGNED  THE  ORDINAL  OF  A  SCALAR  IN  SCH.KIND.  *) 

(* . . . *) 

(**) 

SCH  KIND= (N I L_SCH , SCH_ROOT , SCH_I NST , SCH_CLASS ) ; 

(**) 

(* .  *) 

(*  THE  SCHEMA  FAST  INDEX  IS  USED  FOR  INDEXING  INTO  THE  SCHEMA  FAST  *) 

(*  ACCESS  LIST.  *) 

(* . *) 

(**) 

SCH_FST_INDX  -  1 . .MAX_SCH_F$T_SIZE; 


(*  THE  SCHEMA  ROOT  IS  AN  INTERNAL  ITEM  IN  ENTITY  FORMAT  CONTAINING  *) 
(*  ’USER’  DATA  REQUIRED  TO  SEARCH  THE  ENTITIES  IN  THE  MODEL  BY  KIND.  *) 

(* . *) 

(**) 
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(* . 

(*  T  SCH  PSTN  ALLOWS  SEQUENTIAL  STYLE  ACCESS  OF  ENTIRE  SCHEMA  IN  THE 
(*  SAME  MANNER  AS  SEQUENTIAL  READ  OF  AN  APPLICATIONS  LIST.  CONTAINS 
(*  POSITION  OF  CURRENT  SCHEMA  INSTANCE  ENTITY  WITHIN  SCHEMA  AND 
(*  POSITION  OF  CURRENT  ENTITY  WITHIN  SCHEMA  INSTANCE  ENTITY. 

(* .  . 

(**) 

T  SCH  PSTN  -  RECORD 

SCH_PSTN  :  LISTPSTN; 

ENT_PSTN  :  LISTPSTN; 

END  (*  T_SCH_PSTN  *) ; 

(**) 

(* . 

(*  ARRAY  SIZES  IN  THE  SCHEMA_ROOT  DEFINE  THE  AREA  OCCUPIED  BY  THE 
(*  FAST  AND  STANDARD  ARRAYS  AND  THE  PORTION  OF  THAT  AREA  CONTAINING 
(*  VALID  DATA. 

(* . 

(**) 

TJCH_ARY_SIZES  -  RECORD 
FST_ARY_LEN  :  LISTSIZE; 

FST_ARY  USED.LEN  :  LISTSIZE; 

STD_ARY_LEN  :  LISTSIZE; 

STD_ARY_USED_LEN  :  LISTSIZE; 

END  (*  T_SCH_ARY  SIZES  *); 

(**) 

(* . 

(*  THE  FAST  ARRAY  IS  USED  FOR  A  PARTIAL  SEARCH  FOR  THOSE  KINDS 
(*  DETERMINED  TO  BE  ACCESSED  MORE  OFTEN  THAN  THE  USUAL  CASE. 

(* . 

(**) 

T_SCH_FST_ENTRY  *  RECORD 
KIND  :  ORD.KIND; 

STD_INDX  :  LISTINDX; 

END  (*  T_SCH_FST_ENTRY  *); 

T_SCH_FST_ARY  *  ARRAY  (.SCH  FST.INDX.)  OF  T_SCH_FST_ENTRY; 

(**) 

(* .  . 

(*  THE  STANDARD  ARRAY  CONTAINS  EACH  KIND  IN  THE  SAME  SEQUENCE  AS  ITS 
(*  CORRESPONDING  SCHEMA  APPEARS  IN  THE  CONSTITUENT  LIST  OF  THE 
(*  SCHEMA_ROOT. 

(* . 

(**) 

T_SCH_STD_ENTRY  =  RECORD 
KIND  :  ORD_KIND; 

END  (*  T_SCH_STD_ENTRY  *); 

T_SCH_STD_ARY  =  ARRAY  (.LISTINDX.)  OF  T_SCH_STD_ENTRY ; 

(**) 


*) 

*) 

*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 

*) 
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(* . 

(*  THE  SCHEMA_ROOT_ENT  MAY  BE  HANDLED  AS  ANY  OTHER  ENTDATA  BY 
(*  ROUTINES  USING  THE  STANDARD  DEFINITION  OF  ENTDATA. 

(* . 

(**) 

T  SCH.ROOT  ENT  -  RECORD 
POSITION  :  T_SCH_PSTN ; 

ARY.SIZES  :  T  SCH_ARY_SIZES; 

FST_ARY  :  T_SCH_FST_ARY ; 

STD_ARY  :  T  SCH_STD_ARY ; 

END  (*  T_SCH_ROOT_ENT  *); 

SCHRPNTR  -  @T_SCH_ROOT_ENT ; 

(**) 

(* . 

(*  THE  SCHEMA_INST_ENT  MAY  BE  HANDLED  AS  ANY  OTHER  ENTDATA  BY 
(*  ROUTINES  USING  THE  STANDARD  DEFINITION  OF  ENTDATA. 

(* .  . 

(* 

T_SCH_INST_ENT  -  RECORD 
KIND  :  ORD_KIND; 

POSITION  :  LISTPSTN; 

RULE_DEP  :  BOOLEAN; 

RULE.STRNGTH  :  BOOLEAN; 

RULE_REQ_USER  :  BOOLEAN; 

RULE_REQ_CNST  :  BOOLEAN; 

END;  T_SCH_INST_ENT 

SCHIPNTR  *  @T_SCH_INST_ENT ;  *) 

(**) 

T_SCH_INST_ENT  =  RECORD 
KIND  ;  ORD  KIND; 

POSITION  :  LISTPSTN; 

NUM_GROUP  :  LISTPSTN; 

MIN.CNST  :  LISTPSTN; 

GROUP  :  T_GROUP_ARRAY ; 

END  (*  T_SCH_INST_ENT  *) ; 

SCHIPNTR  -  @T_SCH_INST  ENT; 

(**) 

(* .  .  . 

(*  THE  SCHEMA_CLS_ENT  MAY  BE  HANDLED  AS  ANY  OTHER  ENTDATA  BY 
(*  ROUTINES  USING  THE  STANDARD  DEFINITION  OF  ENTDATA. 

(* . 

(**) 

T  SCH_CLS_ENT  *  RECORD 
POSITION  :  LISTPSTN; 

KIND  :  ORD_KIND; 

END  (*  T_SCH_CLS_ENT  *}; 

SCHCPNTR  =  @T_SCH_CLS_ENT ; 

(**) 


*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 


LJB  BAU 
LJB  BAU 


*) 

*) 

*) 

*) 
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CONST 

(**) 

SCH  I N_M I N  SIZE  -  SIZEOF  (T_SCH_INST_ENT) ; 

SCH.CL  MIN  SIZE  -  SIZEOF  (T_SCH_CLS_ENT) ; 

(**) 

(* . 

(*  THE  SCHEMA  ROOT  CONTAINS  A  USER  DATA  BLOCK  WHOSE  SIZE  DEPENDS 
(*  UPON  THE  NUMBER  OF  KINDS  MODELED  IN  THE  CURRENT  SCHEMA.  ITS 
(*  MINIMUM  SIZE  IS  THE  SIZE  OF  THE  STATIC  FIELDS  PLUS  THE  MINUMUM 
(*  SIZE  OF  EACH  DYNAMIC  FIELD.  ITS  MAXIMUM  SIZE  IS  THE  SIZE  OF  THE 
(*  STATIC  FIELDS  PLUS  THE  MAXIMUM  SIZE  OF  EACH  DYNMAIC  FIELD 

(* . - . 

(**) 

SCH_RT  MIN_SIZE*SIZEOF(T_SCH_ROOT_ENT)-SIZEOF(T_SCH  STD_ARY) ; 
SCH_RT_MAX  SIZE=SIZEOF(T_SCH_ROOT_ENT) ; 

(**) 

(* . 

(*  MAX  NUMBER  OF  T  SCH_INST_ENT  THAT  A  T  SCH_CLASS_ENT  CAN  COLLECT 

(* . T . 

CONST 

MAX_NUM_KIND=50; 

TYPE 

KIND_ARRAY*ARRAY ( . 1 . .MAX_NUM  KIND.)  OF  ORD  KIND; 

%PRINT  ON 

(*  END  %INCLUDE  SCHTYP  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 


*) 

*) 

*) 
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%PAGE 

(*  (TVERIFY)  VERIFY  COMMON  TYPE.  *) 
^INCLUDE  PRINTOFF 

(* . 

(*  MAS  VERSION  1 

(* . 

(**) 

TYPE 

VERIFY.COMMON-RECORD 
UPDATE  .-BOOLEAN; 

CREATE: BOOLEAN; 

GET: BOOLEAN; 

CONNECT: BOOLEAN; 

DELETE: BOOLEAN; 

END; 

%PRINT  ON 

(*  END  %INCLUDE  TVERIFY  *) 


*) 

*) 

*) 
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APPENDIX  G 

PDDI  DATA  DICTIONARY  (SCHEMA! 


This  appendix  provides  a  data  dictionary  for  the  PDDI  software.  This  data 
dictionary  is  a  listing  of  the  entities  and  attributes  in  the  PDDI  Schema.  The 
schema  provides  the  complete  and  logical  view  of  all  the  data  in  PDDI. 

An  entity  is  a  collection  of  related  attributes  treated  as  a  unit.  The 
tables  on  the  following  pages  are  listed  by  entity.  The  entity  is  the  first 
line  in  the  table.  All  other  entries  in  the  table  are  attributes  of  the 
entity. 


Mapping  into  the  Working  Form  using  the  PDDI  Data  Dictionary  G-2 
Entity  Type  Codes  G-26 
Data  Dictionary  -  G-31 


G-l 


PS  560130000A 
1  January  1987 

UNDERSTANDING  AND  MAPPING 
INTO  THE  WORKING  FORM  MODEL 

Page 

Overview . G-3 

Mapping  Conceptual  Schema  Entities  To  Physical  Entities . G-4 

CS  to  ADB . G-4 

CS  to  CL . G-6 

CS  Structures  to  Subentities . G-8 

Mapping  Into  The  Working  Form  Using  the  Pascal  Include  FILES  .  G- 10 

Kind  Constants . G-ll 

Entity  Declarations  (ADB)  .  G- 12 

Entity  Declaration  (ADB/CL)  .  G- 13 

Key  Declarations  (CL) . * . G- 14 

Class  Declarations . G-15 

Category  Declaration . G- 16 

Mapping  Into  the  Working  Form  Using  the  PDDI  Data  Dictionary  .  G- 17 

Attribute  Records . G- 17 

First  Record . G- 18 

2nd  Through  n  Records . G- 18 


G-2 


PS  560130000A 
1  January  1987 


UNDERSTANDING  AND  MAPPING 
INTO  THE 

WORKING  FORM  MODEL 


OVERVIEW 

This  document  explains  the  conversion  of  PDDI  Conceptual  Schema  entities 
into  Work  Form  entities  and  two  methods  for  mapping  into  these  Working  Form 
entities.  The  Working  Form  is  a  computer  memory  resident  network  created  by 
the  PDDI  access  software.  An  entity  is  comprised  of  a  User  List  (UL),  a 
Constituent  List  (CL)  and  a  Attribute  Data  Block  (ADB)  as  illustrated  below. 


UL 

Key  a 
Key  b 

Key  z 


ENTITY  "X" 


CL 

ADB 

Key  e 

bytebytebytebytebytebytebytebyte 

Key  f 

bytebytebytebytebytebytebytebyte 

• 

bytebytebytebytebytebytebytebyte 

bytebytebytebytebytebytebytebyte 

Key  m 

bytebytebytebytebytebytebytebyte 
byte . byte 

The  UL  is  a  list  of  entities  keys  that  reference  Entity  "X".  This  list  is 
automatically  generated  by  the  access  software.  The  CL  is  a  list  of  entities 
keys  th«t  Entity  "X"  references.  The  ADB  is  a  sequence  of  data  bytes  that 
describe  the  entity. 
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This  section  presents  the  details  on  mapping  the  data  documented  in  the 
"PDDI  Conceptual  Schema"  into  physical  entities  residing  in  the  PDDI  working 
form. 


Generally  Conceptual  Schema  (CS)  attributes  that  are  defined  as  INTEGER, 
REAL,  STRING,  LOGICAL,  or,  ENUMERATION  will  reside  in  the  ADB  of  the  working 
form  entity.  Attributes  that  are  defined  as  POINTER  will  reside  as  references 
in  the  Constituent  List  (CL)  of  the  working  form  entity. 

Mapping  rules  describe  how  CS  attributes  are  mapped  into  the  ADB  of  an 
entity  and  into  the  CL  of  an  entity.  These  specific  rules  are  as  follows: 


CS  TO  ADB 


INITIAL  ADB  INFORMATION  -  The  first  24  bytes  of  the  ADB  must  contain  the  same 
type  information.  This  is: 


1) 


2) 

3) 

4) 

5) 

6) 


KIND  -  A  four  byte  integer  specifying  the  entity  type. 

For  example  KIND  *  4001  implies  this  entity  is  a  "POINT", 

KIND  -  8003  implies  this  entity  is  a  "LOOP" 

LENGTH  -  A  four  byte  integer  specifying  the  length  in  bytes  of  the  ADB. 
SYSUSE  -  A  four  byte  integer  used  by  the  access  software. 

VERSION  -  A  four  byte  integer  used  to  indicate  the  version  of  the  entity. 
SYSIDENT  -  A  four  byte  integer  used  as  an  Access  Software  identification 
number 

IDENT  -  A  four  byte  integer  used  to  differentiate  this  instance  from  all 
other  instances  of  the  entity  KIND. 


Only  the  IDENT  attribute  is  listed  in  the  CS.  If  the  CS  entity  is  defined 
as  containing  "DISPLAY"  data  then  that  DISPLAY  data  will  collow  the  IDENT 
attribute  in  the  ADB. 
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SUBSEQUENT  ADB  INFORMATION  -  The  mapping  of  attributes  from  the  CS  to  the  ADB 
from  this  point  on  is  not  a  direct  mapping.  The  remaining  CS  attributes  to  be 
put  in  the  ADB,  reside  at  a  position  in  the  ADB  that  provides  optimal  use  of 
space.  The  mapping  rules  to  determine  a  CS's  attribute  location  in  the  ADB  are 
as  follows: 

-  Attributes  that  must  reside  on  double  word  boundaries  (8  byte  REALS)  are 
first. 

-  Attributes  that  must  reside  on  single  word  boundaries  (4  byte  REALS,  and  4 
byte  INTEGERS)  are  second. 

-  Attributes  that  must  reside  on  half  word  boundaries  (2  byte  INTEGERS)  are 
third. 

-  Attributes  that  must  reside  on  one  byte  boundaries  (1  byte  INTEGERS, 
LOGICALS,  ENUMERATIONS,  and  STRINGS)  are  fourth. 

An  example  of  the  mapping  of  CS  attributes  to  ADB  is  illustrated  below. 


PARALLELISM  «  ENTITY(9011) ; 


IDENT 

DISPLAY 

TOLERANCED_ENTITY 


CYLIN  TOL.ZONE 
TOLERANCE 
MAIL_C0ND 
PRIMARY 
END_ENTITY; 


KEY  T_IDENT; 
T_DISPLAY ; 

ARRAY  (i  to  *)  OF 
FEATURE,  FACE, 

EDGE,  GEOMETRY; 
LOGICAL; 

REAL  PRECISION  (6); 
(N,  M,  L,  S); 
DATUM_FRAME; 


T  DISPLAY  = 
STRUCTURE; 
DISPLAYED 
RBG  LEVEL 


INTENSITY 
SYMBOL  : 


END.STRUCTURE; 


LOGICAL; 

ARRAY (3)  OF 
INTEGER  VALUES 
(0  TO  255); 
INTEGER  VALUE 
(0  to  255); 
INTEGER  VALUE 
(0  to  255); 


UL 

PARALLELISM(  ) 

CL 

1)  TOLERANCED  ENTITY 

2)  PRIMARY 

^•TinTin.Tin.Tirai.Tin.lWJ.l'A'iJ.MJ^M 

mm  mu— ■■■■ii ii ii  ■■«■[ 

SYS  IDENT  IDENT 

| bvtebvtebvtebvte 1 bvtebvtebvtebvte 1 

DSP  RBG  LEVEL  INT  SYM 
| bvte 1 bvtebvtebvte 1 bvte 1 bvte 1 bvtebvte 
TOLERANCE  CTZ  MC 

| bvtebvtebvtebvte 1 bvte 1 bvte i 
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CS  TO  CL 

As  previously  mentioned  CS  attributes  that  are  defined  as  POINTER  reside 
as  references  in  the  CL.  Attributes  that  are  defined  as  "ARRAY  OF  POINTERS" 
may  not  reside  in  the  subject  entities  CL  as  references.  They  are  defined  in 
the  working  form  as  follows: 

ARRAY  OF  POINTERS  -  If  an  attribute  in  the  CS  is  defined  as  an  ARRAY  OF 
POINTERS  then  all  of  the  entities  to  be  referenced  are  referenced  in  a  "ARRAY" 
entity.  This  ARRAY  entity  is  referenced  in  the  CL  of  the  subject  entity.  An 
ARRAY  entity  contains  at  least  one  constituent  and  inherits  the  properties  of 
its  parent  entity.  It  is  identified  by  the  unique  kind,  1100.  The  ARRAY 
entity  is  needed  to  ensure  that  the  CL  of  all  entities  is  a  fixed  length.  The 
programming  procedures  used  in  creating,  querying,  and  manipulating  entities  in 
the  working  form  are  standard  since  all  entities  have  a  fixed  length. 

OPTIONAL  POINTERS  -  If  an  attribute  in  the  CS  is  defined  as  an  OPTIONAL  POINTER 
then  the  entity  that  is  to  be  referenced  in  the -CL  is  a  "NIL"  entity.  A  NIL 
entity  has  no  constituents  and  is  identified  by  the  unique  kind,  1307.  The  NIL 
entity  was  created  to  ensure  that  the  CL  of  all  entities  is  a  fixed  length. 

See  example  of  the  mapping  of  CS  attributes  to  CL  illustrated  on  Page  G-6. 
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MAPPING  CS  ATTRIBUTES  TO  CL 


CS  Listing  for  the  Entity  Face 

FACE  •  ENTITY  (MM)  ; 

I SENT  :  KEY  T.ISENT: 

BISPLAY  :  T.BISPLAY: 

SRFREF  =  SURFACESi 
REVERSED  :  LOGICAL; 

PER I PH  :  LOOP; 

CUTOUT  :  ARRAY <•  to  •)  OF  LOOP; 
END.ENTITY; 

WF  Illustration  for  the  Entity  Face 


I  UL  I 

I  ~  I 


I  I 

I  FACE(t)  I 
I  I 


I  CL  I  I  AOB  I 
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CS  STRUCTURES  TO  SUBENTITIES 

A  third  CS  construct  is  the  STRUCTURE.  The  STRUCTURE  is  an  unordered 
hetergenous  collection  of  arbitrary  attributes.  The  CS  STRUCTURE  may  be 
contained  in  the  entity  of  the  working  form  in  one  of  three  ways.  If  the 
STRUCTURE  in  the  CS  contains: 

1)  Only  DATA  (INTEGER,  REAL,  STRING,  LOGICAL,  ENUMERATION)  attributes,  then 
those  attributes  will  reside  in  the  ADB  of  the  entity  referencing  the 
structure. 

2)  Only  POINTER  attributes,  then  those  attributes  will  reside  in  the  CL  of 
the  entity  referencing  the  structure. 

3)  DATA  and  POINTER  attributes,  then  a  SUBENTITY  is  created  that  contains  all 

the  attributes  defined  in  that  STRUCTURE.  This  SUBENTITY  is  referenced  as 
the  last  constituent  in  the  CL  of  the  subject  entity.  STRUCTURE  is  used 
in  the  CS  to  indicate  that  a  relationship  exists  between  some  subset  of 
attributes  within  the  entity.  Since  (1)  the  CS  DATA  attributes  are  mapped 
into  the  ADB  of  the  working  form  entity  and*  (2)  the  CS  POINTER  attributes 
are  mapped  into  the  CL  of  the  working  form  entity,  the  subject  working 
form  entity  has  no  means  of  maintaining  the  relationship  defined  by  the  CS 
STRUCTURE  construct.  Therefore,  in  order  to  maintain  this  relationship  in 
the  working  form,  a  SUBENTITY  is  generated  that  contains  only  the  ADB  and 
CL  attributes  that  the  CS  STRUCTURE  defined.  This  newly  created  entity 
becomes  a  reference  in  the  CL  of  the  subject  entity.  ^ 

An  example  of  this  is  illustrated  below. 

CS  Listing  for  the  Entity  -  Loop 

LOOP  -  ENTITY (8003) ; 

IDENT  :  KEY  T  IDENT: 

DISPLAY  :  T.DISPLAY: 

EDGES  :  ARRAY (2  to  *)  of 
STRUCTURE 
EDGREF  :  EDGE; 

REVERSE  :  LOGICAL; 

END_STRUCTURE; 


END_ENTITY; 
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ttf.  Illustration  for  the  Entity  LOOP 


I  UL  I 

I  —  I 


I  I 

I  LOOP ( • )  I 
I  I 


I  CL  t 

I  —  I 

.1  1>  EBGREF  I 


I  EDCE(t)  | 


ABB 


I 


KIND 


iEUilL 


I  Iby  tbby  tbt>yt«byt«feyf  by  t»6yttay  td 

|  SYSUSE  VERSION 

I  brttfimD/ttfiytitrtKfirtiflrtm.tij 

I  SYS-  IPENT _ IPENT 

I  byfbyttbyf by  t«fey  ttbyttbyffly  td 

I  REV 
I  f* 


n  ft 
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MAPPING  THE  PDOI  PASCAL  INCLUDE  FILES  INTO  THE  WORKING  FORM 

This  section  details  the  access  to  the  Working  Form  Entity  by  the  PDDI 
PASCAL  INCLUDE  FILES.  It  consists  of  five  parts. 

1)  Kind  Constants  -  Identifying  integers  assigned  to  each  entity  type  in  the 
schema. 

2)  Entity  Declarations  -  Mapping  of  ADB  and  Constituent  List  data  of  the 
Working  Form  entity. 

3)  Key  Declarations  -  A  special  technique  of  mapping  Constituent  List  data  of 
the  Working  Form  entity. 

4)  Class  Declarations  -  An  enumeration  of  entities  by  Class. 

5)  Category  Constants  -  An  enumeration  of  all  the  entities  in  the  schema. 
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KIND  CONSTANTS 


1C 


THE  KINO  CONS  JAM  j  A ki  • 


NEK 


CONST 

Ajk«»r  _ 
A_StCNfNT 
KlEOCES  _ 
kIQatun.fr  a* 

kIhaiVrI'cSSInM 

SiliSfcfW1 

K.BfeNO  . 
K.PJCK_Tl 

5:1?}?^ 

BgF«* 

iCcnQK _ 

Orcciga  . 

K.MATAJ 
KlPOtNT  VKTOt 

SrgMSf  - 


KEN 


5kP?naTI 


3CCU 

30021 


3007] 

A  >01 1 


0  GIVEN  AN  ADB  THE  "KIND  CONSTANTS"  ARE 
USED  TO  IDENTIFY  THE  TYPE  OF  ENTITY. 


0  USING  CONSTANT  NAMES  INSTEAD  OF  KIND 
NUMBERS  WILL  PREVENT  CODE  CHANGES  IF 
KIND  NUMBERS  CHANGE. 


■JUII  "»*■**■*•  •1*0011 


G-ll 
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ENTITY  DECLARATIONS  (APB) 


0  THIS  SECTION  MARKS  THE  BEGINNING  OF 
THE  ATTRIBUTE  DATA  BLOCK  (ADB) 
DECLARATIONS. 

0  "  "  ALLOWS  SPACE  TO  BE  DYNAMICALLY 
ALLOCATED  AND  RELEASED. 

-  EXAMPLE: 

VAR 

ADB  :  ENT_PTR; 

BEGIN; 

MARK-; 

NEW  (ADB); 

RELEASE; 

END; 

0  FIXED  PART  OF  ADB  ^ 

-  KIND,  LENGTH,  SYSUSE, 

VERSION,  SYS_IDENT,  IDENT 

-  TO  ACCESS  THIS  DATA 

ADB. KIND  =  THE  ENTITY  KIND 
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ENTITY  DECLARATION  f ADB/CL1 


0  E_FACE  IS  THE  RECORD  CORRESPONDING  TO 
THE  VARIANT  PART  OF  THE  FACE  ADB. 


-  TO  ACCESS  THE  REVERSE  FLAG  OF  FACE 
ADB. FACE. REVERSE 


MU 


iiTHaa" 


0  C _ FACE  AND  KEY _ T _ FACE  ARE  TWO 

DIFFERENT  WAYS  TO  ACCESS  THE 
CONSTITUENT  LIST  OF  THE  FACE  ENTITY. 


yffl'aOrt 

hiim  i^7joilT  Ti%o 
coo*0" 


COTWI  l. 


I  anas  i 
anas  • 

<•  muii.Im«.i  op  Mtaiaai  t 


0  C_FACE: 

-  TO  ACCESS  THE  SRFREF  KEY  OF  FACE 


&2a. 


C_T_MCS(  I.  I.  SOI 


tanas  • 

■anas  * 

»•  Mauri.*.. •. i  *  mafias  • 


!SU 


p«i 


MALGTK(FACE_KEY , C.FACE , SRFREF , 
SRFREF_KEY, IRC) 

-  TO  ACCESS  THE  ADB  OF  : SRFREF 
MAEGTK ( SRFREF_KEY , ADB , IRC) 


G- 13 
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KEY  DECLARATIONS  (Cl) 


0 


1SISI2LSS5SS5I52I 

mi«  •  wmai 


JS3BBWT  i  dm€ 


t 

I 


■anur 


KEY_T_FACE: 

VAR 

CL.KEY  :  KEYBLOCK; 

-  TO  ACCESS  THE  SRFREF  KEY  OF  FACE 

MALGET(FACE_KEY,CL_KEY, IRC) 

-  TO  ACCESS  THE  ADB  OF  SRFREF 

MAEGTK (CL_KEY , FACE , SRFREF , ADB , I RC ) 


G  - 1 4 


PS  560130000A 
1  January  1987 


CLASS  DECLARATIONS 


l£5555S5Hg!53 


LISTS  ALL  THE  ENTITY  KINDS  IN  A  CLASS 
-  CLS_QUASI_GEOM_CLASS( . 2 . )  -  3002 
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CATEGORY  CONSTANTS  DECLARATIONS 


innHsnsnsnisz:! 


SCrjMLiitinjiMi  • 
BCWmitum  •  <u.t, 


U  !••  ftft  •)  • 
injuMi 


Su!unituwn  •  nun.  w.ui  .1 
•[injuM  •  MUjMinjnm 


ivnuu 


0  LISTS  ALL  THE  SUBENTITY  AND  ENTITY  KINDS 

-  ALL_SUB_ENTITY_KINDS( . 1 . )  - 

THE  NUMBER  OF  SUBENTITIES  IN  THE 
ARRAY 

-  ALL_SUB_ENTITY_KINDS( .2. )  =*  1201; 
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MAPPING  INTO  THE  WORKING  FORM 
USING  THE  PDDI  DATA  DICTIONARY 

Pascal  Include  Files  are  the  primary  method  for  accessing  the  data  in  the 
PDDI  entities.  The  Data  Dictionary  shows  the  way  Pascal  stores  this  data  in 
the  entity.  It  is  intended  to  be  used  by  FORTRAN  and  Assembler  applications  to 
access  the  data. 

The  data  dictionary  is  a  set  of  entity  definitions  where  each  entity  is 
defined  in  a  different  member  of  an  IBM  partitioned  dataset.  An  entity 
definition,  therefore  each  member  of  the  dataset,  is  accessed  by  "dataset. name 
(#entityjcind_number)" .  In  this  way,  only  the  entity  kind  number  is  needed  to 
access  its  corresponding  entity  definition. 

An  example  of  an  entity  definition  is  illustrated  below. 


1st  rec 

IMPL  B  HOLE 

,  1204,12,1 

2nd  rec 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

t 

IDENT 

,  6,1, 

0,1, 

4, 

20 

h 

DIAMETER 

,  9,1, 

0,2, 

4, 

24 

r 

PARM 

,12,1, 

0,2, 

4, 

28 

0 

HOLE  TYPE 

,11,1, 

0,5, 

1, 

32 

u 

X 

3, CONE 

,BULL 

,BALL 

9 

LOCATE 

,  7,1, 

0,7, 

4, 

1 

h 

X 

1,  4000 

AXIS 

,  8,1, 

0,7, 

4, 

2 

X 

1,  3002 

BOTTOM 

,10,1, 

0,7, 

4, 

3 

X 

1,  4000 

ENTRY 

,13,1, 

1,7, 

4, 

4 

X 

1,  8004 

nth  rec 

A 

1,254 

ATTRIBUTE  RECORDS 

The 

definition  of  an 

entity 

is  comprised  of  many  attribute  records 

the  exception  of  the  first  record,  each  record  defines  an  attribute  or  part  of 
an  attribute  within  the  entity. 
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FIRST  RECORD 

The  first  record  of  the  entity  definition  contains  four  (4)  pieces  of 
information  about  the  entity.  Below  is  an  example  of  this  record. 

(1)  (2)  (3)  (4) 

IMPL_B_HOLE  ,1204,  13,  1 

(1)  ENTITY  NAME  field  (16  character  alpha) 

(2)  ENTITY  KIND  field 

(3)  NUMBER  OF  ATTRIBUTES  FIELD  (2  character  numeric) 

(4)  DELETABILITY  STATUS  field  (1  character)  0  or  1 

-  Zero  (0)  implies  this  entity  is  independent.  This  entity  does  not 
require  a  parent  entity  to  exist  and  can  be  deleted  at  any  time. 

-  One  (1)  implies  this  entity  is  dependent.  This  entity  requires  a 
parent  entity  to  exist  and  cannot  be  deleted  if  its  parent  is 
present. 

SECOND  -  n  RECORDS 

The  second  through  n  records  of  an  entity  definition  contains  thl 
definition  of  each  attribute  within  the  entity.  The  different  definition 
fields  contained  in  each  of  these  records  are  as  follows: 


(1)  (2)  (3) (4) (5) (6) (7)  (8) 

A,  DIAMETER  ,  9,1,  0,2,  4,  24 


(1)  CONTINUATION  FLAG  field  (1  character  alpha  A,  B,  E,  or  X) 

-  A  letter  signifying  additional  data  about  an  attribute  is  contained 
on  this  line.  There  are  four  possible  continuation  flags. 

"X"  -  Marks  a  continuation  line  that  defines  additional  data  for 
SCALAR,  SUBENTITY,  and  POINTER  data  types. 

"B"  and  "E"  -  Respectively  marks  a  continuation  line  that  defines 
the  beginning  and  end  of  a  group  of  attributes  that  are  defined  as 
a  structure. 
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"A"  -  Marks  a  continuation  line  that  defines  the  array  bounds  for 
the  previously  defined  attribute.  An  attribute  can  be  defined  in 
terms  of  1-n  dimensional  array.  An  example  of  the  representation 
of  a  3  dimensional  array,  of  ADB  information,  is  as  follows. 

Line  1  ->  DIAMETER  ,  9,1,  3,2  4,  24 

Line  2  ->  A  1,  2,1,  3,1,  4 

This  example  defines  a  3  dimensional  array  that  is  then  defined 
as. . . 

1)  REALM  DIAMETER(4,3,2)  for  "FORTRAN"  and 

2)  DIAMETER  :  ARRAY ( . 1 . . 2 . )  OF 

ARRAY ( . 1 . . 3 . )  OF 

ARRAY ( . 1 . .4. )  OF  SHORTREAL  for  "PASCAL" 

An  attribute  can  be  defined  in  terms  of  1-n  dimensional  array.  An  example 
of  the  representation  of  a  (3)  three  dimensional  array  of  ADB  information  is  as 
follows: 


DIAMETER  ,9,  1,  3,  2,  4,  24 

A  1,  2,  1,  -3,  1,  4 

The  location  of  data  in  storage  for  an  ARRAY  attribute  is  identical  to 
Pascal  stores  arrays.  For  multidimensional  arrays  data  is  stored  so  that  the 
Depth  index  is  exhausted  first,  the  Col  index  is  exhausted  second,  and  the  Row 
index  is  exhausted  last. 

The  REAL  type  data  corresponding  to  this  DIAMETER  attribute  would  reside  in  the 
ADB  as  shown  below. 


(col ,dep) 


SDlacement 

Pascal  Index 

Fortran  Index 

24 

(M,l) 

(1,1,1) 

28 

(1,1,2) 

(2,1,1) 

32 

(1,1,3) 

(3,1,1) 

36 

(1,1,4) 

(4,1,1) 

40 

(1,2,1) 

(1,2,1) 

44 

(1,2,2) 

(2,2,1) 

48 

(1,2,3) 

(3,2,1) 

52 

(1,2,4) 

(4,2,1) 

56 

(1,3,1) 

(1,3,1) 

68 

(1,3,4) 

(4,3,1) 

72 

(2,1,1) 

(1,1,2) 

76 

(2,1,2) 

(2,1,2) 

80 

(2,1,3) 

(3,1,2) 

84 

(2,1,4) 

(4,1,2) 

88 

(2,2,1) 

(1,2,2) 
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(row, col ,dep)  120 


(2,3,4)  (4,3,2) 


Arrays  for  attributes  that  reside  in  the  CL  are  stored  in  ARRAY  entities.  The 
example  below  was  taken  from  the  definition  of  the  RB_SPLINE  entity. 


Line  1  »>  CONTROL  ,14,2,  1,7,  4,  1 

Line  2  ->  X  2,  4000,  3001 
Line  3  »>  A  2,  30 


(1)  (2)  (3) (4) (5) (6) (7)  (8) 

A,  DIAMETER  ,  9,1,  0,2,  4,  24 


(2)  ATTRIBUTE  NAME  field  (16  character  alpha) 

The  name  of  the  attribute  entity. 

(3)  CONCEPTUAL  SCHEMA  ORDER  field  (2  digit  numeric) 

-  This  field  indicates  the  order  of  this  attribute  in  the  formal 
specification  of  this  entity.  It  is  this  published  conceptual 

schema  order  (CS  order)  that  the  entity  attributes  will  follow  in 
the  Exchange  Format  file. 
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(1)  (2)  (3) (4) (5) (6) (7)  (8) 

A,  DIAMETER  ,  9,1,  0,2,  4,  24 


(4)  MINIMUM  OCCURRENCES  field  (1  digit  numeric) 

-  An  integer  number  signifying  the  minimum  amount  of  data  that  can  be 
stored  for  this  attribute  in  increments  of  size. 

A  zero  (0)  for  this  field  implies  that  this  attribute  is  optional. 
The  type  code  (1-6)  signifies  that  this  attribute  is  ADB  type  data, 
zeros  (0)  or  blank  (  )  may  be  stored.  The  type  code  (7  or  8) 
signifies  that  this  is  CL  type  data,  the  entity  reference  in  the  CL 
may  point  to  a  NIL  entity. 

(5)  ARRAY  DIMENSION  field  (2  digit  numeric)  - 

An  integer  number  signifying  the  dimension  of  the  array  of  ADB  or  CL 
data.  Zero  (0)  implies  only  one  instance  of  data. 

(6)  TYPE  CODE  field  (integer  number  between  1  and  9) 

-  The  TYPE  CODE  field  signifies  the  type  of  data  this  attribute 
contains  and  what  part  of  the  entity  it  resides  in,  either  the  ADB 
or  CL.  The  types  are; 


l-> 

INTEGER 

2«> 

REAL 

3=> 

CHARACTER 

4»> 

LOGICAL 

5«> 

SCALAR 

6-> 

SET 

7-> 

POINTER 

8-> 

SUBENTITY 

9«> 

STRUCTURE 

-  Data  types  1  through  6  reside  in  the  ADB  of  the  entity. 

Data  types  7  and  8  reside  in  the  CL  of  the  entity. 

Data  type  9  is  a  special  type  that  gives  location  information  about 
the  attributes  it  encompasses. 
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(6)  TYPE  CODE  field  (Cont.) 

-  Below  is  a  detailed  explanation  of  each  of  the  data  types; 

1  -  INTEGER 

A  1,  2,  or  4  byte  integer. 

Resides  on  a  single  byte  boundary,  double  byte  boundary  or  a  full 
word  boundary.  The  example  below  was  taken  from  the  definition 
of  the  entity  IMPL_B_HOLE. 

KIND  ,1,  1,  1,  1,1,  4,  0 

2  -  REAL 

A  4  or  8  byte  real . 

Resides  on  a  full  word  boundary  or  a  double  word  boundary.  The 
example  below  was  taken  from  the  definition  of  the  entity  IMPL_B 
HOLE. 

DIAMETER  ,1,  1,  1,  1,2,  4,  24 

3  -  CHARACTER 

The  character  resides  in  1  byte  of  storage  and  the  SIZE  field 
signifies  how  many  characters  are  present.  No  boundary 
alignment.  The  example  below  was  taken  from  the  definition  of 
the  entity  DETAIL_MODEL.  1 

FSCM.CODE  ,1,  1,  1,  1,3,  5,  55 

4  -  LOGICAL 

A  1  byte  integer  such  that  0  -  >  FALSE  and  1  *  >  TRUE. 

No  boundary  alignment.  The  example  below  was  taken  from  the 
definition  of  the  entity  P0INT_VECT0R. 

DISPLAYED  ,1,  1,  1,  1,4,  1,  24 

5  -  SCALAR 

A  1  byte  integer  (1  ~  256)  that  indexes  to  the  scalar  stored. 
The  scalar  names  are  enumerated  latter  in  the  attribute  record. 
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(6)  TYPE  CODE  field  (Cont.) 

See  example  below.  No  boundary  alignment. 


MATL.COND 

,1, 

1, 

1, 

1,5, 

1, 

24, 

4,N,M, 

i-, 

S 

n 

m 

r 

c 

d  t 

s 

a 

n 

s 

s 

s 

s 

a 

i 

0 

0 

e  y 

i 

d 

u 

c 

c 

c 

c 

m 

n 

w 

1 

P  P 

z 

b 

m 

1 

1 

1 

1 

e 

t  e 

e 

r 

r 

r 

r 

h 

d 

s 

i 

c 

n 

n 

n 

n 

s 

1 

a 

a 

a 

a 

P 

r 

m 

m 

m 

m 

s 

1 

2 

3 

4 

If  "M"  was  the  scalar  to  be  represented,  a  2  would  be  at  the  24th 
byte  in  the  ADB. 

6  -  SET 

Not  incorporated. 

7  -  POINTER 

Attributes  of  this  type  signify  that  a  reference  resides  in  the 
CL.  The  kinds  of  entities  that  this  attribute  can  reference  are 
enumerated  latter  in  the  attribute  record.  The  example  below  was 
taken  from  the  definition  of  the  entity  CIRCULAR_RUNOUT. 

TOLERANCE_ENTITY, 1,254,  1,  1,7,  4,  0,  1,  4,11000,  8004,  8002,  2000 

PRIMARY  ,1,  1,  1,  1,7,  4,  0,  2,  1,  9020 

CO.DATUM  ,0,  1,  1,  1,7,  4,  0,  3,  1,  9020 

TOLERANCE ENTITY  is  the  first  reference  in  the  CL.  Four 

different  kinds  of  entities  can  be  referenced. 

8  -  SUBENTITY 

Attributes  of  this  type  are  the  same  as  attributes  of  type 
POINTER.  The  SUBENTITY  code  signifies  that  the  type  of  entity 
pointed  to  was  created  as  a  result  of  the  physical  implementation 
of  the  Conceptual  Schema.  Entities  of  this  type  originally  were 
structures  in  the  definition  of  this  entity. 

9  -  STRUCTURE 

If  in  the  Conceptual  Schema  definition  of  an  entity  an  array  of  a 
structure  is  defined,  and  that  structure  contains  only  ADB  type 
DATA  or  only  CL  type  DATA  then  those  attribute  fields  will  be 
preceded  and  followed  by  attribute  fields  of  type  STRUCTURE  in 
the  data  dictionary.  The  example  below  was  taken  from  the 
definition  of  the  entity  PRS. 
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BEGIN  STRUCTURE 

,0, 

32,  1, 

,  1,9, 

0, 

45 

TVALUE 

,1, 

1,  1, 

,  1,2, 

4, 

48 

UVALUE 

>1, 

1,  1, 

,  1,2, 

4, 

52 

END  STRUCTURE 

,0, 

32,  1, 

,  1,9, 

8,  304 

s 

s  e  s 

t 

i 

n  t 

r 

z  d  r 

u 

e 

u 

c 

0 

c 
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The  attribute  type  STRUCTURE  supplies  information  on  the  location 
of  the  array  of  attributes  that  are  bracketed  within.  The  REAL 
type  data  corresponding  to  the  TVALUE,  and  UVALUE  attributes 
would  reside  in  the  ADB  as  shown  below. 


TVALUE  Index 
1 


UVALUE  Index 


(1)  (2) 

A,  DIAMETER 


(3) (4) (5) (6) (7)  (8) 
,  9,1,  0,2,  4,  24 


An  integer  number  signifying  the  number  of  bytes  that  one 
instance  of  this  attribute  takes  in  storage. 
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An  integer  number  signifying  (1)  the  starting  location  in  the  ADB 
of  the  entity  for  this  attribute  or  (2)  the  location  of  this 
reference  in  the  CL. 


ADB  -  An  integer  number  signifying  the  starting  location  in  the 
ADB  of  the  entity  for  this  attribute.  The  example  below 
was  taken  from  the  definition  of  the  entity  IMPL_B_HOLE. 


#DIAMETER  ,9,1,  0,2,  4,  24 

CL  -An  integer  number  signifying  the  location  of  this 
reference  in  the  CL.  The  domain  of  this  attribute  type  is 
enumerated  on  a  continuation  line  following  the  attribute. 
The  example  below  was  taken-  from  the  definition  of  the 
entity  CIRCULAR_RUNOUT. 


#TOLERANCE_ENTITY ,13,1,  1,7,  4,  1 

X  4,11000,  8004,  8002,  2000 
A  1,254 
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ENTITY  TYPE  CODES 


Miscellaneous  Tvoes 

1100 

Array 

Subentitv  Tvoes 

1201 

Segment 

1202 

Edges 

1203 

Implied  Thru  Hole 

1204 

Implied  Blind  Hole 

1205 

Datum  Frame 

1206 

Mating  Corner 

1207 

Implied  Chamfer 

1208 

Implied  Fillet 

1209 

Implied  Inside  Corner 

1210 

Bend 

1211 

Radius 

Other 

1300 

Other  Class 

7.301 

Pick  Token 

1302 

Text  Line 

1303 

Text 

1304 

Group 

1305 

Display  Properties 

1306 

Pick  Point 

1307 

Nil  Entity 

1308 

Menu  Pick  Item 

1309 

Erase 

Geometry 

2000 

Geometry  Class 

Ouasi 

Geometry 

3000 

Quasi  Geometry  Class 

3001 

Coordinate 

3002 

Vector 

3003 

MAT43 

3004 

MAT  4  4 

3005 

Point  Vector 

3006 

Iplane 

3007 

Sphere 
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Points 

4000  Point  Class 

4001  Point 

4002  Control  Point 


Curves 


5000 

Curve  Class 

5001 

Circle 

5002 

Circular  Arc 

5003 

Conic  Arc 

5004 

Cubic 

5005 

Curve  Segment 

5006 

Curve  String 

5007 

Ell  ipse 

5008 

Line 

5009 

RB-Spline 

5011 

Knot 

Surfaces 

6000 

Surface  Class 

6001 

Cone 

6002 

Parametric-Bi -Cubic 

6003 

Cylinder  Surface 

6004 

Thick  Surface 

6005 

PI  ane 

6006 

Ruled  Surface 

6007 

Surface  of  Rotation 

6008 

Surface  of  Translation 

6009 

RB-Spl ine-Surf 

Solid? 

7000 

Solids  Class 

Topology 

8000 

Topology  Class 

8001 

Vertex 

8002 

Edge 

8003 

Loop 

8004 

Face 

8005 

Shell 

8006 

Object 

8007 

Super  Face 
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Tolerance 

9000  Tolerance  Class 

9001  Coordinate  Tolerance  Class 

9002  Location 

9003  Size 

9004  Angl e 

9005  Geometric  Tolerance  Class 

9006  Circular  Runout 

9007  Concentricity 

9008  Cylindricity 

9009  Flatness 

9010  Line  Profile 

9011  Parallelism 

9012  Perpendicularity 

9013  Position 

9014  Roundness 

9015  Straightness 

9016  Surface  Profile 

9017  Total  Runout 

9018  Angularity 

9019  Other  Tolerance  Class 

9020  Datum 

9021  Feature  of  Size 


Administrative  Data 


10000 

Administrative  Data 

10001 

Administration 

10002 

Approval 

10003 

Characteristic 

10004 

Detail  Model 

10005 

Effect ivity 

10006 

Material 

10007 

Note 

10008 

Specification 

10009 

Next  Assy 

Ft?atun»s 

11000 

Feature  Class 
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Composite  Features 

12000 

Composite  Class 

12001 

Ply  Detail 

12002 

Ply 

12003 

Ply  Table 

12004 

Laminate 

12005 

Composite  Flange 

12006 

Composite  Hole 

12007 

Composite  Transition 

12008 

Composite  Rabbet 

12009 

Comp  Flat  Pat 

Machine  Features 


13000 

Machine  Class 

13001 

Feature  Edge 

13002 

Mach  Chamfer 

13003 

Mach  Cutout 

13004 

Mach  Fillet 

13005 

Mach  Flange 

13006 

Thru  Hole 

13007 

Blind  Hole 

13008 

Mach  Inside  Corner 

13009 

Mach  Periphery 

13010 

Mach  Pocket 

13011 

Mach  Transition 

13012 

Mach  Trim 

13013 

Mach  Web 

Sheet  Metal  Features 


14000 

Sheet 

Metal 

Class 

14001 

Sheet 

Metal 

Body 

14002 

Sheet 

Metal 

Flange 

14003 

Sheet 

Metal 

Web 

14004 

Sheet 

Metal 

Pocket 

14005 

Sheet 

Metal 

Notch 

14006 

Sheet 

Metal 

Joggle 

14007 

Sheet 

Metal 

Crimp 

14008 

Sheet 

Metal 

Flat  Pattern 

14009 

Sheet 

Metal 

Cutout 

14010 

Sheet 

Metal 

Flat  Hole 

14011 

Sheet 

Metal 

Flat  Web 

14012 

Sheet 

Metal 

Flat  Flange 

14013 

Sheet 

Metal 

Flat  Notch 

14014 

Sheet 

Metal 

Bend 
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Turned  Features 

15000 

Turned  Class 

15001 

Turn  End 

15002 

Turn  Groove 

15003 

Turn  Open  Diameter 

15004 

Turn  Recessed  Diameter 

15005 

Turn  Relief 

15006 

Turn  Taper 

15007 

Turn  Transition 

15008 

Turn  Thread 

15009 

Turn  Undercut 

15010 

Turn  Open  Face 

15011 

Turn  Recessed  Face 

15012 

Turn  Semi  open  Face 

15013 

Turn  Semiopen  Diameter 

15014 

Turn  Axis 

15015 

Gage  Point 

15016 

Turned  Chamfer 

15017 

Turned  Corn  Rnd 

15018 

Turned  Fillet 

15019 

Turned  Profile 

15020 

Edge  Break 
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********************  #ALL  MEMBER  ******************** 
1100  ,ARRAY_ENTITY 

1201  . SEGMENT 

1202  , EDGES 

1203  , IMPL  T  HOLE 

1204  ,IMPL_B_HOLE 

1205  .DATUM  FRAME 

1206  .MATING  CORNER 

1207  , IMPL_CHAMFER 

1208  , IMPL_FILLET 

1209  , IMPL_IN_CORNER 

1210  .BEND 

1211  .RADIUS 

1300  .OTHER  CLASS 

1301  , PICK_TOKEN 

1302  ,TEXT_LINE 

1303  .TEXT 

1304  .GROUP 

1305  ,DISP_PROP 

1306  , PICK_PT 

1307  ,NIL_ENTITY 

1308  ,MENU_PICK_ITEM 

1309  .ERASE 

2000  , GEOMETRY_CLASS 

3000  .QUASI  GEOM_CLASS 

3001  .COORDINATE 

3002  .VECTOR 

3003  .MAT43 

3004  .MAT44 

3005  , POINT_VECTOR 

3006  , I PLANE 

3007  .SPHERE 

4000  , POINT_CLASS 

4001  .POINT 

4002  ,CONTROL_POINT 

5000  .CURVE  CLASS 

5001  .CIRCLE 

5002  ,CIRCULAR_ARC 

5003  .CONIC  ARC 

5004  .CUBIC 

5005  .CURVE  SEGMENT 

5006  .CURVE  STRING 

5007  .ELLIPSE 

5008  .LINE 

5009  ,RB_SPLINE 
5011  .KNOT 


6000  ,SURFACE_CLASS 

6001  ,C0NE 

6002  ,PARM  BI  CUBIC 

6003  , CYL I NDER_SURFACE 

6004  .THICK  SURFACE 

6005  .PLANE 

6006  .RULED  SURFACE 

6007  .SURF  OF  ROTATION 

6008  .SURF  OF  TRANS 

6009  ,RB  SPLINE.SURF 
7000  .SOLIDS  CLASS 

8000  ,TOPOLOGY_CLASS 

8001  .VERTEX 

8002  .EDGE 

8003  .LOOP 

8004  .FACE 

8005  .SHELL 

8006  .OBJECT 

8007  ,SUPER_FACE 

9000  .TOLERANCE  CLASS 

9001  , COORD_TOL_CLASS 

9002  .LOCATION 

9003  .SIZE 

9004  .ANGLE 

9005  ,GEOM_TOL  CLASS 

9006  , C I RCULAR_RUNOUT 

9007  .CONCENTRICITY 

9008  .CYLINDRICITY 

9009  .FLATNESS 

9010  ,LINE_PROFILE 

9011  .PARALLELISM 

9012  .PERPENDICULARITY 

9013  .POSITION 

9014  .ROUNDNESS 

9015  .STRAIGHTNESS 

9016  ,SURFACE_PROFILE 

9017  .TOTAL  RUNOUT 

9018  .ANGULARITY 

9019  ,OTHER_TOL_CLASS 

9020  .DATUM 

9021  , FEATURE_OF  SIZE 
10000, ADMIN  DATA  CLASS 
10001, ADMINISTRATION 
10002, APPROVAL 
10003, CHARACTER I STIC 

1 0004 , DETA I L_MODE  L 
10005, EFFECTIVITY 
10006, MATERIAL 
10007, NOTE 
10008, SPECIFICATION 
10009, NEXT  ASSEMBLY 


11000, FEATURE  CLASS 
12000, COMPOSITE  CLASS 
12001, PLY  DETAIL 
12002, PLY 
12003, PLY.TABLE 
12004, LAMINATE 
12005, COMP  FLANGE 
12006,COMP_HOLE 
12007, COMP_TRANSITION 
12008, COMP_RABBET 
12009, COMP  FLAT  PAT 
13000, MACHINE  CLASS 
13001, FEATURE.EDGE 
13002, MACH  CHAMFER 
13003 ,MACH_CUTOUT 
13004 , MACH_F I LLET 
13005 , MACH.FLANGE 
13006, THRU_HOLE 
13007, BLIND_HOLE 
13008, MACH  INSIDE_CORN 
13009, MACH_PERIPHERY 
13010,MACHJ>OCKET 
13011, MACH.TRANSITION 
13012, MACH_TRIM 
13013,MACH_WEB 

14000. 5  M_CLASS 
14001,S_M  BODY 
14002, S_M_FLANGE 
14003,S_M_WEB 
14004 , S_M_POCKET 

14005. 5  M_NOTCH 
14006, S_M_JOGGLE 
14007, S_M_CRIMP 

14008. 5  M  FLAT  PATTERN 
14009, S_M_CUTOUT 

14010. 5  M_FLAT  HOLE 
14011, S_M_FLAT_WEB 

14012. 5  M_FLAT_FLANGE 
14013, S_M_FLAT_NOTCH 
14014, S_M_BEND 

1 5000 , TURNED_CLASS 
15001, TRN  END 
1 5002 , TRN_GROOVE 
15003, TRN_OPEN_DIA 
15004, TRN  REC.DIA 
15005, TRN_RELIEF 
15006,TRN_TAPER 
15007,TRN_TRANS 
15008,TRN_THREAD 
1 5009 , TRN_UNDERCUT 
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15010,TRN  OPEN_FACE 
15011, TRN~REC  FACE 
15012, TRN_S  0  FACE 
15013, TRN_S  0  DIA 
15014,  TRffAXIS 
15015, GAGE_P0INT 
15016, TURNED  CHAMFER 
15017, TURNED_CORN_RND 
15018, TURNED_FILLET 
15019, TURNED_PROFILE 
15020, EDGE.BREAK 

********************************************************** 
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********************  MEMBER  ******************** 

1300  ,OTHER_CLASS 

2000  ,GEOMETRY_CLASS 

3000  ,QUASI_GEOM_CLASS 

4000  , P0INT_CLASS 

5000  ,CURVE_CLASS 

6000  ,SURFACE_CLASS 

8000  ,TOPOLOGY_CLASS 

9000  ,TOLERANCE_CLASS 

9001  , COORD  TOL  CLASS 

9019  ,other!tolIclass 

1 0000 , ADM I N_DATA_CLASS 

11000, feature.class 

12000, COMPOS ITE_CLASS 
13000, MACHINE_CLASS 
14000, S_M_CLASS 
1 5000 , TURNED_CLASS 

**************************************************_******** 


*******************  $1100  MEMBER  ********************** 


ARRAY  ENTITY 
KIND 

,  1100,  7,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

CL  ENTITIES 

,  7,1,  1,7, 

4, 

1 

X  9,  2000,  3000, 

4000,  5000, 

6000 

,  8000,  9000,10000,11000 

A  1,254 

********************************************************** 

********************  #1201  MEMBER  ********************* 


SEGMENT  ,  1201,  9,1 

KIND  ,  1,1,  0,1, 

1  >UII 

4, 

UUI\ 

0 

LENGTH  ,  2,1,  0,1, 

4, 

4 

SYSUSE  ,  3,1,  0,1, 

4, 

8 

VERSION  ,  4,1,  0,1, 

4, 

12 

SYS  IDENT  ,  5,1,  0,1, 

4, 

16 

IDENT  ,  6,1,  0,1, 

4, 

20 

PRM  ,  8,1,  0,2, 

8, 

24 

REV  ,  9,1,  0,4, 

1, 

32 

CRV  ,  7,1,  0,7, 

X  7,  5002,  5003,  5004,  5005, 

4, 

1 

5006 

,  5008,  5009 

********************************************************** 
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********************  #1202  MEMBER  ********************* 


EDGES 

KIND 

,  1202,  8,1 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

REVERSE 

,  8,1,  0,4, 

1, 

24 

EDGREF 

,  7,1,  0,7, 

4, 

1 

X  1,  8002 

********************************************************** 

*★*★*★***★★*★★***★★★  #1203 

MEMBER  ********************* 

IMPL  T  HOLE 
KIND 

,  1203,11,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

DIAMETER 

,  9,1,  0,2, 

4, 

24 

LOCATE 

,  7,1,  0,7, 

4, 

1 

X  1,  4000 

AXIS 

,  8,1,  0,7, 

4, 

2 

X  1,  3002 

ENTRY_A 

,10,1,  1,7, 

4, 

3 

X  1,  8004 

A  1,254 

ENTRY  B 

,11,1,  1,7, 

4, 

4 

X  1,  8004 

A  1,254 

********************************************************** 
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a*******************  #1204  MEMBER  ********************* 


IMPL  B  HOLE 
KIND 

,  1204 
,  1,1, 

,13,1 

0,1, 

4, 

0 

LENGTH 

,  2, 

1, 

0,1, 

4, 

4 

SYSUSE 

,  3, 

1, 

0,1, 

4, 

8 

VERSION 

,  4, 

1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5, 

1, 

0,1, 

4, 

16 

IDENT 

,  6, 

1, 

0,1, 

4, 

20 

DIAMETER 

,  9, 

1, 

0,2, 

4, 

24 

PARM 

,12, 

1, 

0,2, 

4, 

28 

HOLE  TYPE 

,11, 

1, 

0,5, 

1, 

32 

X  3, CONE 

LOCATE 

y 

,  7, 

BULL 

1,  0,7, 

4, 

1 

X  1,  4000 

AXIS 

,  8, 

1, 

0,7, 

4, 

2 

X  1,  3002 

BOTTOM 

,10, 

1, 

0,7, 

4, 

3 

X  1,  4000 

ENTRY 

,13, 

1, 

1,7, 

4, 

4 

X  1,  8004 
A  1,254 

*****  ***************************************************** 


********************  #1205  MEMBER  ********************* 


DATUM  FRAME 
KIND 

,  1205, 
,  1,1, 

8,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

MATL  COND 

,  8,1, 

0,5, 

1, 

24 

X  4,N 

DATUM  REF 

,H 

,  7,1, 

0,7, 

4, 

»L  ,S 

1 

X  1,  9020 

^****Ht*************************************************** 

********************  #1206 

MEMBER  ******************** 

MATING  CORNER 
KIND 

,  1206, 

,  1,1, 

■  8,1 
0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

RADIUS 

,  7,1, 

0,2, 

4, 

24 

ENT  REF 

,  8,1, 

1,7, 

4, 

1 

X  2,  8002,  8004 
A  1,255 

********************************************************** 
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********************  12207  MEMBER  ******************** 


IMPL  CHAMFER 
KIND 

y 

y 

1207 

1,1, 

,  9,1 
0,1, 

4, 

0 

LENGTH 

y 

2, 

1, 

0,1, 

4, 

4 

SYSUSE 

y 

3, 

1, 

0,1, 

4, 

8 

VERSION 

y 

4, 

1, 

0,1, 

4, 

12 

SYS  IDENT 

y 

5, 

1, 

0,1, 

4, 

16 

IDENT 

y 

6, 

1, 

0,1, 

4, 

20 

ANGLE 

y 

7, 

1, 

0,2, 

4, 

24 

SETBACK 

y 

8, 

1, 

0,2, 

4, 

28 

C  EDGES 

y 

9, 

1, 

0,7, 

4, 

1 

X  1,13001 

********************************************************** 

********************  #2208  MEMBER  ******************** 


IMPL  FILLET 

W  JL  tm  VW 

,  1208,  8,1 

IILI  1 

uu\ 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

RADIUS 

,  7,1,  0,2, 

4, 

24 

FIL  EDGE 

,  8,1,  0,7, 

4, 

1 

X  1,13001 

********************************************************** 

********************  #2209 

MEMBER  ******************** 

IMPL  IN  CORNER 

,  1209,  8,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

RADIUS 

,  8,1,  0,2, 

4, 

24 

CORNER 

,  7,1,  0,7, 

4, 

1 

X  1,13001 

********************************************************** 

********************  #2210 

MEMBER  ********************* 

BEND 

,  1210,  8,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

ANGLE 

,  8,1,  0,2, 

4, 

24 

LOCATE 

,  7,1,  0,7, 

4, 

1 

X  1,  4000 

********************************************************** 
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• 
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********************  #1211 

MEMBER  ******************** 

RADIUS 

,  1211,  8,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

>  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

RADVAL 

,  8,1,  0,2, 

4, 

24 

LOCATION 

X  1.  4000 

,  7,1,  0,7, 

4, 

1 

********************************************************** 

*★*★★★******★*★*★***  m 1 3  o 0 

MEMBER  ******************** 

OTHER  CLASS 

,  1300,  8 

1301 

,  1,0,  0,0, 

0, 

0 

1302 

,  2,0,  0,0, 

0, 

0 

1303 

,  3,0,  0,0, 

0, 

0 

1304 

,  4,0,  0,0, 

0, 

0 

1305 

»  5,0,  0,0, 

0, 

0 

1306 

,  6,0,  0,0, 

0, 

0 

1307 

,  7,0,  0,0, 

0, 

0 

1308 

,  8,0,  0,0, 

0, 

0 

• 

********************************************************** 

‘ 

********************  #1301 

MEMBER  ******************** 

PICK  TOKEN 

,  1301,10,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

LABL 

,  7,1,  0,7, 

4, 

1 

X  1,  1302 

LEND1 

X  1,  3001 

,  8,1,  0,7, 

4, 

2 

LEND2 

X  1,  3001  • 

,  9,1,  0,7, 

4, 

3 

ENTREF 

,10,1,  0,7, 

4, 

4 

Xll,  2000,  3000, 

4000,  5000, 

6000 

,  8000,  9000,12000,13000,14000,15000 

********************************************************** 

I 

• 
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* *******************  $1302  MEMBER  ******************** 


TEXT  LINE 

,  1302,  8,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

LINE  LEN 

,  7,1,  0,1, 

1, 

24 

A  LINE 

,  8,1,  0,3, 

132, 

25 

********************************************************** 

********************  $1303  MEMBER  ******************** 


TEXT 

9 

1303,  7,1 

riLi  i 

KIND 

9 

1,1,  0,1, 

4, 

0 

LENGTH 

9 

2,1,  0,1, 

4, 

4 

SYSUSE 

9 

3,1,  0,1, 

4, 

8 

VERSION 

9 

4,1,  0,1, 

4, 

12 

- 

SYS  IDENT 

9 

5,1,  0,1, 

4, 

16 

IDENT 

9 

6,1,  0,1, 

4, 

20 

LI.NES_OF  TEXT 

9 

7,1,  1,7, 

4, 

1 

X  1,  1302 
A  1,254 


******************** 


#1304  MEMBER 


******************** 


GROUP 

,  1304 

,11,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

B 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RB6  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

MEMBERS 

,13,0, 

1,7, 

4, 

1 

Xll,  2000,  3000, 

4000, 

5000, 

6000 

,  8t 

6000,  8000,  9000,12000,13000,14000,15000 

A  0,999 

********************************************************** 
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********************  I23Q5  MEMBER  ******************** 


DISP  PROP 

KIND 

,  1305,11,1 

,  1,1,  o,i, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

DISPLAYED 

,  7,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  8,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,  9,1,  0,1, 

1, 

28 

SYMBOL 

,10,1,  0,1, 

1, 

29 

MEMBER 

,11,1,  0,7, 

4, 

1 

Xll,  3000,  4000, 

5000,  6000, 

8000, 

9000,10000,12000,13000,14000,15000 

********************************************************** 

********************  # 1306 

MEMBER  ******************** 

PICK  PT 

KIND 

,  1306,  8,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

PKPT 

,  7,3,  1,2, 

4, 

24 

A  3,  3 

PKRF 

,  8,1,  0,7, 

4, 

1 

Xll,  3000,  4000, 

5000,  6000, 

8000, 

9000 , 10000 ,12000,13000, 14000 , 1 5000 

********************************************************** 

********************  |2307 

MEMBER  ******************** 

NIL  ENTITY 

KIND 

,  1307,  6,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

********************************************************** 
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********************  H308  MEMBER  ******************** 


MENU  PICK  ITEM 

,  1308,  8,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

I  DENT 

,  6,1,  0,1, 

4, 

20 

SEQ_ID 

,  8,1,  0,1, 

4, 

24 

MAS  KEY 

,  7,1,  0,7, 

4, 

1 

X  9,  2000,  3000, 

4000,  5000, 

6000 

,  8000,  9000,10000,11000 

********************************************************** 

********************  #1309  MEMBER  ******************** 


ERASE 

> 

7T 

1309,  8,1 

1  ILIII 

KIND 

1,1,  0,1, 

4, 

0 

LENGTH 

y 

2,1,  0,1, 

4, 

4 

SYSUSE 

* 

3,1,  0,1, 

4, 

8 

VERSION 

y 

4,1,  0,1, 

4, 

12 

SYS  IDENT 

y 

5,1,  0,1, 

4, 

16 

IDENT 

y 

6,1,  0,1, 

4, 

20 

ERASE  LEVEL 

y 

7,1,  0,1, 

1, 

24 

erase'list 

y 

8,1,  1,7, 

4, 

1 

X  9,  2000,  3000, 

4000,  5000, 

6000 

,  8000,  9000,10000,11000 

A  1,254 

********************************************************** 

********************  #2000  MEMBER  ******************** 


GEOMETRY  CLASS  , 

ITfcWWW 

2000,  4 

i  iu.ru 

J  L.l\ 

3000 

1,0,  0,0, 

0, 

0 

4000 

2,0,  0,0, 

0, 

0 

5000 

3,0,  0,0, 

0, 

0 

6000 

4,0,  0,0, 

0, 

0 

********************************************************** 

********************  #3000 

MEMBER  ******************** 

QUASI  GEOM  CLASS, 

3000,  7 

3001 

1,0,  0,0, 

0, 

0 

3002 

2,0,  0,0, 

0, 

0 

3003 

3,0,  0,0, 

0, 

0 

3004 

4,0,  0,0, 

0, 

0 

3005 

5,0,  0,0, 

0, 

0 

3006 

6,0,  0,0, 

0, 

0 

3007 

7,0,  0,0, 

0, 

0 

********************************************************** 
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********************  #3001  MEMBER  ******************** 


COORDINATE 

> 

3001,  9,1 

KIND 

f 

1, 

1,  0,1, 

4, 

0 

LENGTH 

5 

2, 

1.  0,1, 

4, 

4 

SYSUSE 

* 

3, 

1,  0,1, 

4, 

8 

VERSION 

* 

4, 

1,  0,1, 

4, 

12 

SYS  IDENT 

» 

5, 

1,  0,1, 

4, 

16 

IDENT 

y 

6, 

1,  0,1, 

4, 

20 

X 

y 

7, 

1,  0,2, 

8, 

24 

Y 

y 

8, 

1,  0,2, 

8, 

32 

Z 

y 

9, 

1,  0,2, 

8, 

40 

********************************************************** 

******************** 

#3002 

MEMBER  ******************** 

VECTOR 

y 

3002,10,1 

KIND 

y 

1, 

1,  0,1, 

4, 

0 

LENGTH 

y 

2, 

1,  0,1, 

4, 

4 

SYSUSE 

y 

3, 

1,  0,1, 

4, 

8 

VERSION 

y 

4, 

1,  0,1, 

4, 

12 

SYS  IDENT 

y 

5, 

1,  0,1, 

4, 

16 

IDENT 

y 

6, 

1,  0,1, 

4, 

20 

I 

y 

7, 

1,  0,2, 

8, 

24 

J 

y 

8, 

1,  0,2, 

8, 

32 

K 

y 

9, 

1,  0,2, 

8, 

40 

L 

y 

10, 

1,  0,2, 

8, 

48 

********************************************************** 


********************  #3003  MEMBER  ******************** 


MAT43 

KIND 

,  3003 
,  1,1, 

,  7,1 
0,1, 

4, 

0 

LENGTH 

,  2, 

1, 

0,1, 

4, 

4 

SYSUSE 

,  3, 

1, 

0,1, 

4, 

8 

VERSION 

,  4, 

1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5, 

1, 

0,1, 

4, 

16 

IDENT 

,  6, 

1, 

0,1, 

4, 

20 

MAT 

,  7, 

1, 

2,2, 

8, 

24 

A  1,  4,  1,  3 

********************************************************** 

#3004 

MEMBER  ******************** 

MAT44 

KIND 

,  3004 
,  1,1, 

,  7,1 
0,1, 

4, 

0 

LENGTH 

,  2, 

1, 

0,1, 

4, 

4 

SYSUSE 

,  3, 

J, 

0,1, 

4, 

8 

VERSION 

,  4, 

1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5, 

1, 

0,1, 

4, 

16 

IDENT 

,  c, 

1, 

0,1, 

4, 

20 

MAT 

,  7, 

4, 

2,2, 

8, 

24 

A  4,  4,  4,  4 

********************************************************** 
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********************  #3005  MEMBER  ******************** 


POINT  VECTOR 
KIND 

,  3005 
,  1,1, 

,12,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

.  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

I  DENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

POS 

,13,1, 

0,7, 

4, 

1 

X  1,  4001 

DIR 

,14,1, 

0,7, 

4, 

2 

X  1,  3002 

********************************************************** 

********************  13006 

MEMBER  ******************** 

I PLANE 

KIND 

,  3006 
,  1,1, 

,12,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

ORG 

,13,1, 

0,7, 

4, 

1 

X  1,  3001 

DIR 

,14,1, 

0,7, 

4, 

2 

X  1,  3002 

********************************************************** 
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******************** 

SPHERE  ,  3007,12,1 

MEMBER  ******************** 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

CENTER 

,13,1,  0,7, 

4, 

1 

X  1,  3001 

RADVEC 

,14,1,  0,7, 

4, 

2 

X  1,  3002 

********************************************************** 

#4000 

POINT  CLASS  ,  4000,  1 

MEMBER  ******************** 

4001 

,  1,0,  0,0, 

o. 

0 

********************************************************** 

********************  #4001 
POINT  ,  4001,13,1 

MEMBER  ******************** 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

X 

,13,1,  0,2, 

8, 

32 

Y 

,14,1,  0,2, 

8, 

40 

Z 

,15,1,  0,2, 

8, 

48 

*****+********★★*****★******************★★*★★************* 
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********************  #4002 

CONTROL  POINT  ,  4002,  8,1 

MEMBER  ******************** 

KINO 

,  M,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

WEIGHT 

,  7,1,  0,2, 

8, 

24 

POINT  REF 

,  8,1,  0,7, 

4, 

1  X  2,  4001,  3001 

********************  #5000 
CURVE  CLASS  ,  5000,  9 

MEMBER  ******************** 

5001 

,  1,0,  0,0, 

0, 

0 

5002 

,  2,0,  0,0, 

0, 

0 

5003 

,  3,0,  0,0, 

0, 

0 

5004 

,  4,0,  0,0, 

0, 

0 

5005 

,  5,0,  0,0, 

0, 

0 

5006 

,  6,0,  0,0, 

0, 

0 

5007 

,  7,0,  0,0, 

0, 

0 

5008 

,  8,0,  0,0, 

0, 

0 

5009 

,  9,0,  0,0, 

0, 

0 

********************************************************** 

********************  #5001 
CIRCLE  ,  5001,13,1 

MEMBER  ******************** 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  ®,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

PC 

,13,1,  0,7, 

4, 

1 

X  1,  3001 

AXIS 

,14,1,  0,7, 

4, 

2 

X  1,  3002 

PO 

,15,1,  0,7, 

4, 

3 

X  1,  3001 

********************************************************** 
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********************  #5002 
CIRCULAR  ARC  ,  5002,13,1 

MEMBER  ******************** 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BD I SPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

BEND  POINTS 

,13,1,  0,9, 

0, 

1 

PO 

X  1,  4000 

,14,1,  0,7, 

4, 

1 

PI 

,15,1,  0,7, 

4, 

2 

X  1,  4000 

EEND  POINTS 

,16,1,  0,9, 

8, 

3 

PM 

,17,1,  0,7, 

4, 

3 

X  1,  3001 

********************************************************** 

********************  #5003 
CONIC  ARC  ,  5003,15,1 

MEMBER  ******************** 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BD I SPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

BEND  POINTS 

,13,1,  0,9, 

0, 

1 

PO 

,14,1,  0,7, 

4, 

1 

X  1,  4000 

PI 

,15,1,  0,7, 

4, 

2 

X  1,  4000 

EEND  POINTS 

,16,1,  0,9, 

8, 

3 

PA 

,17,1,  0,7, 

4, 

3 

X  1,  3001 

PB 

,18,1,  0,7, 

4, 

4 

X  1,  3001 

PC 

,19,1,  0,7, 

4, 

5 

X  1,  3001 

********************************************************** 
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********************  15004  MEMBER  ******************** 


CUBIC 

KINO 

,  5004. 
,  M, 

,14,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

BEND  POINTS 

,13,1, 

0,9, 

0, 

1 

PO 

,14,1, 

0,7, 

4, 

1 

X  1,  4000 

PI 

,15,1, 

0,7, 

4, 

2 

X  1,  4000 

EEND  POINTS 

,16,1, 

0,9, 

8, 

3 

VO 

,17,1, 

0,7, 

4, 

3 

X  1,  3002 

VI 

,18,1, 

0,7, 

4, 

4 

X  1,  3002 

********************************************************** 
********************  #5005  MEMBER  ******************** 


CURVE  SEGMENT 
KIND 

,  5005,13,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

BEND  POINTS 

,13,1, 

0,9, 

0, 

1 

PO 

,14,1, 

0,7, 

4, 

1 

X  1,  4000 

PI 

,15,1, 

0,7, 

4, 

2 

X  1,  4000 

EEND  POINTS 

,16,1, 

0,9, 

8, 

3 

BASE 

,17,1, 

0,7, 

4, 

3 

X  1,  5000 

********************************************************** 


G-48 


PS  56013000A 
1  January  1987 


********************  15006  MEMBER  ******************** 


CURVE  STRING 
KIND 

,  5006 
,  1,1, 

,13,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBGJ.EVEL 

,  9,3, 

1,1, 

1, 

25 

Intensity 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDI SPLAY 

,12,1, 

0,9, 

6, 

30 

BEND  POINTS 

,13,1, 

0,9, 

0, 

1 

PO 

,14,1, 

0,7, 

4, 

1 

X  1,  4000 

PI 

,15,1, 

0,7, 

4, 

2 

X  1,  4000 

EEND  POINTS 

,16,1, 

0,9, 

8, 

3 

SEGMENT 

,17,1, 

1,8, 

4, 

3 

X  1,  1201 
A  1,1000 

********************************************************** 
********************  #5007  MEMBER  ******************** 


ELLIPSE 

KIND 

,  5007,13,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PC 

,13,1, 

0,7, 

4, 

1 

X  1,  3001 

MAJOR 

,14,1, 

0,7, 

4, 

2 

X  1,  3001 

MINOR 

,15,1, 

0,7, 

4, 

3 

X  1,  3001 

********************************************************** 
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********************  #5008  MEMBER  ******************** 


LINE 

KIND 

,  5008 
,  1,1, 

,12,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

BEND  POINTS 

,13,1, 

0,9, 

0, 

1 

PO 

,14,1, 

0,7, 

4, 

1 

X  1,  4000 

PI 

,15,1, 

0,7, 

4, 

2 

X  1,  4000 

EEND.POINTS 

,16,1, 

0,9, 

8, 

3 

********************************************************** 
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********************  #5009  MEMBER  ******************** 


RB  SPLINE 

,  5009,18,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

DOMAIN  S 

,13,1,  0,2, 

8, 

32 

DOMAIN  E 

,14,1,  0,2, 

8, 

40 

DEGREE 

,15,1,  0,1, 

1, 

48 

SPAN 

,16,1,  0,1, 

2, 

50 

P  C  TYPE 

,17,1,  0,5, 

1, 

52 

X  6, LINE 

,ARC 

, CIRCLE  , CONIC 

X  6, ELLIPSE 

, OTHER 

PERIODIC 

,18,1,  0,4, 

1, 

53 

UNIFORM 

,19,1,  0,4, 

1, 

54 

CONTROL 

,20,2,  1,7, 

4, 

1 

X  3,  4001,  3001, 

4002 

A  2,254 

KNOTS 

,21,0,  1,7, 

4, 

2 

X  1,  5011 
A  0,254 

********************************************************** 
********************  #501 1  MEMBER  ******************** 


KNOT 

* 

5011 

,  7,1 

KIND 

y 

1,1, 

0,1, 

4, 

0 

LENGTH 

y 

2,1, 

0,1, 

4, 

4 

SYSUSE 

y 

3,1, 

0,1, 

4, 

8 

VERSION 

y 

4,1, 

0,1, 

4, 

12 

SYS  IDENT 

y 

5,1, 

0,1, 

4, 

16 

IDENT 

y 

6,1, 

0,1, 

4, 

20 

KNOT 

y 

7,1, 

1,2, 

8, 

24 

A  0,  10 

liitie'kitititlt-k'k’k'k'k'k'k’klclc’k'ic'kic'k'k'klcic’klcieic’k'k'k'k'k’kieic'k’k'k'kit'kitic'kitlc'kitirk'k'k’kit 
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********************  #5000  MEMBER  ******************** 


SURFACE  CLASS 
6001 

,  6000 
,  1,0, 

,10 

0,0, 

0, 

0 

6002 

,  2,0, 

0,0, 

0, 

0 

6003 

,  3,0, 

0,0, 

0, 

0 

6004 

,  4,0, 

0,0, 

0, 

0 

6005 

,  5,0, 

0,0, 

0, 

0 

6006 

,  6,0, 

0,0, 

0, 

0 

6007 

,  7,0, 

0,0, 

0, 

0 

6008 

,  8,0, 

0,0, 

0, 

0 

6009 

,  9,0, 

0,0, 

0, 

0 

6010 

,10,0, 

0,0, 

0, 

0 

********************************************************** 

★★******************  #6001 

MEMBER  ******************** 

CONE 

KIND 

,  6001 
,  1,1, 

,12,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

BASE 

,13,1, 

0,7, 

4, 

1 

X  1,  5001 

APEX 

,14,1, 

0,7, 

4, 

2 

X  1,  4000 

********************************************************** 


PS  56013000A 
1  January  1987 


********************  #6002  MEMBER  ******************** 


PARM_BI  CUBIC 

,  6002,18,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

BBORDER 

,13,1, 

0,9, 

0, 

1 

UOCRV 

X  3,  5004, 

5008, 

,14,1, 

5005 

0,7, 

4, 

1 

U1CRV 

X  3,  5004, 

5008, 

,15,1, 

5005 

0,7, 

4, 

2 

VOCRV 

X  3,  5004, 

5008, 

,16,1, 

5005 

0,7, 

4, 

3 

V1CRV 

X  3,  5004, 

5008, 

,17,1, 

5005 

0,7, 

4, 

4 

cBORDER 

,18,1, 

0,9, 

16, 

5 

BTVIIST 

,19,1, 

0,9, 

0, 

5 

NUOVO 

,20,1, 

0,7, 

4, 

5 

X  1,  3002 

NU0V1 

,21,1, 

0,7, 

4, 

6 

X  1,  3002 

NU1V0 

,22,1, 

0,7, 

4, 

7 

X  1,  3002 

NU1V1 

,23,1, 

0,7, 

4, 

8 

X  1,  3002 

ETWIST 

,24,1, 

0,9, 

16, 

9 

********************************************************** 
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********************  15003  MEMBER  ******************** 


CYLINDER.SURFACE,  6003,12,1 


KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  5,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  0,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

BASE 

,13,1,  0,7, 

4, 

1 

X  1,  5001 

TOP 

,14,1,  0,7, 

4, 

2 

X  1,  5001 

********************  #5004 
THICK  SURFACE  ,  6004,12,1 

MEMBER  ******************** 

KIND 

,  M,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

OFFSET 

,14,1,  0,2, 

8, 

32 

BASE 

,13,1,  0,7, 

4, 

1 

X  1,  6000 

********************************************************** 
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4HHHt****************  #6005  MEMBER  ******************** 


PLANE 

,  6005 

,13,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 
A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

ED I SPLAY 

,12,1, 

0,9, 

6, 

30 

ORG 

X  1,  3001 

,13,1, 

0,7, 

4, 

1 

VLEG 

X  1,  3002 

,14,1, 

0,7, 

4, 

2 

ULEG 

X  1,  3002 

,15,1, 

0,7, 

4, 

3 

********************************************************** 

********************  #5006 

MEMBER  ******************** 

RULED_SURFACE 

,  6006 

,14,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

o, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

CUO 

,13,1, 

0,7, 

4, 

1 

X  3,  4000, 

5000, 

3002 

CU1 

,14,1, 

0,7, 

4, 

2 

X  3,  4000, 

5000, 

3002 

CVO 

,15,1, 

0,7, 

4, 

3 

X  3,  5008, 

5004, 

5006 

CV1 

,16,1, 

0,7, 

4, 

4 

X  3,  5008, 

5004, 

5006 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★"AT******* 
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********************  15007  MEMBER  ******************** 


SURF_0F_R0TATI0N ,  6007,14,1 


KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

UOCRV 

,13,1, 

0,7, 

4, 

1 

X  1,  5000 

U1CRV 

,14,1, 

0,7, 

4, 

2 

X  1,  5000 

VOCRV 

,15,1, 

0,7, 

4, 

3 

X  1,  5002 

V1CRV 

,16,1, 

0,7, 

4, 

4 

X  1,  5002 

********************************************************** 
********************  #goo8  MEMBER  ******************** 


SURF_OF_TRANS  ,  6008,14,1 


KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

UOCRV 

,13,1, 

0,7, 

4, 

1 

X  1,  5000 

U1CRV 

,14,1, 

0,7, 

4, 

2 

X  1,  5000 

VOCRV 

,15,1, 

0,7, 

4, 

3 

X  1,  5000 

V1CRV 

,16,1, 

0,7, 

4, 

4 

X  1,  5000 

itifiticitic+lelciele'kle'kit'k'k'k'k'lt'kititieit'k’kicic'k’k'k'k'k'k’k'k'k’klc’klc’k’k'k'k'k'k'kit'kle'k'k'k'kitic 
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********************  #5009  MEMBER  ******************** 


RB  SPLINE  SURF 
KINO 

,  6009,21,1 
,  M,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IOENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

* 

pH 

•> 

o 

#* 

pH 

o 

pH 

p- 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

DOMAIN  S  U 

,13,1,  0,2, 

8, 

32 

DOMAIN  E  U 

,14,1,  0,2, 

8, 

40 

DOMAIN  S  V 

,15,1,  0,2, 

8, 

48 

DOMAIN  E  V 

,16,1,  0,2, 

8, 

56 

DEGREE  U 

,17,1,  0,1, 

1, 

64 

DEGREE  V 

,18,1,  0,1, 

1, 

65 

SPANS  U 

,19,1,  0,1, 

2, 

66 

SPANS  V 

,20,1,  0,1, 

2, 

68 

P  S  TYPE 

,21,1,  0,5, 

1, 

70 

X  6, PLANE 

,C0NEX 

, CYLINDER 

, TORUS 

X  6, SPHERE 
NORMAL 

,0THERX 
,22,1,  0,4, 

1, 

71 

PERIODIC  U 

,23,1,  0,4, 

1, 

72 

PERIODIC  V 

,24,1,  0,4, 

1, 

73 

UNIFORM  U 

,25,1,  0,4, 

1, 

74 

UNIFORM  V 

,26,1,  0,4, 

1, 

75 

CONTROL 

,27,2,  1,7, 

4, 

1 

X  3,  4001,  3001, 

4002 

A  2,254 

KNOTS  U 

,28,0,  1,7, 

4, 

2 

X  1,  5011 

A  0,254 

KNOTS  V 

,29,0,  1,7, 

4, 

3 

X  1,  5011 

A  0,254 

********************************************************** 

PS  56013000A 
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********************  #7000  MEMBER  ******************** 
SOLIDS  CLASS  ,  7000,  7 

8001  ,  1,0,  0,0,  0,  0 

8002  ,  2,0,  0,0,  0,  0 

8003  ,  3,0,  0,0,  0,  0 

8004  ,  4,0,  0,0,  0,  0 

8005  ,  5,0,  0,0,  0,  0 

8006  ,  6,0,  0,0,  0,  0 

8007  ,  7,0,  0,0,  0,  0 

********************************************************** 
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********************  fgooo 
TOPOLOGY  CLASS  ,  8000,  7 

MEMBER  ******************** 

8001 

,  1,0,  0,0, 

0, 

0 

8002 

,  2,0,  0,0, 

0, 

0 

8003 

,  3,0,  0,0, 

0, 

0 

8004 

,  4,0,  0,0, 

0, 

0 

8005 

,  5,0,  0,0, 

0, 

0 

8006 

,  6,0,  0,0, 

0, 

0 

8007 

,  7,0,  0,0, 

0, 

0 

********************************************************** 

******************** 

VERTEX  ,  8001,11,1 

MEMBER  ******************** 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  5,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYM80L 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

PTREF 

,13,1,  0,7, 

4, 

1 

X  1,  4000 

********************************************************** 

********************  #8002 
EDGE  ,  8002,13,1 

MEMBER  ******************** 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

o, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

CRVREF 

,13,1,  0,7, 

4, 

1 

X  1,  5000 

VERTO 

,14,1,  0,7, 

4, 

2 

X  1,  8001 

VERT1 

,15,1,  0,7, 

4, 

3 

X  1,  8001 

********************************************************** 
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********************  #8003  MEMBER  ******************** 


LOOP 

,  8003 

,11,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

EDGES 

,13,2, 

1,8, 

4, 

1 

X  1,  1202 
A  2,254 

********************************************************** 
********************  #8004  MEMBER  ******************** 


FACE 

KIND 

,  8004 
,  1,1, 

,14,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

REVERSE 

,14,1, 

0,4, 

1, 

30 

SRFREF 

,13,1, 

0,7, 

4, 

1 

X  2,  6000,  3006 

PERIPH 

,15,1, 

0,7, 

4, 

2 

X  1,  8003 

CUTOUT 

,16,0, 

1,7, 

4, 

3 

X  1,  8003 
A  0,254 

********************************************************** 
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********************  #8005  MEMBER  ******************** 


SHELL 

,  8005, 

11,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

ED I SPLAY 

,12,1, 

0,9, 

6, 

30 

FACREF 

,13,2, 

1,7, 

4, 

1 

X  1,  8004 
A  2,254 

**************************************************i******* 

********************  #8006  MEMBER  ******************** 


OBJECT 

KIND 

,  8006,12,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

o, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

,12,1, 

0,1, 

1, 

29 

EDISPLAY 

0,9, 

6, 

30 

PERIPH 

,13,1, 

0,7, 

4, 

1 

X  1,  8005 

VOIDS 

,14,0, 

1,7, 

4, 

2 

X  1,  8005 
A  0,254 

********************************************************** 
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********************  #8007  MEMBER  ******************** 


SUPER  FACE 

,  8007,13,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  £» 1 ,  0,1, 

4, 

20 

BD I SPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

FACES 

,13,2,  1,7, 

4, 

1 

X  1,  8004 

A  2,254 

PERIPH 

,14,1,  0,7, 

4, 

2 

X  1,  8003 

CUTOUT 

,15,0,  1,7, 

4, 

3 

X  1,  8003 

A  0,254 

********************************************************** 

********************  #9000 

MEMBER  ******************** 

TOLERANCE  CLASS 

,  9000,  3 

9001 

,  1,0,  0,0, 

0, 

0 

9005 

,  2,0,  0,0, 

0, 

0 

9019 

,  3,0,  0,0, 

0, 

0 

********************************************************** 

********************  #9001 

MEMBER  ******************** 

COORD  TOL  CLASS 

,  9001,  3 

9002 

,  1,0,  0,0, 

0, 

0 

9003 

,  2,0,  0,0, 

0, 

0 

9004 

,  3,0,  0,0, 

0, 

0 

********************************************************** 
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********************  19002  MEMBER  ******************** 


LOCATION 

,  9002,16,1 

KINO 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

PLUS  TOL 

,15,1,  0,2, 

4, 

32 

MINUS  TOL 

,16,1,  0,2, 

4, 

36 

BASIC 

,14,1,  0,4, 

1, 

40 

TOLERANCE 

ENTITY 

M3,l,  1,7, 

4, 

1 

X  5,11000,“ 

8004, 

8002,  8001, 

2000 

A  1,254 

PATH 

o 

o 

rH 

4, 

2 

X  2,  3002, 

5000 

ORIGIN 

,18,1,  0,7, 

4, 

3 

X  5,15015, 

9020, 

8004,  8002, 

8001 

********************************************************** 

********************  #goQ3 

MEMBER  ******************** 

SIZE 

,  9003,13,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

PLUS  TOL 

,14,1,  0,2, 

4, 

32 

MINUS  TOL 

,15,1,  0,2, 

4, 

36 

TOLERANCE 

ENTITY 

,13,1,  0,7, 

4, 

1 

X  6,15015,13007,13006,  9021, 

8004, 

,  8002 

*★★★★*★★★★★★★★*★★★★★★★★★*★★**★★*****★***■★★★★★■*■**★****★**** 
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•k'klt'kirk'klrkirk-kirk-k'k'kic'k'k  $9004  MEMBER  ******************** 


ANGLE 

KINO 

,  9004,16,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

PLUS  TOL 

,15,1,  0,2, 

4, 

32 

MINUS  TOL 

,16,1,  0,2, 

4, 

36 

BASIC 

,14,1,  0,4, 

1, 

40 

TOLERANCE 

ENTITY, 13,1,  1,7, 

4, 

1 

X  8,12006, 

13006,13007,14010, 

9021 

,  8004,  8002,  2000 

A  1,254 

PATH 

O 

o 

rH 

4, 

2 

X  1,  6005 

ORIGIN 

,18,1,  0,7, 

4, 

3 

X  3,  9020,  8004,  8002 

********************************************************** 

********************  #9005 

MEMBER  ******************** 

GEOM  TOL  i 
9006 

CLASS  ,  9005,13 
,  1,0,  0,0, 

0, 

0 

9007 

,  2,0,  0,0, 

0, 

0 

9008 

,  3,0,  0,0, 

0, 

0 

9009 

,  4,0,  0,0, 

0, 

0 

9010 

,  5,0,  0,0, 

0, 

0 

9011 

,  6,0,  0,0, 

0, 

0 

9012 

,  7,0,  0,0, 

0, 

0 

9013 

,  8,0,  0,0, 

0, 

0 

9014 

,  9,0,  0,0, 

0, 

0 

9015 

,10,0,  0,0, 

0, 

0 

■9016 

,11,0,  0,0, 

0, 

0 

9017 

,12,0,  0,0, 

0, 

0 

9018 

,13,0,  0,0, 

0, 

0 

********************************************************** 
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********************  #9006  MEMBER  ******************** 


CIRCULAR  RUNOUT 
KIND 

,  9006,14,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

TOLERANCE 

,14,1, 

0,2, 

4, 

32 

TOLERANCE  ENTITY 

',13,1, 

1,7, 

4, 

1 

X  4,11000,  8004, 

8002, 

2000 

A  1,254 

PRIMARY 

,15,1, 

0,7, 

4, 

2 

X  1,  9020 

CO_DATUM 

,16,0, 

0,7, 

4, 

3 

X  1,  9020 

********************************************************** 
★★★*★★★★★★★★★****★★★  #9007  MEMBER  ******************** 


CONCENTRICITY 

KIND 

,  9007 
,  1,1, 

,14,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERS  ON 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

o, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

TOLERANCE 

,14,1, 

0,2, 

4, 

32 

TOLERANCE 

.ENTITY, 13,1, 

1,7, 

4, 

1 

X  3,11000, 

8004, 

2000 

A  1,254 

PRIMARY 

,15,1, 

0,7, 

4, 

2 

X  1,  9020 

CO  DATUM 

,16,0, 

0,7, 

4, 

3 

X  1,  9020 
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********************  #9008  MEMBER  ******************** 


CYLINDR1CITY  ,  9008 

,12,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

TOLERANCE 

,14,1, 

0,2, 

4, 

32 

TOLERANCE 

ENTITY, 13,1, 

1,7, 

4, 

1 

X  3,11000, 

8004,  2000 

A  1,254 


********************************************************** 


********************  #9009  MEMBER  ******************** 


FLATNESS 

,  9009 

,13,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

TOLERANCE 

,14,1, 

0,2, 

4, 

32 

MATL  COND 

,15,1, 

0,5, 

1, 

36 

X  4,N 

,M 

TOLERANCE 

ENTITY, 13,1, 

1,7, 

4, 

1 

X  2,11000,  8004 
A  1,254 

********************************************************** 
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********************  #9010  MEMBER  ******************** 


LINE  PROFILE 
KIND 

,  9010 
,  1,1, 

,16,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

TOLERANCE 

,14,1, 

0,2, 

4, 

32 

APPLICATION 

,18,1, 

0,5, 

1, 

36 

X  3, BILATERAL  .INSIDE  .OUTSIDE 

TOLERANCE  ENTITY, 13,1,  1,7,  4,  1 

X  4,11000,  8004,  8002,  2000 
A  1,254 

PRIMARY  ,15,0,  0,8,  4,  2 

X  1,  1205 

SECONDARY  ,16,0,  0,8,  4,  3 

X  1,  1205 

TERTIARY  ,17,0,  0,8,  4,  4 

X  1,  1205 

********************************************************** 


********************  #9011  MEMBER  ******************** 


PARALLELISM  ,  9011,15,1 


KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD  I  SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

TOLERANCE 

,15,1, 

0,2, 

4, 

32 

CYLIN  TOL  ZONE 

,14,1, 

0,4, 

1, 

36 

MATL  COND 

,16,1, 

0,5, 

1, 

37 

X  4,N 

,M 
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TOLERANCE  ENTITY 

,13,1,  1,7, 

4, 

1 

X  4,11000,  8004, 

8002,  2000 

A  1,254 

PRIMARY 

,17,1,  0,8, 

4, 

2 

X  1,  1205 

********************* ************************************* 

********************  jjf  9  0 1 2 

MEMBER  ******************** 

PERPENDICULARITY,  9012,18,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

TOLERANCE 

,15,1,  0,2, 

4, 

32 

CYLIN  TOL  ZONE 

,14,1,  0,4, 

1, 

36 

MATL  COND 

,16,1,  0,5, 

1, 

37 

X  4,N 

,M 

,L  ,S 

TOLERANCE  ENTITY, 13,1,  1,7, 

4, 

1 

X  4,11000,  8004, 

8002,  2000 

A  1,254 

PRIMARY 

,17,1,  0,8, 

4, 

2 

X  1,  1205 

SECONDARY 

,18,0,  0,8, 

4, 

3 

X  1,  1205 

TERTIARY 

,19,0,  0,8, 

4, 

4 

X  1,  1205 

PROJ  TOL  ZONE 

,20,0,  0,7, 

4, 

5 

X  1,  3002 

********************************************************** 
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********************  #9013  MEMBER  ******************** 


POSITION 

,  9013 

,18,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1,  ' 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

TOLERANCE 

,15,1, 

0,2, 

4, 

32 

CYLIN  TOL  ZONE 

,14,1, 

0,4, 

1, 

36 

MATL  COND 

,16,1, 

0,5, 

1, 

37 

X  4,N  ,M  , L  '  ,S 

TOLERANCE.ENTITY ,13,1,  1,7,  4,  1 

X  5,11000,  8004,  8002,  8001,  2000 
A  1,254 

PRIMARY  ,17,1,  0,8,  4,  2 

X  1,  1205 

SECONDARY  ,18,1,  0,8,  4,  3 

X  1,  1205 

TERTIARY  ,19,0,  0,8,  4,  4 

X  1,  1205 

PROJ  TOL.ZONE  ,20,0,  0,7,  4,  5 

X  1,  3002 

********************************************************** 
********************  #9014  MEMBER  ******************** 


ROUNDNESS 

,  9014,12,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

TOLERANCE 

,14,1,  0,2, 

4, 

32 

TOLERANCE 

ENTITY, 13,1,  1,7, 

4, 

1 

X  4,11000, 

8004,  8002,  2000 

A  1,254 


********************************************************** 
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********************  19015  MEMBER  ******************** 


STRAIGHTNESS 

,  9015,15,1 

KINO 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,. 0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BD I SPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

ED I SPLAY 

,12,1,  0,9, 

6, 

30 

TOLERANCE 

,15,1,  0,2, 

4, 

32 

CYLIN  TOL  ZONE 

,14,1,  0,4, 

1, 

36 

MATL  COND 

,16,1,  0,5, 

1, 

37 

X  4,N 

,M 

>L 

,s 

TOLERANCE_ENTITY ,13,1,  1,7, 

4, 

1 

X  4,11000,  8004, 

8002,  2000 

A  1,254 

DIRECTION 

►— * 

<0 

o 

X# 

o 

<* 

4, 

2 

X  1,  3002 

********************************************************** 

********************  #goi6 

MEMBER  ******************** 

SURFACE  PROFILE 

,  9016,16,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

TOLERANCE 

,14,1,  0,2, 

4, 

32 

APPLICATION 

,18,1,  0,5, 

1, 

36 

X  3, BILATERAL 

,  INSIDE 

.OUTSIDE 

TOLERANCE  ENTITY, 13,1,  1,7, 

4, 

1 

X  3,11000,  8004, 

2000 

A  1,254 

PRIMARY 

, 15,0,  0,8, 

4, 

2 

X  1,  1205 

TERTIARY 

,16,0,  0,8, 

4, 

3 
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X  1,  1205 


SECONDARY 

,17,0,  0,8, 

4, 

4 

X  1,  1205 

it********************************************************* 

***************** 

***  #9017 

MEMBER  ******************** 

TOTAL  RUNOUT 

,  9017,14, 1 ' 

KIND 

,  M,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

TOLERANCE 

,14,1,  0,2, 

4, 

32 

TOLERANCE_ENTITY ,13,1,  1,7, 

4, 

1 

X  3,11000,  8004, 

2000 

A  1,254 

PRIMARY 

,15,1,  0,7, 

4, 

2 

X  1,  9020 

CO  DATUM 

,16,0,  0,7, 

4, 

3 

X  1,  9020 

********************************************************** 

********************  #goi8 

MEMBER  ******************** 

ANGULARITY 

,  9018,16,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

TOLERANCE 

,14,1,  0,2, 

4, 

32 

MATL  COND 

,15,1,  0,5, 

1, 

36 

X  4,N 

,M 

,  L  ,S 

TOLERANCE  ENTITY 

',13,1,  1,7, 

4, 

1 

X  4,11000,  8004, 

8002,  2000 
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A  1,254 


PRIMARY 

,16,1, 

CO 

o 

4, 

2 

X  1,  1205 

TERTIARY 

,17,0, 

CO 

o 

4, 

3 

X  1,  1205 

SECONDARY 

,18,0, 

CO 

o 

4, 

4 

X  1,  1205 

********************************************************** 

********************  I901Q 

MEMBER  ******************** 

OTHER  TOL  CLASS 

,  9019 

,  2 

9020 

,  1,0, 

0,0, 

0, 

0 

9021 

,  2,0, 

0,0, 

0, 

0 

********************************************************** 

********************  #9020 

MEMBER  ******************** 

DATUM 

,  9020,12,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

NAME 

,13,1, 

0,3, 

2, 

30 

DATUM  ENTITY 

,14,1, 

0,7, 

4, 

1 

X  3,11000,  8000, 

2000 

********************************************************** 

********************  #9021 

MEMBER  ******************** 

FEATURE  OF  SIZE 

,  9021 

,12,1 

KIND 

>  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

SIDE  1 

,13,1, 

0,7, 

4, 

1 
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X  1,  8004 


SIDE.2 

,14,1,  0,7, 

4, 

2 

X  1,  8004 

it********************************************************* 

********************  #10000 

ADMIN  DATACLASS , 10000 ,  9 

MEMBER  ******************** 

10001 

,  1,0,  0,0, 

4, 

0 

10002 

,  2,0,  0,0, 

0, 

0 

10003 

,  3,0,  0,0, 

0, 

0 

10004 

,  4,0,  0,0, 

0, 

0 

10005 

,  5,0,  0,0, 

0, 

0 

10006 

,  6,0,  0,0, 

0, 

0 

10007 

,  7,0,  0,0, 

0, 

0 

10008 

,  8,0,  0,0, 

0, 

0 

10009 

,  9,0,  0,0, 

0, 

0 

********************************************************** 

********************  #10001 
ADMINISTRATION  ,10001,13,1 

MEMBER  ******************** 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

I  DENT 

,  5,1,  0,1, 

4, 

20 

COST  CODE 

,  7,1,  0,3, 

10, 

24 

CONTRACT  NO 

,  8,1,  0,3, 

15, 

34 

SECURITY  CODE 

,  9,1,  0,3, 

1, 

49 

BCREATING  DWG 

,10,1,  0,9, 

0, 

50 

PART  NUMBER 

,11,1,  0,3, 

15, 

50 

PART  VERSION 

,12,1,  0,3, 

3, 

65 

FSCM  CODE 

,13,1,  0,3, 

5, 

68 

ECREATING  DWG 

,14,1,  0,9, 

23, 

73 

APPROVALS 

,15,0,  1,7, 

4, 

1 

X  1,10002 

A  0,254 

********************************************************** 

********************  #10002 
APPROVAL  ,10002,10,1 

MEMBER  ******************** 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,i,  u,l, 

4, 

rt 

O 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  5,1,  0,1, 

4, 

20 

APP  DATE 

,  7,1,  0,3, 

8, 

24 

APP  BY 

,  8,1,  0,3, 

25, 

32 

APP  FUNCTION 

,  9,1,  0,3, 

25, 

57 

APP~DEPT 

,10,1,  0,3, 

25, 

82 

ItliiHtltititlrlritltiklrititirirkirk’klrkiHrklrklt'klrkirlrk’kirkitlrleirk’kirk'klrk’k'klrkirk’k'k’k 
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********************  #10003  MEMBER  ******************** 


CHARACTERISTIC 

,10003,22,1 

KIND 

,  1,1,  0,1, 

4,  0 

LENGTH 

,  2,1,  0,1, 

4,  4 

SYSUSE 

,  3,1,  0,1, 

4,  8 

VERSION 

,  4,1,  0,1, 

4,  12 

SYS  IDENT 

,  5,1,  0,1, 

4,  16 

IDENT 

,  6,1,  0,1, 

4,  20 

BWEIGHT  OF  PART 

,10,1,  0,9, 

0,  24 

BT  CALCULATED 

,12,1,  0,9, 

0,  24 

XCG 

,14,1,  0,2, 

8,  24 

YCG 

,15,1,  0,2, 

8,  32 

ZCG 

,16,1,  0,2, 

8,  40 

XK 

,17,1,  0,2, 

8,  48 

YK 

,18,1,  0,2, 

8,  56 

ZK 

,19,1,  0,2, 

8,  64 

CALCULATED  WT 

,13,1,  0,2, 

4,  72 

ET  CALCULATED 

,20,1,  0,9, 

52,  76 

BTARGET 

,21,1,  0,9, 

0,  76 

“ 

NOMINAL 

,22,1,  0,2, 

4,  76 

LOW 

,23,1,  0,2, 

4,  80 

HIGH 

,24,1,  0,2, 

4,  84 

BASIS 

, 25 , 1 ,  0,5, 

1,  88 

X  4, ACTUAL 

, TARGET 

.ESTIMATED 

.PROCURMENT 

ETARGET 

,26,1,  0,9, 

13,  89 

UNITS 

,11,1,  0,5, 

1,  89 

X  4, OUNCE 

.POUND 

.GRAM 

.KILOGRAM 

EWEIGHT  OF  PART 

,27,1,  0,9, 

66,  90 

CLASS  CODE 

,  8,1,  0,3, 

32,  90 

SPARES  CODE 

,  9,1,  0,3, 

2,  122 

IR  CODE 

,  7,1,  0,3, 

2,  124 

NOTES 

,28,0,  1,7, 

4,  1 

X  1,10007 
A  0,  75 

********************************************************** 


********************  #10004  MEMBER  ******************** 


DETAIL  MODEL 

,10004 

,27,1 

KIND 

,  1, 

1, 

0,1, 

4, 

0 

LENGTH 

,  2, 

1, 

0,1, 

4, 

4 

SYSUSE 

,  3, 

1, 

0,1, 

4, 

8 

VERSION 

,  4, 

1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5, 

1, 

0,1, 

4, 

16 

IDENT 

,  6, 

1, 

0,1, 

4, 

20 

DEFAULT  TOL 

,16, 

1, 

0,2, 

4, 

24 

DEFAULT  ANG  TOL 

,17, 

1, 

0,2, 

4, 

28 

PART  TYPE 

,13, 

1, 

0,3, 

3, 

32 

STATUS 

,14, 

1, 

0,3, 

1, 

35 

UNITS  D  P 

,15, 

1, 

0,5, 

1, 

36 

;  2, INCH 

* 

MM 
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BPARTNO 

,  7,1, 

0,9, 

0, 

37 

PART  NUMBER 

,  8,1, 

0,3, 

15, 

37 

PART  VERSION 

,  9,1, 

0,3, 

3, 

52 

FSCM  CODE 

,10,1, 

0,3, 

5, 

55 

EPARTNO 

,11,1, 

0,9, 

23, 

60 

PART  NAME 

,12,1, 

0,3, 

60, 

60 

BSAME  AS  EXCEPT 

,18,1, 

0,9, 

'  o, 

120 

PART  NUMBER 

,19,1, 

0,3, 

15, 

120 

PART  VERSION 

,20,1, 

0,3, 

3, 

135 

FSCM  CODE 

,21,1, 

0,3, 

5, 

138 

ESAME  AS  EXCEPT 

,22,1, 

0,9, 

23, 

143 

CHARACTERISTIC 

,23,1, 

0,7, 

4, 

1 

X  1,10003 

NEXT  ASSY 

,24,0, 

1,7, 

4, 

2 

X  1,10009 

A  O,?^ 

ADM IK  INFO 

,25,1, 

0,7, 

4, 

3 

X  1,10001 

MATERIALS 

,26,0, 

1,7, 

4, 

4 

X  1,10006 

A  0,254 

SPECIFICATIONS 

,27,0, 

1,7, 

4, 

5 

X  1,10008 

A  0,254 

NOTES 

,28,0, 

1,7, 

4, 

6 

X  1,10007 

A  0,  75 

PART  TOL 

,29,0, 

1,7, 

4, 

7 

X  1,  9000 

A  0,254 

PART  FEATURE 

,  30 , 0 , 

1,7, 

4, 

8 

X  1,11000 

A  0,254 

PART  TOPOLOGY 

,31,1, 

0,7, 

4, 

9 

X  1,  8006 

A**********'*'*****'*'*'*'*'**********************'**********'***** 

********************  §  1 nnn 
EFFECTIVITY  ,10005,11,1 

MEMBER  ******************** 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

QTY  END  ITEM 

,11,1, 

0,1, 

2, 

24 

END  ITEM 

,  8,1, 

0,3, 

16, 

26 

FR  SERIAL 

,  9,1, 

0,3, 

6, 

42 

TO  SERIAL 

,10,1, 

0,3, 

6, 

48 

PART  USAGE 

,  7,1, 

0,3, 

2, 

54 

********************************************************** 
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********************  #10006  MEMBER  ******************** 


MATERIAL 

KIND 

,10006,17,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

-0,1, 

4, 

16 

ID£NT 

,  6,1, 

0,1, 

4, 

20 

ENVELOPE 

,10,3, 

1,2, 

4, 

24 

A  3,  3 

MATERIAL  NAME 

,  8,1, 

0,3, 

15, 

36 

MATERIAL  TITLE 

,  9,1, 

0,3, 

30, 

51 

MATERIAL  CODE 

,  7,1, 

0,3, 

10, 

81 

BMAKE  FROM 

,11,1, 

0,9, 

0, 

91 

PART  NUMBER 

,12,1, 

0,3, 

15, 

91 

PART  VERSION 

,13,1, 

0,3, 

3, 

106 

FSCM  CODE 

,14,1, 

0,3, 

5, 

109 

EMAKE  FROM 

,15,1, 

0,9, 

23, 

114 

CONDITION  AFTER 

,16,1, 

0,3, 

10, 

114 

STOCK  STRUCTURE 

,17,1, 

0,3, 

10, 

124 

NOTES 

,18,0, 

1,7, 

4, 

1 

X  1,10007 

A  0,  75 

SPECIFICATIONS 

,19,0, 

1,7, 

4, 

2 

X  1,10008 

A  0,254 

********************************************************** 

********************  #10007  MEMBER  ******************** 


NOTE 

KIND 

,10007 
,  1,1, 

k/VW  1 

,  9,1 
0,1, 

1  IUI  1 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

NOTE  NO 

,  7,1, 

0,1, 

4, 

24 

NOTE  TEXT 

,  8,1, 

1,7, 

4, 

1 

X  1,  1302 

A  1,254 
FLAGGED 

,  9,0, 

1,7, 

4, 

2 

X  2,11000,  8000 
A  0,254 

********************************************************** 
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» 


ft 


********************  #10008  MEMBER  ******************** 


SPECIFICATION 

KIND 

,10008,11,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

SPEC  IDENT 

,  7,1,  0,3, 

15, 

24 

SPEC  PARM 

,  8,1,  0,3, 

15, 

39 

SPEC  TYPE 

,  9,1,  0,3, 

3, 

54 

SPEC  NAME 

,10,1,  0,3, 

25, 

57 

NOTES 

,11,0,  1,7, 

4, 

1 

X  1,10007 

A  0,  75 

********************************************************** 

********************  #10009 

MEMBER  ******************** 

NEXT  ASSEMBLY 

,10009,12,1 

* 

KIND 

,  M,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

QTY  N  A 

,12,1,  0,1, 

2, 

24 

BNEXT  ASSY 

,  7,1,  0,9, 

0, 

26 

PART  NUMBER 

,  8,1,  0,3, 

15, 

26 

PART  VERSION 

,  9,1,  0,3, 

3, 

41 

FSCM  CODE 

,10,1,  0,3, 

5, 

44 

ENEXT  ASSY 

,11,1,  0,9, 

23, 

49 

NOTES 

,13,0,  1,7, 

4, 

1 

X  1,10007 

A  0,  75 
EFFECTIVITY 

,14,0,  1,7, 

4, 

2 

X  1,10005 


A  0,254 


********************************************************** 

********************  000 

MEMBER  ******************** 

FEATURE  CLASS 

,11000,  4 

12000 

,  1,0,  0,0, 

0, 

0 

13000 

,  2,0,  0,0, 

0, 

0 

14000 

>  3,0,  0,0, 

0, 

0 

15000 

,  4,0,  0,0, 

0, 

0 

********************************************************** 
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*M*4Ht**************  #12000  MEMBER  ******************** 


COMPOSITE  CLASS 

,12000,  8 

12001 

,  1,0,  0,0, 

0, 

0 

12002 

,  2,0,  0,0, 

0, 

0 

12003 

,  3,0,  0,0, 

0, 

0 

12004 

,  4,0,  0,0, 

0, 

0 

12005 

,  5,0,  0,0, 

0, 

0 

12006 

,  6,0,  0,0, 

0, 

0 

12007 

,  7,0,  0,0, 

0, 

0 

12008 

,  8,0,  0,0, 

0, 

0 

********************************************************** 

★★**★★*★*★*****★****  #12001 

MEMBER 

******************** 

PLY  DETAIL 

,12001,19,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BD I SPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

ED I SPLAY 

,12,1,  0,9, 

6, 

30 

STACK  NO 

,19,1,  0,1, 

4, 

32 

CUT 

,18,1,  0,5, 

1, 

36 

X  3, MANUAL 

,AUTO 

,NA 

DASH  NO 

,13,1,  0,3, 

5, 

37 

INVERTED 

,20,1,  0,5, 

1, 

42 

X  3, YES 

,N0 

,NOT_APPLICABLE 

BORIENTATION 

,14,1,  0,9, 

0, 

1 

COL  REF  PNT 

,15,1,  0,7, 

4, 

1 

X  1,  3001 

FILAMENT  DIR 

,16,1,  0,7, 

4, 

2 

X  1,  3002 

EORIENTATION 

,17,1,  0,9, 

8, 

3 

SHAPE 

,21,1,  1,7, 

4, 

3 

X  1,  8004 

A  1,254 

FLAT  PAT 

,22,1,  1,7, 

4, 

4 

X  1,12009 

A  1,254 

PLY  MATERIAL 

,23,0,  0,7, 

4, 

5 

~  — . .  —  7— —  7-7  —  7  '  7  ’  7  — 

X  1,10006 

********************************************************** 
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********************  #12002 
PLY  ,12002,12,1 

MEMBER 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PLY  NO 

,13,1, 

0,3, 

15, 

30 

DETAIL 

,14,1, 

1,7, 

4, 

1 

X  1,12001 
A  1,254 

********************************************************** 
********************  #12003  MEMBER  ******************** 


PLY  TABLE 

,12003 

,12,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

o, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

LOCATION 

,13,1, 

0,7, 

4, 

1 

X  1,  3001 

ENTRY 

X  1,12001 

,14,1, 

1,7, 

4, 

2 

A  1,254 

********************************************************** 
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********************  #12004  MEMBER  ******************** 


LAMINATE 

KIND 

,12004,14,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  5,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

PLYS 

,13,1,  1,7, 

4, 

1 

X  1,12002 

A  1,254 

PRIMARY 

,14,1,  1,7, 

4, 

2 

X  1,  8004 

A  1,254 

SECONDARY 

i—i 

#* 

pH 

in 

pH 

e* 

4, 

3 

X  1,  8004 

A  1,254 

PLY  TABLE_REF 

,16,1,  1,7, 

4, 

4 

X  1,12003 

A  1,254 

********************************************************** 

********************  #12005  MEMBER  ******************** 


COMP  FLANGE 

IT  i  LV/v  J 

,12005,13,1 

IILII 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

P  FACE 

X  I,  8004 

A  1,254 

,13,1, 

1,7, 

4, 

1 

S  FACE 

,14,1, 

2,7, 

4, 

2 

X  1,  8004 
A  1,254,  1,254 
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T_FACE  ,15,1,  2,7,  4,  3 

X  1,  8004 
A  1,254,  1,254 

********************************************************** 


********************  #12006  hi  EMBER  ******************** 


COMP  HOLE  ,12006,12,1 

KIND  ,  1,1,  0,1, 

4, 

0 

LENGTH  ,  2,1,  0,1, 

4, 

4 

SYSUSE  ,  3,1,  0,1, 

4, 

8 

VERSION  ,  4,1,  0,1, 

4, 

12 

SYS  IDENT  ,  5,1,  0,1, 

4, 

16 

IDENT  ,  6,1,  0,1, 

4, 

20 

BD I SPLAY  ,  7,1,  0,9, 

0, 

24 

DISPLAYED  ,  8,1,  0,4, 

1, 

24 

RBG  LEVEL  ,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY  ,10,1,  0,1, 

1, 

28 

SYMBOL  ,11,1,  0,1, 

1, 

29 

EDISPLAY  ,12,1,  0,9, 

6, 

30 

IMPLICITE  C  HOLE, 13,1,  0,8, 

4, 

1 

X  1,  1203 

BEXPLICITE  C  HOLE, 14,0,  0,9, 

o, 

2 

WALL  ,15,1,  1,7, 

4, 

2 

X  1,  8004 

A  1,254 

EEXPLICITEC  HOLE, 16,0,  0,9, 

4, 

3 

********************************************************** 

********************  #12007 

MEMBER  ******************** 

COMP  TRANSITION  ,12007,12,1 

KIND  ,  1,1,  0,1, 

4, 

0 

LENGTH  ,  2,1,  0,1, 

4, 

4 

SYSUSE  ,  3,1,  0,1, 

4, 

8 

VERSION  ,  4,1,  0,1, 

4, 

12 

SYS  IDENT  ,  5,1,  0,1, 

4, 

16 

IDENT  ,  6,1,  0,1, 

4, 

20 

BDISPLAY  ,  7,1,  0,9, 

0, 

24 

DISPLAYED  ,  8,1,  0,4, 

1, 

24 

RBGLEVEL  ,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY  ,10,1,  0,1, 

1, 

28 

SYMBOL  ,11,1,  0,1, 

1, 

29 

EDISPLAY  ,12,1,  0,9, 

6, 

30 

TRAN  SURF  ,13,1,  1,7, 

4, 

1 

X  1,  8004 

A  1,254 

PLY.DROPPED  ,14,1,  1,7, 

4, 

2 

■  —  • -  -  7  *  1  7  “  7  “  7  ’  7  '  7  » 

X  1,12001 
A  1,254 

********************************************************** 
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********************  #12008  MEMBER  ******************** 


COMP  RABBET 
KINO 

00  - 
O  —1 

o  - 

CM  •-< 

,15,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

MATING  CORNER 

,13,2, 

1,8, 

4, 

1 

X  1,  1206 

A  2,  2 

BENT  PLYS 

,14,1, 

1,7, 

4, 

2 

X  1,12001 

A  1,254 

CONT  PLYS 

,15,1, 

1,7, 

4, 

3 

X  1,12001 

A  1,254 

STOPPED  PLYS 

,16,1, 

1,7, 

4, 

4 

X  1,12001 

A  1,254 

RABBET_SURF 

,17,1, 

1,7, 

4, 

5 

X  1,  8004 
A  1,254 

********************************************************** 
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#12009  MEMBER  ******************** 


COMP  FLAT  PAT 
KIND 

,12009 
,  1,1, 

,13,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

BORIENTATION 

,13,1, 

0,9, 

0, 

1 

COL  REF  PNT 

,14,1, 

0,7, 

4, 

1 

X  1,  3001 

FILAMENT  DIR 

,15,1, 

0,7, 

4, 

2 

X  1,  3002 

EORIENTATION 

,16,1, 

0,9, 

8, 

3 

PERIPHERY 

,17,1, 

0,7, 

4, 

3 

X  1,  8004 

********************************************************** 
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********************  #13000  MEMBER  ******************** 


MACHINE  CLASS 
13001 

,13000 
,  1,0, 

,13 

0,0, 

0, 

0 

13002 

,  2,0, 

0,0, 

0, 

0 

13003 

,  3,0, 

0,0, 

0, 

0 

13004 

,  4,0, 

0,0, 

0, 

0 

13005 

,  5,0, 

0,0, 

0, 

0 

13006 

,  6,0, 

0,0, 

0, 

0 

13007 

,  7,0, 

0,0, 

0, 

0 

13008 

,  8,0, 

0,0, 

0, 

0 

13009 

,  9,0, 

0,0, 

0, 

0 

13010 

,10,0, 

0,0, 

0, 

0 

13011 

,11,0, 

0,0, 

0, 

0 

13012 

,12,0, 

0,0, 

0, 

0 

13013 

,13,0, 

0,0, 

0, 

0 

********************************************************** 
********************  #13001  MEMBER  ******************** 


FEATURE.EDGE  ,13001,13,1 


KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 
A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

START 

X  2,  8001, 

4000 

,13,1, 

0,7, 

4, 

1 

FINISH 

X  2,  8001, 

4000 

,14,1, 

0,7, 

4, 

2 

EDGREF 

X  2,  8002, 

5000 

,15,1, 

0,7, 

4, 

3 

********************************************************** 


G-84 


PS  56013000A 
1  January  1987 


******************** 


#13002  MEMBER 


******************** 


MACH  CHAMFER 

1  ,13002,13,1 

KIND" 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BD I SPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

ED I SPLAY 

,12,1,  0,9, 

6, 

30 

P  FACE 

,13,1,  1,7, 

4, 

1 

X  1,  8004 

A  1,254 

IMPLICITE  M 

CHAM, 14,0,  0,8, 

4, 

2 

X  1,  1207 

BEXPLICITE  M 

CHAM, 15,0,  0,9, 

0, 

3 

C  FACE 

,16,1,  1,7, 

4, 

3 

X  I,  8004 

A  1,254 

EEXPLICITE  M 

CHAM, 17,0,  0,9, 

4, 

4 

************************************* 

********************  #13003 

MEMBER 

MACH  CUTOUT 

,13003,11,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BD I SPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

ED I SPLAY 

,12,1,  0,9, 

6, 

30 

WALL 

,13,1,  1,7, 

4, 

1 

******************** 


X  1,  8004 
A  1,254 

********************************************************** 


G-85 


********************  #13004  MEMBER  ******************** 


MACH  FILLET 

,13004 

,12,1 

KINO 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

IMPLICITE  M 
X  1,  1208 

.FILT, 13,0, 

0,8, 

4, 

1 

BEXPLICITE  M 

FILT, 14,0, 

0,9, 

0, 

2 

FIL  FACE 

,15,0, 

1,7, 

4, 

2 

X  1,  8004 

A  1,254 
EEXPLICITE  M 

FILT, 16,0, 

0,9, 

4, 

3 

************************************* 

********************  #i3QQ5 

MEMBER 

MACH  FLANGE 

,13005 

,13,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

P  FACE 

X  1,  8004 

A  1,254 

,1*3,1, 

1,7, 

4, 

1 

S  FACE 

X  1,  <*004 

,14,1, 

2,7, 

4, 

2 

A  1,254,  1,254 

T_FACE 

,15,1, 

2,7, 

4, 

3 

******************** 


X  1,  8004 
A  1,254, 


1,254 


********************************************************** 


PS  56013000A 
1  January  1987 


G-86 


PS  56013000A 
1  January  1987 


********************  #13006  MEMBER  ******************** 


THRU  HOLE 

,13006 

,12,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

»  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

.12,1, 

0,9, 

6, 

30 

IMPLICITE 

T  HOLE, 13,0, 

0,8, 

4, 

1 

X  1,  1203 

BEXPLICITE 

T  HOLE, 14,0, 

0,9, 

0, 

2 

WALL 

,15,0, 

1,7, 

4, 

2 

X  1,  8004 

A  1,254 

EEXPLICITE. 

_T_HOLE, 16,0, 

0,9, 

4, 

3 

A*********************** ***************** ***************** 


********************  #13007  MEMBER  ******************** 


BLIND  HOLE 
KIND 

,13007 
,  1,1, 

,13,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

IMPLICITE  B 

HOLE, 13,0, 

0,8, 

4, 

1 

X  1,  1204 

BEXPLICITE  B 

HOLE, 14,0, 

0,9, 

0, 

2 

WALL 

,15,0, 

1,7, 

4, 

2 

X  1,  8004 

A  1,254 

BOTTOM 

,16,0, 

1,7, 

4, 

3 

X  1,  8004 

A  1,254 

EEXPLICITE.B. 

.HOLE, 17,0, 

0,9, 

8, 

4 

********************************************************** 


G-87 


PS  56013000A 
1  January  1987 


********************  #13008  MEMBER  ******************** 


MACH  INSIDE  CORN, 13008, 12,1 

KIND  ,  1,1,  0,1, 

4, 

0 

LENGTH  ,  2,1,  0,1, 

4, 

4 

SYSUSE  ,  3,1,  0,1, 

4, 

8 

VERSION  ,  4,1,  0,1, 

4, 

12 

SYS  IDENT  ,  5,1,  0,1, 

4, 

16 

IDENT  ,  6,1,  0,1, 

4, 

20 

BD I SPLAY  ,  7,1,  0,9, 

0, 

24 

DISPLAYED  ,8,1,  0,4, 

1, 

24 

RBG  LEVEL  ,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY  ,10,1,  0,1, 

1, 

28 

SYMBOL  ,11,1,  0,1, 

1, 

29 

EDISPLAY  ,12,1,  0,9, 

6, 

30 

IMPLICITE  M  I  C  ,13,0,  0,8, 

4, 

1 

X  1,  1209 

BEXPLICITE  M  I  C  ,14,0,  0,9, 

0, 

2 

CFACE  ,15,0,  1,7, 

4, 

2 

X  1,  8004 

A  1,254 

EEXPLICITE_M_I_C  ,16,0,  0,9, 

4, 

3 

********************************************************** 

********************  #]3009 

MEMBER  ******************** 

MACH.PERIPHERY  ,13009,11,1 

KIND  ,  1,1,  0,1, 

4, 

0 

LENGTH  ,  2,1,  0,1, 

4, 

4 

SYSUSE  ,  3,1,  0,1, 

4, 

8 

VERSION  ,  4,1,  0,1, 

4, 

12 

SYS  IDENT  ,  5,1,  0,1, 

4, 

16 

IDENT  ,  6,1,  0,1, 

4, 

20 

BDISPLAY  ,  7,1,  0,9, 

0, 

24 

DISPLAYED  ,  8,1,  0,4, 

1, 

24 

RBG  LEVEL  ,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY  ,10,1,  0,1, 

1, 

28 

SYMBOL  ,11,1,  0,1, 

1, 

29 

EDISPLAY  ,12,1,  0,9, 

6, 

30 

PERIPHERY  ,13,1,  1,7, 

4, 

1 

X  1,  8004 
A  1,254 

********************************************************** 


G-88 


PS  56013000A 
1  January  1987 


** * *****************  #13010  MEMBER  ******************** 


MACH  POCKET 
KIND 

,13010, 
,  1,1, 

,12,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

WALL 

,13,1, 

1,7, 

4, 

1 

X  1,  8004 

A  1,254 

FLOOR 

,14,1, 

1,7, 

4, 

2 

X  1,  8004 
A  1  254 

********************************************************** 
********************  #13011  MEMBER  ******************** 


MACH  TRANSITION 

,13011, 

,11,1 

KIND- 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  37  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

T  FACE 

,13,1, 

2,7, 

4, 

1 

X  1,  8004 
A  1,254,  1,254 

********************************************************** 


G-89 


PS  56013000A 
1  January  1987 


********************  #13012 
MACH  TRIM  ,13012,11,1 

MEMBER 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

I  DENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

ED I SPLAY 

,12,1, 

0,9, 

6, 

30 

TRIM 

,13,1, 

1,7, 

4, 

1 

X  1,  8004 
A  1,254 

**************************************************4******* 
********************  #13013  MEMBER  ******************** 


MACH  WEB 

,13013 

,12,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PRIMARY  FACE 

X  1,  8004 

A  1,254 

,13,1, 

1,7, 

4, 

1 

SECONDARY  FACE 

,14,1, 

2,7, 

4, 

2 

X  1,  8004 
A  1,254,  1,254 

********************************************************** 


G-90 


PS  56013000A 
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********************  #14000  MEMBER  ******************** 


S  M  CLASS 
14001 

,14000 
,  1,0, 

,14 

0,0, 

0, 

0 

14002 

,  2,0, 

0,0, 

0, 

0 

14003 

,  3,0, 

0,0, 

0, 

0 

14004 

,  4,0, 

0,0, 

0, 

0 

14005 

,  5,0, 

0,0, 

0, 

0 

14006 

,  6,0, 

0,0, 

0, 

0 

14007 

,  7,0, 

0,0, 

0, 

0 

14008 

,  8,0, 

0,0, 

0, 

0 

14009 

,  9,0, 

0,0, 

0, 

0 

14010 

,10,0, 

0,0, 

0, 

0 

14011 

,11,0, 

0,0, 

0, 

0 

14012 

,12,0, 

0,0, 

0, 

0 

14013 

,13,0, 

0,0, 

0, 

0 

14014 

,14,0, 

0,0, 

0, 

0 

********************************************************** 

********************  #14001  MEMBER  ******************** 


S  M  BODY 

,14001,12,1 

riui  i 

ULI\ 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PRIMARY  FACE 

X  1,  8004 

A  1,254 

,13,1, 

1,7, 

4, 

1 

SECONDARY  FACE 

,14,1, 

1,7, 

4, 

2 

X  1,  8004 
A  1,254 

********************************************************** 


G-91 


PS  56013000A 
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********************  #14002  MEMBER  ******************** 


S  M  FLANGE 

,14002 

,12,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PRIMARY  FACE 

X  1,  8004 

A  1,254 

,13,1, 

1,7, 

4, 

1 

SECONDARY  FACE 

,14,1, 

1,7, 

4, 

2 

X  1,  8004 
A  1,254 

********************************************************** 
********************  #14003  MEMBER  ******************** 


S  M  WEB 

KIND 

,14003,12,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PRIMARY  FACE 

,13,1, 

1,7, 

4, 

1 

A  1  254 

SECONDARY.FACE  ,14,1,  1,7,  4,  2 

X  1,  8004 
A  1,254 

********************************************************** 


G-92 


******************** 


#14004  MEMBER 


******************** 


S  M  POCKET 
KIND 

,14004,14,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1 ,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

CM  SIDE 

,13,1,  C , 5 , 

1, 

30 

X  2, NEAR 

CM  PROCESS 

,FAR 

,14,1,  0,5, 

1, 

31 

X  3, SCRIBE 

,SCRIBESEAL 

, NOT  AP 

WALL 

,15,1,  1,7, 

4, 

1 

X  1,  8004 

A  1,254 

FLOOR 

,16,1,  1,7, 

4, 

2 

X  1,  8004 

A  1,254 

•*  ★  ★  ★  ★  *  ★  *  * *  *  *  *  *  ★  ★  ★  ★  ★  ★ *  *  *  ★  *r  ★ ★ ★ *  *c  ★ ★ *  ★  ★  *  * ★  *r  *  *  ★  *  *r  *r  ★  *  *  *  *  ★  *  *  ★  ★  ★  ★  ★ 

*********************  #14005 

MEMBER  ******************** 

S  M  NOTCH 

KIND 

,14005,12,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

WALL 

,13,1,  1,7, 

4, 

1 

X  1,  8004 

A  1,254 

CRIMP 

♦— * 

O 

o 

4, 

2 

X  1,14007 

********************************************************** 

PS  56013000A 
1  January  1987 


G  -  93 


PS  56013000A 
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********************  #14006  MEMBER  ******************** 


S  M  JOGGLE 

KIND 

,14006,15,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

I  DENT 

,  6,1,  0,1, 

4, 

20 

BDI SPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDI SPLAY 

,12,1,  0,9, 

6, 

30 

RADIUS 

,17,1,  0,2, 

4, 

32 

PRIMARY  FACE 

,13,1,  1,7, 

4, 

1 

X  1,  8004 

A  1,254 
SECONDARY  FACE 

,14,1,  1,7, 

4, 

2 

X  1,  8004 

A  1,254 

BEND1 

,15,1,  0,7, 

4, 

3 

X  1,13001 

BEND2 

,16,1,  0,7, 

4, 

4 

X  1,13001 

********************************************************** 

********************  #14007 

MEMBER  ******************** 

S  M  CRIMP 

KIND 

,14007,15,1 
,  M,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

BEND  RAD 

,13,1,  0,2, 

4, 

32 

CR  SETBACK 

,14,1,  0,2, 

4, 

36 

CR  ANGLE 

,15,1,  0,2, 

4, 

40 

CR  ORINTATION 

,16,1,  0,7, 

4, 

1 

X  1,  3002 

FORM.LINE 

,1 7,1,  0,7, 

4, 

2 

X  1,13001 

********************************************************** 


G-94 


PS  56013000A 
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#14008  MEMBER  ******************** 


S_M_FLAT_PATTERN , 1 4008 ,12,1 


KINO 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

I  DENT 

,  5,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

BASE 

,13,1,  0,7, 

4, 

1 

X  1,  6005 

PERIPH 

X  1,  5000 

,14,2,  1,7, 

4, 

2 

A  2,254 

********************************************************** 

********************  #14009 
S_M  CUTOUT  ,14009,13,1 

MEMBER  ******************** 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  5,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

o, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

FLANGE  ANGLE 

,14,1,  0,2, 

4, 

32 

PERIPH 

,13,2,  1,7, 

4, 

1 

X  1,  5000 

A  2,254 

FLANGE_PERIPHERY, 15,0,  1,7, 

4, 

2 

X  1,  5000 
A  0,254 

********************************************************** 
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********************  H4010  MEMBER  ******************** 


S  M  FLAT  HOLE 

,14010,15,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

I  DENT 

,  6,1,  0,1, 

4, 

20 

BDISPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

,  9,3,  1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

DIAMETER 

,14,1,  0,2, 

4, 

32 

CM  SIDE 

,15,1,  0,5, 

1, 

36 

X  3, NEAR  SIDE 

,FAR_SIDE 

,N0T_APLIC 

CM  PROCESS 

,16,1,  0,5, 

1, 

37 

X  3, SCRIBE 

,SCRIBESEAL 

, N0T_AP 

HOLE  TYPE 

in 

o 

#* 

r*. 

trH 

1, 

38 

X  4, DRILLED 

, TOOLING 

, CUTOUT 

,CHEMMILL 

LOCATION 

,13,1,  0,7, 

4, 

1 

X  1,  4000 

********************************************************** 

********************  #i4on  MEMBER  ******************** 


S  M  FLAT  WEB 
KIND 

,14011,12,1 
,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PERI  PH 

,13,2, 

1,7, 

4, 

1 

X  1,  5000 

A  2,254 

BENDS 

,14,0, 

1,7, 

4, 

2 

X  1,14014 

A  0,254 

********************************************************** 
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Mr******************  1^4012  MEMBER  ******************** 


S_M_FLAT_FLANGE  ,14012,12,1 


KINO 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PERIPH 

,13,2, 

1,7, 

4, 

1 

X  1,  5000 

A  2,254 

BENDS 

,14,0, 

1,7, 

4, 

2 

X  1,14014 


A  0,254 


********************  #14013 
S_M_FLAT_NOTCH  , 14013 ,12,1 

MEMBER  ******************** 

KINO 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

o, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PERIPH 

,13,2, 

1,7, 

4, 

1 

X  1,  5000 

A  2,254 

CRIMP 

,14,0, 

0,7, 

4, 

2 

X  1,14007 

********************************************************** 
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********************  #14014  MEMBER  ******************** 


S  M  BEND 

KIND 

,14014 
,  1,1, 

,13,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

ED I SPLAY 

,12,1, 

0,9, 

6, 

30 

BENDLINE 

,13,1, 

1,7, 

4, 

1 

X  1,  5000 

A  1,254 

RADIUS 

,14,1, 

1,8, 

4, 

2 

X  1,  1211 

A  1,254 

BEND 

,15,1, 

1,8, 

4, 

3 

X  1,  1210 

A  1,254 

********************************************************** 

********************  #15000 


TURNED  CLASS 

,15000 

,19 

15001 

,  1,0, 

0,0, 

15002 

,  2,0, 

0,0, 

15003 

,  3,0, 

0,0, 

15004 

,  4,0, 

0,0, 

15005 

,  5,0, 

0,0, 

15006 

,  6,0, 

0,0, 

15007 

,  7,0, 

0,0, 

15008 

,  8,0, 

0,0, 

15009 

,  9,0, 

0,0, 

15010 

,10,0, 

0,0, 

15011 

,11,0, 

0,0, 

15012 

,12,0, 

0,0, 

15013 

,13,0, 

0,0, 

15014 

,14,0, 

0,0, 

15015 

,15,0, 

0,0, 

15016 

,16,0, 

0,0, 

15017 

,17,0, 

0,0, 

15018 

,18,0, 

0,0, 

15019 

,19,0, 

0,0, 

MEMBER  ******************** 

0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  0 
0,  o 
0,  0 
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********************  #15001  MEMBER  ******************** 


TRN  END 

KIND 

,15001 
,  1,1, 

,11,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

I  DENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

EOP 

,13,1, 

1,7, 

4, 

1 

X  1,  8002 
A  1,254 

********************************************************** 
********************  #15002  MEMBER  ******************** 


TRN  GROOVE 

,15002 

,11,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

o, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

GROOVE 

X  1,  8002 

,13,1, 

1,7, 

4, 

1 

A  1,254 


********************************************************** 
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********************  H5003 
TRN  OPEN  DIA  ,15003,11,1 

MEMBER 

KINO 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

OPEN  DIA 

,13,1, 

1,7, 

4, 

1 

—  - - J  -  7  —  7"  7  "7  — 

X  1,  8002 
A  1,254 

********************************************************** 
********************  H50Q4  MEMBER  ******************** 


TRN  REC  DIA 

,15004,11,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

RECESS  DIA 

,13,1, 

1,7, 

4, 

1 

X  1,  8002 
A  1,254 

********************************************************** 
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********************  #15005  MEMBER  ******************** 


TRN  RELIEF 

,15005,11,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  I DENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BD I SPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3,  1,1, 

1, 

25 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

RELIEF 

,13,1,  1,7, 

4, 

1 

X  1,  8002 
A  1,254 

********************************************************** 
********************  #15006  MEMBER  ******************** 


TRN  TAPER 

,15006, 

,11,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

o, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LFVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

TAPER 

X  1,  8002 

,13,1, 

1,7, 

4, 

1 

A  1,254 

********************************************************** 
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********************  #15007 
TRN  TRANS  ,15007,11,1 

MEMBER 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

I  DENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

TRANSITION 

,13,1, 

1,7, 

4, 

1 

X  1,  8002 
A  1,254 

********************************************************** 


********************  #15008  MEMBER  ******************** 


TRN  THREAD 

,15008,14,1 

KIND 

,  1,1,  0,1, 

4, 

0 

LENGTH 

,  2,1,  0,1, 

4, 

4 

SYSUSE 

,  3,1,  0,1, 

4, 

8 

VERSION 

,  4,1,  0,1, 

4, 

12 

SYS  IDENT 

,  5,1,  0,1, 

4, 

16 

IDENT 

,  6,1,  0,1, 

4, 

20 

BD I SPLAY 

,  7,1,  0,9, 

0, 

24 

DISPLAYED 

,  8,1,  0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3,  1,1, 

1, 

25 

INTENSITY 

,10,1,  0,1, 

1, 

28 

SYMBOL 

,11,1,  0,1, 

1, 

29  . 

EDISPLAY 

,12,1,  0,9, 

6, 

30 

TPU 

,15,1,  0,2, 

4, 

32 

MAJOR 

,16,1,  0,2, 

4, 

36 

FORM 

,13,1,  0,5, 

1, 

40 

X  9, SHARP  V 

.UNIFIED. 

NATIONAL, SQUARE 

.SIXTY  DEG  STUB 

X  9, ACME 

,STUB  ACME 

.BUTTRESS 

.KNUCKLE 

X  9, BRIT  STAND.WIT 

CLASS 

,14,1,  0,5, 

1, 

41 

X  6,0NE_A 

, TW0_A 

,THREE_A 

,ONE_B 

X  6 , TWO_B  ,THREE_B 

********************************************************** 


» 
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********************  #15009  MEMBER  ******************** 


TRN  UNDERCUT 

,15009 

,11,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

UNDERCUT 

,13,1, 

1,7, 

4, 

1 

X  1,  8002 
A  1,254 

*★★★★★*★**★★★★★★★★★★*★★★★★★★★★*★★★*★★****★**★**★***★★*★*★* 
******m************  #15010  MEMBER  ******************** 


TRN  OPEN  FACE 
KIND 

,15010 
,  1,1, 

,11,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

OPEN  FACE 

,13,1, 

1,7, 

4, 

1 

X  1,  8002 
A  1,254 

1t4He+4e^ttk^rk^l1rk^rk^^itiHck^l1c^i^rk^l1t^rk^^1t1rit"k'k’k•k^'1''k1rk1rk‘k^c^e'k,k^c4t'k1e•k'k^rk'k4c 
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********************  #15011  MEMBER  ******************** 


TRN  REC  FACE 

,15011 

,11,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

I  DENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

ED I SPLAY 

,12,1, 

0,9, 

6, 

30 

RECESS 

,13,1, 

1,7, 

4, 

1 

X  1,  8002 
A  1,254 

**************************************************4******* 

********************  #15012  MEMBER  ******************** 


TRN  S  0  FACE 
KIND 

,15012 
,  1,1, 

,11,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

6 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

SEMIOPEN 

,13,1, 

1,7, 

4, 

1 

X  1,  8002 
A  1,254 

********************************************************** 
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********************  #25013 


TRN  S  0  DIA 

,15013. 

,11, 

KIND 

,  1,1, 

0,1 

LENGTH 

,  2,1, 

0,1 

SYSUSE 

,  3,1, 

0,1 

VERSION 

,  4,1, 

0,1 

SYS  IDENT 

,  5,1, 

0,1 

IDENT 

,  6,1, 

0,1 

BDISPLAY 

,  7,1, 

0,9 

DISPLAYED 

,  8,1, 

0,4 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1 

INTENSITY 

,10,1, 

0,1 

SYMBOL 

,11,1, 

0,1 

EDISPLAY 

,12,1, 

0,9 

SEMIOPEN 

,13,1, 

1,7 

X  1,  8002 
A  1,254 


MEMBER  ******************** 

4,  0 

4,  4 

4,  8 

4,  12 

4,  16 

4,  20 

0,  24 

1,  24 

1,  25 

1,  28 
1,  29 

6,  30 

4,  1 


********************************************************** 


********************  #}5014  MEMBER  ******************** 


TRN  AXIS 

KIND 

,15014 
,  1,1, 

,12,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PO 

,13,1, 

0,7, 

4, 

1 

X  1,  4000 

PI 

,14,1, 

0,7, 

4, 

2 

X  1,  4000 

*********************************************************** 
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********************  #15015  MEMBER  ******************** 


GAGE  POINT 

KIND- 

,15015 
,  1,1, 

,12,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

GAGE  LOC 

,13,1, 

0,7, 

4, 

1 

X  1,  4001 

GAGE  REF 

,14,1, 

0,7, 

4, 

2 

X  4,  3000,  4000,  5000,  6000 

********************************************************** 

********************  #15016  MEMBER  ******************** 


TURNED  CHAMFER 

,15016,11,1 

1  ILI  1 

tuurv 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

i  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

CHAM 

X  1,  C%2 

,13,1, 

1,7, 

4, 

1 

A  1,254 


********************************************************** 
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********************  #15017  MEMBER  ******************** 


TURNED  CORN  RND 

,15017 

,11,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BD I SPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

C  ROUND 

,13,1, 

1,7, 

4, 

1 

X  1,  8002 
A  1,254 

********************************************************** 
********************  #15018  MEMBER  ******************** 


TURNED  FILLET 
KIND 

,15018 
,  1,1, 

,11,1 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

o, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

,  9,3, 

1,1, 

1, 

25 

A  3,  3 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

C  FILET 

,13,1, 

1,7, 

4, 

1 

X  1,  8002 
A  1,254 

********************************************************** 
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********************  #15019  MEMBER  ******************** 


TURNED  PROFILE 

,15019 

,11,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

I  DENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  37  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

PROF 

,13,1, 

1,7, 

4, 

1 

X  1,  5000 
A  1,254 

***********************************************i >********* 


********************  #15020  MEMBER  ******************** 


EDGE  BREAK 

,15020 

,13,1 

KIND 

,  1,1, 

0,1, 

4, 

0 

LENGTH 

,  2,1, 

0,1, 

4, 

4 

SYSUSE 

,  3,1, 

0,1, 

4, 

8 

VERSION 

,  4,1, 

0,1, 

4, 

12 

SYS  IDENT 

,  5,1, 

0,1, 

4, 

16 

IDENT 

,  6,1, 

0,1, 

4, 

20 

BDISPLAY 

,  7,1, 

0,9, 

0, 

24 

DISPLAYED 

,  8,1, 

0,4, 

1, 

24 

RBG  LEVEL 

A  3,  3 

,  9,3, 

1,1, 

1, 

25 

INTENSITY 

,10,1, 

0,1, 

1, 

28 

SYMBOL 

,11,1, 

0,1, 

1, 

29 

EDISPLAY 

,12,1, 

0,9, 

6, 

30 

MINRAD 

,13,1, 

0,2, 

4, 

32 

MAX RAO 

,14,1, 

0,2, 

4, 

36 

E  B  EDGES 

,15,1, 

1,7, 

4, 

1 

X  2,  8001,  8002 
A  1,254 

********************************************************** 
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SECTION  1 
SCOPE 


1 . 1  Identification 


This  Appendix  describes  the  "As  Built"  software  specifications  for  the 
Schema  Manager.  The  Schema  Manager  was  developed  under  the  Geometric  Modeling 
Applications  Interface  Program  (GMAP)  and  enhanced  under  this  project  -  Product 
Definition  Data  Interface  (PDDI).  This  project,  5601,  was  conducted  under  the 
Air  Force  Contract  F33516-82-C-5036. 

1.2  Introduction 


The  Schema  Manager  software  is  presented  in  its  entirety  in  order  to  aid 
in  the  understanding  of  this  software  package.  This  manual  is  a  reference 
'  document  for  programming  personnel  who  maintain  and  enhance  the  PDDI  software. 
The  two  other  appendices  present  the  Schema  Manager  in  detail  at  three  levels 
of  complexity;  the  individual  data  entities  (data  dictionaries),  the  routines 
comprising  the  software  and  the  relationships  between  these  routines. 

A  data  dictionary  is  presented  in  Appendix  J  to  provide  a  complete  listing 
of  data  within  the  Schema  Manager  software. 

The  software  routines  are  listed  in  Appendix  I  for  the  Schema  Manager. 
Routines  are  groups  of  code  which  perform  a  specific  function.  The  software 
hierarchy  presents  the  relationships  between  these  routines. 

1.3  System  Environment 

The  PDDI  system  was  developed  in  the  following  computing  environment: 
Computer/Operatinq  System 

IBM  43XX/MVS  with  TSO  and  associated  tape  drives,  disk  drives  and 
terminals. 

DEC  VAX  11/780  VMS  with  associated  tape  drives,  disk  drives  and  terminals. 
Storage  (Core)  Requirements 

The  development  PDDI  system  required  the  following  core  requirements: 

Model  (large)  .57M 

PDDI  Software  .66M  (No  Overlay) 

Database  3.00M 

4.23M 
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Compilers 

IBM-Pascal/VS  Release  2.2 
DEC-Pascal  V3.3,  FORTRAN  77  V4.4 

Terminals 

327x  (or  equivalent)  for  non-graphics  applications 
E&S  PS300  (or  equivalent)  for  graphics  applications 

The  PDDI  system  is  transportable  to  other  computing  systems, 
appropriate  local  (native)  interfaces  must  be  provided. 
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SECTION  2 
REFERENCES 


2.1  Applicable  Documents 

This  section  provides  applicable  documents  in  addition  to  those  listed  in 
the  main  body  of  this  document. 

2.1.1  Other  Publications 


Product  Definition  Data  Interface  (PDDI) 

UM  560130002  User's  Manual  -  Schema  Manager 

Geometric  Modelling  Applications  Interface  Program  (GMAP) 

PS  560240031U  Product  Specification 

SS  560240001U  System  Specification 

SDS560240001U  System  Design  Specification 

2.2  Terms  and  Abbreviations 


This  section  provides  applicable  terms  and  abbreviations  in  addition  to 
those  listed  in  the  main  body  of  this  report. 

SCHEMA  MANAGER  -  Software  for  creating,  managing,  and  querying  entity 
definitions  for  CAD/CAM  models. 

SCE  -  Schema  Manager 
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SECTION  3 
SYSTEM  OPERATIONS 


3.1  System  Overview 

The  purpose  of  the  PDDI  Software  System  is  to  provide  a  prototype  for  the 
communication  of  complete  Production  Definition  Data  (PDD)  between  dissimilar 
CAD/CAM  Systems.  This  system  will  serve  as  the  information  interface  between 
Engineering  and  Manufacturing  functions.  It  is  composed  of  Access  Software, 
Conceptual  Schema,  Schema  Manager,  Exchange  Format  and  a  Translator. 

The  Access  Software  is  a  set  of  callable  utility  programs  that  will  allow 
applications  to  manipulate  and  query  PDD.  The  Conceptual  Schema  is  a  data 
dictionary  that  contains  the  data  needed  to  define  a  CAD/CAM  model.  The  Schema 
Manager  is  the  software  mechanism  for  managing  the  data  needed  to  define  a 
CAD/CAM  model,  and  for  producing  the  data  dictionary.  The  Exchange  Format  is  a 
neutral  physical  sequential  format  for  passing  data  between  dissimilar 
systems.  The  PDDI  Translator  is  the  software  mechanism  for  passing  this  data 
between  the  Exchange  Format  and  the  Working  Form  of  the  PDD. 

This  Appendix  addresses  the  Schema  Manager  software  for  the  PDDI  Software 
System. 

3.2  Functional  Description 

The  Schema  Manager  is  the  software  package  used  to  manage  the  definitions 
of  the  entities  contained  in  the  Working  Form.  It  has  three  major  functions: 

o  model  a  concrete  conceptual  schema 

o  transform  a  concrete  conceptual  schema  into  a  physical  schema  suitable 
for  the  Working  Form  of  the  PDDI  Access  Software 

o  generate  subschema  forms  of  the  physical  schema  for  use  by  application 
programs  at  compile-time  and/or  run-time 

The  Schema  Manager  consists  of  three  main  sub-packages: 

Interactive  Interface 

Batch  Interface 

Model  Query  Utility 

The  functions  of  the  Interactive  Interface  include  the  creation,  review, 
update,  reporting,  and  retrieving  of  entity  definitions.  The  Interactive 
Interface  makes  use  of  the  IBM/SPF  Dialog  Manager  for  full-screen  terminal 
menus.  This  interface  was  developed  under  the  GMAP. 
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The  Batch  Interface  provides  a  mechanism  for  the  creation,  reporting,  and 
filing  of  entity  definitions  in  a  non-interactive  mode.  The  Batch  Interface 
uses  the  syntax  of  the  EXPRESS  information  modeling  language  (PDES/STEP)  for 
input. 

The  Model  Query  Utility  provides  a  mechanism  for  querying  the  (part  model) 
entities  in  the  Working  Form.  The  entity  definitions  are  used  to  translate  the 
Working  Form  binary  representation  of  the  (part  model)  entities  into  a  list  of 
the  attribute  names  and  their  values.  The  Model  Query  Utility  makes  use  of  the 
IBM/SPF  Dialog  Manager  for  full-screen  terminal  menus. 

The  Schema  Manager  was  developed  for  the  IBM/MVS  system  environment.  It 
was  designed  and  implemented  so  that  it  could  be  transported  to  other  computing 
systems.  The  machine  dependencies  are  limited  to  the  vendor-supplied  Dialog 
Manager  routines. 
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Fiqure  H-l  Schema  Manager  Architecture 
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SECTION  4 

SCHEMA  MANAGER  HIERARCHY 


The  balance  of  this  appendix  provides  a  cross-reference  listing  for  Schema 
Manager  routines.  The  Control  Sections  (CSECTs)  that  are  referred  to  by  a 
particular  CSECT  (routine)  are  provided. 
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Routine: 

ADDENUM 

Routine: 

ADDFIELD 


Routine: 

APPROVE 


Routine: 

BATDVR 
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Refers  to: 


SCELAB 

ISPLNK 

ISPLNKID 


Refers  to: 


SCELAB 

ISPLNK 

ISPLNK9 

ISPLNK50 

ISPLNKID 

Refers  to: 


SCELAB 

ISPLNK 

ISPLNKC8 

ISPLNK9 

ISPLNK12 

ISPLNKID 

Refers  to: 


FILRTV 

BATERR 

BATRPT 

BLDCLS 

BLDSUB 

BLEXICAL 

CLRSTK 

DEFCLS 

DEFENT 

DEFGBL 

DEFSUB 

DEFSUP 

DEFTYP 

MAECTK 

MAEGTK 

MAINIT 

MAKCNT 

MAL 

MALK 

MALRD 

MALSTF 
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Routine: 

BATERR 

Routine: 

BATRPT 


Routine: 

BCSMAIN 
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SCXERRCK 

SCXERRCK 

SCXERRCK 

SCEXIT 

Refers  to: 


ERRMSG 

LEXICAL 

Refers  to: 


SCELAB 

BCSMAIN 

DDREPORT 

PHYSICAL 

PSREPORT 

RSFILE 

BSCINCLD 

BATERR 

BLEXICAL 

MAECTK 

MAEGTK 

MAEXEQ 

MAKCNT 

MALK 

SCEXIT 

Refers  to: 


SCELAB 

CSCLSWRT 

CSENTWRT 

CSGBLWRT 

CSINDWRT 

CSRPTCVR 

CSSUBWRT 

CSSUPWRT 

CSTYPWRT 

MAL 

MALD 

MALK 

MALSRT 
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Routine: 

Refers  to: 

BLDARRAY 

SCELAB 

MAEC 

MAECR 

MAEGTK 

MALD 

MALK 

MALNO 

MALRD 

HALSTF 

Routine: 

Refers  to: 

BLDBPDEF 

SCELAB 

MAECR 

Routine: 

Refers  to: 

BLDCLASS 

SCELAB 

MAECR 

Routine: 

Refers  to: 

BLDCLS 

SCELAB 

SCPUSHTR 

BSCTRSPR 

ENTCLS 

SCERRCK 

SCERRCK 

SCERRCK 

SCEXIT 

Routine: 

Refers  to: 

BLDDFTYP 

SCELAB 

MAECR 

Routine: 

Refers  to: 

BLDEITEM 

SCELAB 

MAECR 

MAEGTK 
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MALD 

MALK 

MALNO 

HALRD 

HALSTF 

Routine:  Refers  to: 
BLDENT 

SCELAB 

MAECR 


Routine: 

Refers  to: 

BLDENUMR 

SCELAB 

MAECR 

Routine: 

Refers  to: 

BLDFIELD 

SCELAB 

MAECR 

Routine: 

Refers  to: 

BLDGBLFD 

SCELAB 

MAECR 

Routine: 

Refers  to: 

BLDINT 

SCELAB 

MAECR 

MAEGTK 

MALD 

MALK 

MALNO 

MALRD 

MALSTF 

Routine: 

Refers  to: 

BLDLOG 

SCELAB 

MAECR 

MALD 

MALGTK 

H- 13 


Routine: 

BLDPNTR 

Routine: 

BLDREAL 


Routine: 

BLDSSCMA 

Routine: 

BLDSTRNG 


Routine: 

BLDSTRUC 
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MALK 

MALNO 

MALRD 

Refers  to: 


SCELAB 

MAECR 

Refers  to: 


SCELAB 

MAECR 

MAEGTK 

MALD 

MALK 

MALNO 

MALRD 

MALSTF 


Refers  to: 


SCELAB 

MAECR 

Refers  to: 


SCELAB 
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MALD 

MALK 
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MALRD 

MALSTF 

Refers  to: 


SCELAB 

MAECR 
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Routine: 

Refers  to: 

BLDSUB 

SCELAB 

SCPUSHTR 

BSCTRSPR 

ENTCLS 

SCEXIT 

Routine: 

Refers  to: 

BLDSUPER 

SCELAB 

MAECR 

Routine: 

Refers  to: 

BLDUNRES 

SCELAB 

MAECR 

Routine:  Refers  to: 
BLEXICAL 

SCELAB 

LEXICAL 

SCEXIT 

Routine:  Refers  to: 
BSCINCLD 

SCELAB 

PHYSICAL 

SCCONIN 

SCENTIN 

SCKEYIN 

SCMASIN 

SCPRMFL 

SCTYPIN 

MAECIK 

MAEGTK 

HAL 

MALD 

MALRDE 

MALSRT 


H  - 1 5 


PS  560130000A 
22  December  1987 


Routine:  Refers  to: 

BSCTRSPR 

SCELAB 

BLDARRAY 

BLDCLASS 

BLDDFTYP 

BLDEITEM 

BLDENT 

BLDENUMR 

BLDFIELD 

BLDGBLFD 

BLDINT 

BLDLOG 

BLDPNTR 

BLDREAL 

BLDSSCMA 

BLDSTRNG 

BLDSTRUC 

BLDSUPER 

BLDUNRES 

DEFADD 

DEFQUERY 

SCPOPKE 

SCPOPTR 

SCPUSHTR 

SCPUSHKE 

MAL 

MALATC 

MALD 

MALFND 

MALNO 

MALRD 

MALRPL 

MALRVS 

MALSTR 

Routine:  Refers  to: 

CLRSTK 

SCELAB 

SCPOPTR 

SCEXIT 

Routine:  Refers  to: 

CRARRAY 

SCELAB 

ISPLNK 
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Routine: 

Refers  to: 

CRCLASS1 

SCELAB 

ISPLNK 

ISPLNKID 

ISPLNK50 

Routine: 

Refers  to: 

CRCLASS2 

SCELAB 

ISPLNK 

Routine: 

Refers  to: 

CRDEFTYP 

SCELAB 

ISPLNK 

ISPLNKID 

Routine: 

Refers  to: 

CRENTITY 

SCELAB 

ISPLNK 

ISPLNKID 

ISPLNK50 

Routine: 

Refers  to: 

CRENUM 

SCELAB 

ISPLNK 

ISPLNKID 

Routine: 

Refers  to: 

CRFIELD 

SCELAB 

ISPLNK 

ISPLNK9 

ISPLNK50 

ISPLNKID 

Routine: 

Refers  to: 

CRINTGR 

SCELAB 

ISPLNK 
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Routine:  Refers  to: 
CRUST 

SCELAB 

ISPLNK 

Routine:  Refers  to: 


CRPNTR 

SCELAB 

ISPLNK 


Routine:  Refers  to: 
CRREAL 

SCELAB 

ISPLNK 

Routine:  Refers  to: 


CRSET 


SCELAB 

ISPLNK 


Routine:  Refers  to: 
CRSTRING 

SCELAB 

ISPLNK 


Routine:  Refers  to: 
CRSUBSCM 

SCELAB 

ISPLNK 

ISPLNKID 

ISPLNKC8 

ISPLNK50 


Routine:  Refers  to: 


CRSUPTYP 


SCELAB 

ISPLNK 

ISPLNKID 
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CSARYWRT 


Routine: 

CSCLSHDG 

Routine: 

CSCLSWRT 


Routine: 

CSDEFHDG 

Routine: 

CSDEFWRT 
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CSDEFWRT 

CSHDGWRT 

CSINTWRT 

CSLOGWRT 

CSPTRWRT 

CSRELWRT 

CSSTGWRT 

MAEC 

MAEGTK 

MALNO 

MALRD 

MALSTF 


Refers  to: 


CSNEWPG 
Refers  to: 


SCELAB 

CSCLSHDG 

MAEGTK 

MALNO 

MALRD 

MALSTF 

Refers  to: 


CSNEWPG 
Refers  to: 


SCELAB 

MAEGTK 
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CSENMWRT 


Routine: 

CSENTHDG 

Routine: 

CSENTWRT 


Routine: 

CSGBLHDG 

Routine: 

CSGBLWRT 
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CSHDGWRT 

MAEGTK 

MALNO 

MALRD 
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Refers  to: 


CSNEWPG 
Refers  to: 


SCELAB 

CSARYWRT 

CSDEFWRT 

CSENTHDG 

CSINTWRT 
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CSPTRWRT 
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CSSTGWRT 
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MALD 

MALKL 

MALNO 
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MALSTF 


Refers  to: 


CSNEWPG 
Refers  to: 
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CSGBLHDG 
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CSLOGWRT 
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CSRELWRT 
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MAEGTK 

HAL 

MALATC 
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MALRD 

MALSRT 

MALSTF 


Routine: 

Refers  to: 

CSHDGWRT 

CSCLSHDG 

CSDEFHDG 

CSENTHDG 

CSGBLHDG 

CSSUBHDG 

CSSUPHDG 

Routine: 

Refers  to: 

CSINDWRT 

SCELAB 

CSCLSHDG 

CSENTHDG 

CSSUBHDG 

CSSUPHDG 

MAEC 

MAEGTK 

MALNO 

MALRD 

MALSTF 

Routine: 

Refers  to: 

CSINTWRT 

SCELAB 

MAEGTK 

Routine: 

Refers  to: 

CSLOGWRT 

SCELAB 
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Routine: 

CSMAIN 


Routine: 

CSNEWPG 

Routine: 

CSPTRWRT 


Routine: 

CSRELWRT 

Routine: 

CSRPTCVR 

Routine: 

CSSTGWRT 
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CSCLSWRT 

CSENTWRT 

CSGBLWRT 

CSINDWRT 
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CSSUBWRT 

CSSUPWRT 

CSTYPWRT 
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MALD 

MALK 

MALSRT 
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Refers  to: 


SCELAB 

CSHDGWRT 

MAEGTK 

MAL  NO 

MALRD 

MALSTF 


Refers  to: 


SCELAB 

MAEGTK 


Refers  to: 


Refers  to: 


SCELAB 

MAEGTK 
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Routine: 

CSSUBHDG 

Routine: 

CSSUBWRT 


Routine: 

CSSUPHDG 

Routine: 

CSSUPWRT 
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Refers  to: 
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Refers  to: 


SCELAB 

CSSUBHDG 

MAEGTK 
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MALRD 

MALSTF 

Refers  to: 
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Refers  to: 
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CSDEFWRT 

CSSUPHDG 
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CSLOGWRT 

CSPTRWRT 

CSRELWRT 

CSSTGWRT 
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CSTYPWRT 


Routine: 

DDABNDS 

Routine: 

DDADB 

Routine: 

DDARRAY 

Routine: 

DDCL 
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MAEGTK 

MALD 

MALKL 

MALNO 

MALRD 

HALSTF 
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CSARYWRT 

CSDEFHDG 

CSDEFWRT 
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CSPTRWRT 
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CSSTGWRT 
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MAEGTK 
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MALRD 

MALSTF 


Refers  to: 


DDCL 

Refers  to: 


Refers  to: 


DDABNDS 

DDCL 

DDENUM 

Refers  to: 
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Routine: 

DDCLASS 


Routine: 

DDENTITY 


Routine: 

DDENUM 

Routine: 

DDREPORT 


Routine: 

DDWRITE 
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Refers  to: 


SCELAB 

MAEGTK 

MALNO 

MALRD 

MALSRT 

HALSTF 

SCXERRCK 

SCXERRCK 

SCEXIT 

Refers  to: 


SCELAB 

DDWRITE 

MALRD 

MALSRT 

MALSTF 

RSGTSM 

SCXERRCK 

SCXERRCK 

SCEXIT 

Refers  to: 


Refers  to: 


DDCLASS 

DDENTITY 

DDWRITE 

MAECIK 

MAEGTK 

PHYSICAL 

RSI 100 

Refers  to: 


DDADB 

DDARRAY 

DDCL 

DDENUM 

PSORDER 
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DEFADD 
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BLDBPDEF 

MAEGTK 

MAKCNT 

MALATC 

HALD 

MALK 

MALRD 

MALSTF 

SCXERRCK 

SCEXIT 

Routine:  Refers  to: 

DEFARR 

SCELAB 

SCPUSHTR 

BATERR 

BLEXICAL 

CLRSTK 

DEFBAS 

DEFDEF 

SCEXIT 

Routine:  Refers  to: 

DEFATT 

SCELAB 

SCPUSHTR 

SCPOPTR 

SCUNQPND 

BATERR 

BLEXICAL 

CLRSTK 

DEFBAS 

DEFDEF 

MAEC 

MAEXEQ 

MALCPY 

MALD 

MALK 

MALKL 

MALNOT 
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Routine: 

DEFBAS 


Routine: 

DEFCLS 


Routine: 

DEFDEF 
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Refers  to: 


SCELAB 

SCPUSHTR 

BATERR 

BLEXICAL 

CLRSTK 

DEFARR 

DEFPRE 

DEFPTR 

SCEXIT 


Refers  to: 


SCELAB 

SCEXIST 

SCPUSHTR 

BSCTRSPR 

SCUNQEST 

SCUNQPND 

BATERR 

BLDUNRES 

BLEXICAL 

CLRSTK 

DEFADD 

ENTCLS 

ERRREC 

MAL 

MALATC 

MALD 

MALFND 

SCXERRCK 

SCXERRCK 
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Refers  to: 


SCELAB 

SCPUSHTR 

BLEXICAL 

CLRSTK  - 

ENTCLS 

DEFPTR 

MAKXEQ 
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Routine: 
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Routine: 

DEFENT 


Routine: 

DEFGBL 


Routine: 

DEFPRE 
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Refers  to: 


SCELAB 

SCPUSHTR 

SCUNQEST 

SCUNQPND 

BATERR 

BLEXICAL 

CLRSTK 

SCEXIT 

Refers  to: 
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SCEXIST 

SCPUSHTR 

BSCTRSPR 

SCUNQEST 

SCUNQPND 

BATERR 

BLEXICAL 

CLRSTK 

DEFATT 

ERRREC 

REFSUP 

SCEXIT 


Refers  to: 


SCELAB 

SCPUSHTR 

BSCTRSPR 

BATERR 

BLEXICAL 

DEFATT 

ERRREC 

SCEXIT 

Refers  to: 


SCELAB 

BATERR 

BLEXICAL 

CLRSTK 

SCEXIT 
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Routine: 

DEFPTR 


Routine: 
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SCPUSHTR 

SCEXIST 

BATERR 

BLDUNRES 

BLEXICAL 

CLRSTK 
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ENTCLS 

MAL 

MALATC 

MALD 

MALFND 

SCXERRCK 

SCERRCK 

SCXERRCK 

SCEXIT 


Refers  to: 


SCELAB 

BLDPNTR 

MAEC 

MAED 

MAEGTK 

MAEU 

MAKCNT 

MALATC 

MALD 

MALFND 

MALK 

MALKL 

MALN 

MALRD 

MALRDE 

MALREP 

MALRPL 

MALSTF 

SCXERRCK 

SCEXIT 
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Routine: 

DEFSTC 


Routine: 

DEFSUB 


Routine: 

DEFSUP 
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Refers  to: 


SCELAB 

SCPUSHTR 

BATERR 

BLEXICAL 

CLRSTK 

DEFATT 

ERRREC 

SCERRCK 

SCEXIT 


Refers  to: 


SCELAB 

SCEXIST 

SCPUSHTR 

BSCTRSPR 

SCUNQEST 

BATERR 

BLDUNRES 

BLEXICAL 

DEFADD 

ENTCLS 

ERRREC 

MAL 

MALATC 

MALD 

MALFND 

SCXERRCK 

SCXERRCK 

SCEXIT 


Refers  to: 


SCELAB 

SCEXIST 

SCPUSHTR 

BSCTRSPR 

SCUNQEST 

SCUNQPND 

BATERR 

BLEXICAL 

CLRSTK 

DEFATT 
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Routine: 

DEFTYP 


Routine: 

DISPLIST 


Routine: 

ENTCLS 

Routine: 

ERRMSG 
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ERRREC 

REFSUP 

SCEXIT 


Refers  to: 


SCELAB 

SCPUSHTR 

BSCTRSPR 

SCUNQEST 

SCUNQPND 

BATERR 

BLEXICAL 

CLRSTK 

DEFBAS 

DEFDEF 

DEFENM 

DEFSTC 

ERRREC 

MAKXEQ 

SCEXIT 


Refers  to: 


SCELAB 

ISPLNK 

ISPLNK1 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Refers  to: 


SCELAB 

MAKXEQ 

SCEXIT 


Refers  to: 
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Routine: 

Refers  to: 

ERRREC 

SCELAB 

CLRSTK 

SCERRCK 

SCEXIT 

Routine: 

Refers  to: 

GETDD 

Routine: 

Refers  to: 

LEXICAL 

Routine: 

Refers  to: 

LMEM23 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNKC8 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

MCREATE 

SCELAB 

ISPLNK 

Routine: 

Refers  to: 

MFILMOD 

SCELAB 

ISPLNK 

Routine: 

Refers  to: 

MINCLUD 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNKC8 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 
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Routine:  Refers  to: 


MMAIN 

SCELAB 

ISPLNK 

Routine: 

Refers 

to: 

MNEWMOD 

SCELAB 

ISPLNK 

Routine: 

Refers 

to 

MQBHALL 

Routine: 

Refers 

to 

MQBHATT 

Routine: 

Refers 

to 

MQBHATTS 

Routine: 

Refers 

to 

MQBHENT 

Routine: 

Refers 

to 

MQBHMAIN 

Routine: 

Refers 

to 

MQCLMU 

Routine: 

Refers 

to 

MQGETVAL 

Routine: 

Refers 

to 

MQGTDEFN 

Routine: 

Refers 

to 

MQIAATT 
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Routine: 

Refers  to: 

MQIAENT 

Routine: 

Refers  to: 

MQIAMAIN 

Routine: 

Refers  to: 

MQNCLMU 

Routine: 

Refers  to: 

MQNUSRMU 

Routine: 

Refers  to: 

MQUDVR 

ISPLNK 

FILRTV 

MAECTK 

MAEKND 

MALK 

MALNO 

MQBHMAIN 

MQIAMAIN 

NVGTDD 

Routine: 

Refers  to 

MQUSRMU 

Routine: 

Refers  to 

MREPORT 

SCELAB 

ISPLNK 

Routine: 

Refers  to 

MREVIEW 

SCELAB 

ISPLNK 

Routine: 

Refers  to 

MUPDATE 

SCELAB 

ISPLNK 
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Routine: 

NVRTVRS 

Routine: 

PHALFLD 


Routine: 

PHBYFPOS 


Routine: 

PHDECBYT 

Routine: 

PHENTITY 
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Refers  to: 


Refers  to: 


SCELAB 

MAEGTK 

MALRD 

MALSTF 

MAEUD 

SCXERRCK 

SCXERRCK 

SCXERRCK 

SCXERRCK 

SCXERRCK 

SCEXIT 


Refers  to: 


SCELAB 

MAEGTK 

PHALFLD 

PHGTFLD 

PHSRTFLD 

PHSRTORD 

SCEXIT 


Refers  to: 


Refers  to: 


SCELAB 

MALKL 

PHBYFPOS 

PHPOSITN 

PHWOFPOS 

SCXERRCK 

SCERRCK 

SCERRCK 

SCERRCK 

SCEXIT 
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Refers  to: 

PHGLOBAL 

SCELAB 

MAEC 

MALNO 

PHBYFPOS 

PHWOFPOS 

PHPOSITN 

SCEXIT 

Routine: 

Refers  to: 

PHGTFLD 

MAEGTK 

MALRD 

MALSTF 

PHDECBYT 

Routine: 

Refers  to: 

PHPOSITN 

SCELAB 

MAEGTK 

MAL 

MALATC 

MALRD 

MALSTF 

SCXERRCK 

SCXERRCK 

SCEXIT 

Routine: 

Refers  to: 

PHSRTFLD 

Routine: 

Refers  to: 

PHSRTORD 

Routine: 

Refers  to: 

PHSUBTYP 

SCELAB 

MAEGTK 

MALKL 

MALRD 

MALSTF 

PHBYFPOS 
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Routine: 

PHWOFPOS 


Routine: 

PHYSICAL 


Routine: 

PSORDER 

Routine: 

PSRABNDS 
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PHPOSITN 

PHWOFPOS 

SCXERRCK 

SCXERRCK 

SCERRCK 

SCERRCK 

SCERRCK 

SCEXIT 


Refers  to: 


SCELAB 

MAEGTK 

MALD 

MALNO 

MALRD 

MALSTF 

PHALFLD 

PHGTFLD 

PHSRTFLD 

SCXERRCK 

SCEXIT 

Refers  to: 


SCELAB 

FILRTV 

MAECIK 

MAEGTK 

MAEUD 

MALK 

MALKL 

MALRD 

MALSTF 

PHENTITY 

PHGLOBAL 

PHSUBTYP 

SCXERRCK 

SCXERRCK 

SCEXIT 


Refers  to: 


Refers  to: 
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Routine: 

PSRADB 

Routine: 

PSRARRAY 

Routine: 

PSRCL 

Routine: 

PSRENUM 

Routine: 

PSREPORT 


Routine: 

PSRHEAD 
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Refers  to: 


Refers  to: 


PSRABNDS 

PSRCL 

PSRENUM 

Refers  to: 


Refers  to: 


Refers  to: 


SCELAB 

MAECIK 

MAEGTK 

MALK 

MALRD 

MALSRT 

MALSTF 

PHYSICAL 

PSORDER 

PSRADB 

PSRARRAY 

PSRCL 

PSRENUM 

PSRHEAD 

PSRINDEX 

RSGTSM 

SCXERRCK 

SCXERRCK 

SCXERRCK 

SCXERRCK 

SCEXIT 
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Refers  to: 

PSRINDEX 

SCELAB 

MAEGTK 

MALRD 

MALSRT 

MALSTF 

SCXERRCK 

SCXERRCK 

SCXERRCK 

SCEXIT 

Routine: 

Refers  to: 

REARRAY 

SCELAB 

ISPLNK 

ISPLNKC8 

ISPLNK12 

Routine: 

Refers  to: 

RECLASS 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNK50 

ISPLNKC8 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

REDEFTYP 

SCELAB 

ISPLNK 

ISPLNKC8 

ISPLNK12 

ISPLNKID 

Routine: 

Refers  to: 

REENTITY 

SCELAB 

ISPLNK 

ISPLNK50 

ISPLNKID 
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Refers  to: 

REENUM 

SCELAB 

ISPLNK 

ISPLNKC8 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

REFIELD 

SCELAB 

ISPLNK 

ISPLNKC8 

ISPLNK9 

ISPLNK12 

ISPLNKID 

Routine: 

Refers  to: 

REFIELD1 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNKC8 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

REFIELD2 

SCELAB 

ISPLNK 

ISPLNKC8 

ISPLNK9 

ISPLNK12 

ISPLNK50 

ISPLNKID 
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Refers  to: 

REFSUP 

SCELAB 

BLDUNRES 

DEFADD 

SCPUSHTR 

MAKXEQ 

SCEXIT 

Routine: 

Refers  to: 

REINTGR 

SCELAB 

ISPLNK 

ISPLNKC8 

Routine: 

Refers  to: 

RELIST 

SCELAB 

ISPLNK 

ISPLNKC8 

ISPLNK12 

Routine: 

Refers  to: 

REPNTR 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNKC8 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

REREAL 

SCELAB 

ISPLNK 

ISPLNKC8 

Routine: 

Refers  to: 

RESET 

SCELAB 

ISPLNK 

ISPLNKC8 

ISPLNK12 
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Routine: 

Refers  to: 

RESTRING 

SCELAB 

ISPLNK 

ISPLNKC8 

Routine: 

Refers  to: 

RESTRUC 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNKC8 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

RESUBSCM 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNK50 

ISPLNKC8 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

RESUPTYP 

SCELAB 

ISPLNK 

ISPLNKID 

Routine: 

Refers  to: 

RSCPAI 

AMPXMOVE 

Routine: 

Refers  to: 

RSCPAT 

AMPXMOVE 
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Routine: 

RSCPCI 

Routine: 
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Routine: 

RSCPEI 

Routine: 

RSCPET 

Routine: 

RSFILE 


Routine: 

RSGTSM 
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Refers  to: 


AMPXMOVE 
Refers  to: 


AMPXMOVE 
Refers  to: 
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SCELAB 

MAECIK 

MAEGTK 

MALK 
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MALSTF 

PHYSICAL 

RSGTSM 

RSI  100 

SCXERRCK 

SCXERRCK 

SCXERRCK 

SCEXIT 


Refers  to: 


SCELAB 

MAEGTK 

MALKL 

MALNO 

MALRD 

MALSTF 
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RSCPAT 
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Routine: 
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Routine: 
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Refers  to: 


Refers  to: 
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MALSTF 
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SCXERRCK 

SCXERRCK 

SCEXIT 


H-44 


Routine: 

RSTRST 


Routine: 
RSI 100 


Routine: 

SCALFSRT 
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Refers  to: 


SCELAB 

MAEGTK 

MALK 

MALKL 

MALNO 

MALRD 

MALSTF 

RSTRSH 

SCXERRCK 

SCXERRCK 

SCERRCK 

SCEXIT 

Refers  to: 


SCELAB 

MAEC 

MAECIK 

MAEGTK 

MAL 

MALATC 

MALFND 

MALK 

MALRDE 

MALKL 

MALNO 

MALRD 

MALSRT 

MALSTF 

RSCPAI 

RSCPAT 

RSCPCI 

RSCPCT 

RSCPEI 

RSCPET 

RSTRGF 

RSMASKND 

SCEXIT 


Refers  to: 


H  -  45 


Routine: 

SCARYCR 


Routine: 

SCARYUP 


Routine: 

SCBASIN 

Routine: 

SCCHRCK 

Routine: 

SCCLSCR1 
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Refers  to: 


SCELAB 

CRARRAY 

SCDEFCR 

SCINTCR 

SCLISTCR 

SCPOPTR 

SCPTRCR 

SCPUSHTR 

SCRELCR 

SCSETCR 

SCSTGCR 

Refers  to: 


SCELAB 

SCPRMRE 

SCTYPUP 

UPARRAY 

MAEC 

MAECR 

MAEGTK 

MALATC 

MALD 

MALRD 

MALRPL 

MALSTF 


Refers  to: 


SCELAB 
Refers  to: 


SCELAB 
Refers  to: 


SCELAB 

CRCLASS1 

SCCHRCK 

SCCLSCR2 

SCPOPTR 


H-46 


Routine: 

SCCLSCR2 


Routine: 

SCCLSUP 
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SCPUSHTR 

SCTRSPR 

SCUNQEST 

SCUNQPND 


Refers  to: 


SCELAB 

CRCLASS2 

SCCLSCR1 

SCENTCR 

SCEXIST 

SCMEMAD 

SCMEMLST 

SCPOPTR 

SCPUSHTR 

SCTRSPR 

MAL 

MALATC 

MALD 

MALFND 


Refers  to: 


SCELAB 

SCCHRCK 

SCMEMAD 

SCPRMFL 

SCPRMRE 

SCUNQEST 

UPCLASS1 

UPCLASS2 

MAEC 

MAED 

MAEGTK 

MAEUD 

MAEXEQ 

MALATC 

MALD 

MALFND 

MALNO 

MALREP 

MALRMV 

MAUPDT 


H-47 


Routine: 

SCCOMPAR 

Routine: 

SCCONIN 


Routine: 

SCCREATE 


Routine: 

SCDEFCR 


PS  560130000A 
22  December  1987 


Refers  to: 


SCELAB 
Refers  to: 


SCELAB 

MAEGTK 

MALRD 

MALSTF 


Refers  to: 


SCELAB 

MCREATE 

SCCLSCR1 

SCDEFCR 

SCENTCR 

SCFLDCR 

SCPUSHTF. 

SCSUPrR 

SCSU^Ck 

SC7RSPR 


Refers  to: 


SCELAB 

CRDEFTYP 

SCARYCR 

SCCHRCK 

SCENUCR 

SCFLDCR 

SCINTCR 

SCKEFIND 

SCLISTCR 

SCPOPTR 

SCPTRCR 

SCPUSHTR 

SCRELCR 

SCSETCR 

SCSTGCR 

SCTRSPR 

SCUNQEST 

SCUNQPND 


H-48 


Routine: 

SCDEFUP 


Routine: 

SCENMUP 
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Refers  to: 


SCELAB 

APPROVE 

UPDEFTYP 

SCCHRCK 

SCPRMRE 

SCTYPUP 

SCUNQEST 

HAEC 

MAECR 

MAEGTK 

MAEUD 

MAEUIK 

MALATC 

MALD 

MALNO 

MALRD 

MALRPL 

MALSTF 


Refers  to: 


SCELAB 

ADDENUM 

BLDEITEM 

SCCHRCK 

SCPRMRE 

UPENUM 

MAEC 

MAECR 

MAED 

MAEGTK 

MAEXEQ 

MALAND 

MALATC 

MALD 

MALFND 

MALKL 

MALNO 

MALRD 

MALRMV 

MALRPL 

MALSTF 


H-49 


Routine: 

SCENTCR 


Routine: 

SCENTIN 


Routine: 

SCENTUP 
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Refers  to: 


SCELAB 

CRENTITY 

SCCHRCK 

SCFLDCR 

SCPOPTR 

SCPUSHTR 

SCSUPCR 

SCTRSPR 

SCUNQEST 

SCUNQPND 


Refers  to: 


SCELAB 

SCFLDIN 

SCFLDST 

MAEGTK 

MAL 

MALATC 

MALD 

MALKL 

MALNO 

MALRD 

MALSTF 

Refers  to: 


SCELAB 

APPROVE 

SCFLDAD 

SCFLDliP 

SCPOPTR 

SCPRMRE 

SCPUSHTR 

SCUNQEST 

SCSUPCR 

SCSUPUP 

SCTRSPR 

UPENTY1 

UPENTY2 

MAED 

MAEGTK 

MAEUD 

MAEUIK 


H-50 
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MAEXEQ 

MAL 

MALATC 

MALD 

MALFND 

MALKL 

MALNO 

HALRD 

MALREP 

MALRMV 

MALRPL 

MALSTF 

MAUPDT 


Routine:  Refers  to: 
SCENUCR 

SCELAB 

CRENUM 

SCCHRCK 

SCMEMLST 

SCPOPTR 

SCPUSHTR 

SCUNQEST 

SCUNQPND 

Routine:  Refers  to: 
SCEXIST 

SCELAB 

MAKXEQ 

Routine:  Refers  to: 
SCFLDAD 

SCELAB 

ADDFIELD 

SCARYCR 

SCCHRCK 

SCDEFCR 

SCINTCR 

SCLISTCR 

SCPOPTR 

SCPTRCR 

SCPUSHTR 

SCRELCR 

SCSETCR 

SCSTGCR 

SCTRSPR 


H-51 


Routine: 

SCFLDCR 
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SCUNQEST 

SCUNQPND 

MAEXEQ 

MAL 

MALD 

MALK 

MALKL 

MALNOT 

MALRD 

MALSTF 

HAKXEQ 


Refers  to: 


SCELAB 

APPROVE 

CRFIELD 

SCARYCR 

SCCHRCK 

SCDEFCR 

SCINTCR 

SCLISTCR 

SCMEMLST 

SCPOPTR 

SCPTRCR 

SCPUSHTR 

SCRELCR 

SCSETCR 

SCSTGCR 

SCUNQEST 

SCUNQPND 

MAEC 

MAEGKN 

MAEGTK 

MAE'Jn 

MAEXEQ 

MAKXEQ 

MALD 

MALK 

MALKL 

MALNO 

MALRD 

MALSTF 


H  -  52 


Routine: 

SCFLDIN 


Routine: 

SCFLDSRT 

Routine: 

SCFLDST 


Routine: 

SCFLDUP 
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Refers  to: 


SCELAB 

SCBASIN 

HA  EC 

MAEGTK 

MALRD 

MALSRT 

MALSTF 

Refers  to: 


Refers  to: 


SCELAB 

MAECIK 

MAEGTK 

MALATC 

MALD 

MALNO 

MALRD 

MALSRT 

MALSTF 

Refers  to: 


SCELAB 

APPROVE 

SCCHRCK 

SCPRMRE 

SCTYPUP 

SCUNQEST 

UPFIELD 

MAEC 

MAECR 

MAED 

MAEGTK 

MAEU 

MAEUD 

MAEXEQ 

MAKXEQ 

MALATC 

MALD 

MALFND 
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Routine: 

SCFNDKEY 

Routine: 

SCGENRPT 


Routine: 

SCHDVR 
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MALK 

MALKL 

MALNO 

MALRD 

MALRPL 

HALSTF 

MAUPDT 


Refers  to: 


MAEC 

MAEXEQ 

MALD 


Refers  to: 


SCELAB 

DDREPORT 

MINCLUD 

PHYSICAL 

PSREPORT 

RSFILE 

SCPRMFL 

MAEGTK 

MAEXEQ 

MALD 

MALK 


Refers  to: 


MAECTK 

MAINIT 

MAL 

FILRTV 

MFILMOD 

MMAIN 

MNEWMOD 

SCCREATE 

SCREVIEW 

SCRPTM 

SCUPDATE 


H-54 


Routine: 

SCINCLD 


Routine: 

SCINTCR 


Routine: 

SCINTUP 


Routine: 

SCKEFIND 
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Refers  to: 


SCELAB 

MINCLUD 

PHYSICAL 

SCCONIN 

SCENTIN 

SCKEYIN 

SCMASIN 

SCPRMFL 

SCTYPIN 

MAECIK 

MAEGTK 

MAEXEQ 

MAL 

MALD 

MALK 

MALRDE 

MALSRT 

Refers  to: 


SCELAB 

CRINTGR 

SCPOPTR 

SCPUSHTR 


Refers  to: 


SCELAB 

BLDINT 

UPINT 

MAEGTK 

MALATC 


Refers  to: 


SCELAB 

MAEC 

MAECIK 

MAEUIK 

MAKXEQ 

MALD 

MALK 

MALNOT 
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Routine: 

SCKEYIN 


Routine: 

SCLISTCR 


Routine: 

SCLISTUP 


Routine: 

SCMASIN 
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Refers  to: 


SCELAB 

MAEGTK 

MALFND 

MALRD 

MALSTF 

Refers  to: 


SCELAB 

CRUST 

SCARYCR 

SCDEFCR 

SCINTCR 

SCPOPTR 

SCPTRCR 

SCPUSHTR 

SCRELCR 

SCSETCR 

SCSTGCR 

Refers  to: 


SCELAB 

SCPRMRE 

SCTYPUP 

UPLIST 

MAEC 

MAECR 

MAEGTK 

MALATC 

MALD 

MALRD 

MALRPL 

MALSTF 


Refers  to: 


SCELAB 

MAEC 

MAEGTK 

MAL 

MALD 

MALFND 


H-56 


Routine: 

SCMEMAD 


Routine: 

SCMEMLST 

Routine: 

SCPOPKE 

Routine: 

SCPOPTR 

Routine: 

SCPRMFL 
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MALK 

HALNO 

MALRD 

MALSTF 

SCFLDIN 

SCFLDST 

Refers  to: 


SCELAB 

MAKXEQ 

MALD 

MALFND 

MALK 

MALNO 

MALNOT 

MALRMV 


Refers  to: 


SCELAB 

MAEGTK 

MALNO 


Refers  to: 


SCELAB 
Refers  to: 


SCELAB 
Refers  to: 


SCELAB 

MAEGTK 

MALSTF 

MALRD 


H-  57 
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Routine:  Refers  to: 
SCPRMRE 

SCELAB 

RECLASS 

RE ENTITY 

REENUM 

REPNTR 

RESUBSCM 

RESTRUC 

REARRAY 

REDEFTYP 

REFIELD1 

REFIELD2 

REINTGR 

RELIST 

REREAL 

RESET 

RESTRING 

RESUPTYP 

MAEC 

MALKL 

MAEGTK 

MAEXEQ 

MALD 

MALSTF 

MALRD 

Routine:  Refers  to: 
SCPTRCR 

SCELAB 

CRPNTR 

SCEXIST 

SCMEMAD 

SCMEMLST 

SCPOPTR 

SCPUSHTR 

HAL 

MALATC 

HALFND 

MALD 

Routine:  Refers  to: 
SCPTRUP 

SCELAB 

SCMEMAD 

SCPRMFL 

SCPRMRE 


H-58 
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UPPNTR 

MAEC 

MAECR 

MAEGTK 

MAEXEQ 

MALATC 

HALD 

HALFND 

HALNO 

MALRMV 

Routine: 

Refers  to: 

SCPUSHKE 

SCELAB 

Routine: 

Refers  to: 

SCPUSHTR 

SCELAB 

Routine: 

Refers  to: 

SCRELCR 

SCELAB 

CRREAL 

SCPOPTR 

SCPUSHTR 

Routine: 

Refers  to: 

SCRELUP 

SCELAB 

BLDREAL 

UPREAL 

MAEGTK 

MALATC 

Routine: 

Refers  to: 

SCREVIEW 

SCELAB 

MREVIEW 

SCKEFIND 

SCPRMRE 

H-59 
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Routine:  Refers  to: 
SCRPTH 

SCELAB 

XMAIN 

CSMAIN 

HREPORT 

SCINCLD 

SCGENRPT 

Routine:  Refers  to: 
SCSETCR 

SCELAB 

CRSET 

SCARYCR 

SCDEFCR 

SCINTCR 

SCLISTCR 

SCPOPTR 

SCPTRCR 

SCPUSHTR 

SCRELCR 

SCSTGCR 

Routine:  Refers  to: 
SCSETUP 

SCELAB 

SCPRMRE 

SCTYPUP 

UPSET 

MAEC 

MAECR 

MAEGTK 

MALATC 

MALD 

MALRD 

MALRPL 

MALSTF 

Routine:  Refers  to: 
SCSTCUP 

SCELAB 
SC F LOAD 
SCFLDUP 
SCPRMRE 
UPSTRUC 


H-60 


Routine: 

SCSTGCR 


Routine: 

SCSTGUP 


Routine: 

SCSUBCR 
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MAEC 

MAECR 

MAEGTK 

MAEXEQ 

MALAND 

MALATC 

MALD 

MALFND 

HALNO 

MALRD 

MALRMV 

MALRPL 

MALSTF 


Refers  to: 


SCELAB 

CRSTRING 

SCPOPTR 

SCPUSHTR 


Refers  to: 


SCELAB 

BLDSTRNG 

UPSTRING 

MAEGTK 

MALATC 


Refers  to: 


SCELAB 

CRSUBSCM 

SCCHRCK 

SCEXIST 

SCMEMAD 

SCMEMLST 

SCPOPTR 

SCPUSHTR 

SCTRSPR 

SCUNQEST 

MAL 

MALATC 

MALD 

MALFND 


H-61 


Routine: 

SCSUBUP 


Routine: 

SCSUPCR 


Routine: 

SCSUPUP 
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Refers  to: 


SCELAB 

APPROVE 

SCCHRCK 

SCMEMAD 

SCPRMFL 

SCPRMRE 

SCUNQEST 

UPSUB1 

UPSUB2 

MAEC 

MAED 

MAEGTK 

MAEUD 

MAEXEQ 

MALATC 

MALD 

MALFND 

MALNO 

MALRDE 

MALREP 

MALRMV 

MAUPDT 


Refers  to: 


SCELAB 

CRENTITY 

CRSUPTYP 

SCCHRCK 

SCFLDCR 

SCKEFIND 

SCPOPTR 

SCPUSHTR 

SCTRSPR 

SCUNQEST 

SCUNQPND 

MAKXEQ 

Refers  to: 


SCELAB 

APPROVE 

SCFLDAD 

SCFLDUP 
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Routine: 

SCTRSPR 
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SCPRMRE 

SCPUSHTR 

SCUNQEST 

SCSUPCR 

SCTRSPR 

UPSUPER 

UPENTY2 

MAED 

MAEGTK 

MAEUD 

MAEUIK 

MAEXEQ 

MAL 

MALATC 

MALD 

MALFND 

MALKL 

MALNO 

MALRD 

MALREP 

MALRMV 

MALRPL 

MALSTF 

MAUPDT 


Refers  to: 


SCELAB 

BLDARRAY 

BLDCLASS 

BLDDFTYP 

BLDEITEM 

BLDENT 

BLDENUMR 

BLDFIELD 

BLDGBLFD 

BLDINT 

BLDLOG 

BLDPNTR 

BLDREAL 

BLDSSCMA 

BLDSTRNG 

BLDSTRUC 

BLDSUPER 

SCPOPKE 

SCPOPTR 

SCPUSHTR 

SCPUSHKE 


H-63 


Routine: 

SCTYPIN 


Routine: 

SCTYPUP 
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MAL 

MALATC 

MALD 

MALFND 

MALNO 

MALRD 

MALRPL 

HALRVS 

MALSTR 

Refers  to: 


SCELAB 

SCBASIN 

MAEGTK 

MALK 

MALRD 

MALRDE 

MALSTF 


Refers  to: 


SCELAB 

SCARYCR 

SCARYUP 

SCDEFCR 

SCDEFUP 

SCENUCR 

SCENMUP 

SCFLDCR 

SCINTCR 

SCINTUP 

SCLISTCR 

SCLISTUP 

SCPOPTR 

SCPTRCR 

SCPTRUP 

SCPUSHTR 

SCRELCR 

SCRELUP 

SCSETCR 

SCSETUP 

SCSTCUP 

SCSTGCR 

SCSTGUP 

SCTRSPR 
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Routine: 

SCUNIQUE 

Routine: 

SCUNQEST 

Routine: 

SCUNQPND 

Routine: 

SCUPDATE 


Routine: 

SORTKIND 

Routine: 

SORTNAME 
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MAEU 

MAL 

MALATC 

MALD 

MALGTK 

MALNO 


Refers  to: 


SCELAB 
Refers  to: 


SCELAB 

MAKXEQ 


Refers  to: 


SCELAB 


Refers  to: 


SCELAB 

MUPDATE 

SCCLSUP 

SCDEFUP 

SCENTUP 

SCFLDUP 

SCKEFIND 

SCSUBUP 

SCSUPUP 

MAEU 

MAED 

MAL 

MALD 

MALNO 

MAUPDT 


Refers  to: 


Refers  to: 
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Routine: 

Refers  to: 

UPARRAY 

SCELAB 
ISPLNK 
ISPLNK1 2 

Routine: 

Refers  to: 

UPCLASS1 

SCELAB 

ISPLNK 

ISPLNK50 

ISPLNKID 

Routine: 

Refers  to: 

UPCLASS2 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

UPDEFTYP 

SCELAB 

ISPLNK 

ISPLNK12 

ISPLNKID 

Routine: 

Refers  to: 

UPENTY1 

SCELAB 

ISPLNK 

ISPLNKC8 

ISPLNK50 

ISPLNKID 

Routine: 

Refers  to: 

UPENTY2 

SCELAB 

ISPLNK 

ISPLNK1 

H-66 
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• 

ISPLNKID 

ISPLNKC6 

ISPLNKC8 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

UPENUM 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNKC8 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

UPFIELD 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNKC8 

ISPLNK9 

ISPLNK12 

ISPLNK50 

ISPLNKID 

• 

Routine: 

Refers  to: 

UPINT 

SCELAB 

ISPLNK 

Routine: 

Refers  to: 

UPLIST 

SCELAB 

ISPLNK 

ISPLNK12 

Routine: 

Refers  to: 

UPPNTR 

SCELAB 

ISPLNK 

ISPLNK1 

H-67 

• 
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ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 


Routine: 

Refers  to: 

UPREAL 

SCELAB 

ISPLNK 

Routine: 

Refers  to: 

UPSET 

SCELAB 

ISPLNK 

ISPLNK12 

Routine: 

Refers  to: 

UPSTRING 

SCELAB 

ISPLNK 

Routine: 

Refers  to: 

UPSTRUC 

SCELAB 

ISPLNK 

ISPLNK1 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

UPSUB1 

SCELAB 

ISPLNK 

ISPLNK50 

ISPLNKID 

Routine: 

Refers  to: 

UPSUB2 

SCELAB 

ISPLNK 

ISPLNK1 
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Routine: 

UPSUPER 


Routine: 

XATTDATA 


Routine: 

XATTNAME 
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ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Refers  to: 


SCELAB 

ISPLNK 

ISPLNKC8 

ISPLNKID 

Refers  to: 


SCELAB 

XATTRES 

XMPRESPE 

XMTYPSPE 

MAEUIK 

MAEXEQ 

MAL 

MALCPY 

MALD 

MALK 

MAL  NO 


Refers  to: 


SCELAB 

XMNAMSPE 

XNAMENUM 

XRESULT 

MAEGKN 

MAEU 

MAKXEQ 

MAL 

MALATC 

MALD 

MALNO 

MALRD 

MALSTF 
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Routine: 

Refers  to: 

XATTRES 

SCELAB 

XMATTRES 

MAEGTK 

MAEU 

HALD 

MALRD 

MALSTF 

Routine: 

Refers  to: 

XEXPREC 

SCELAB 

XMRESULT 

MAEGTK 

MALD 

MALK 

MALNO 

MALRD 

MALSTF 

Routine: 

Refers  to: 

XFNDARY 

MALATC 

Routine: 

Refers  to: 

XFNDKEY 

SCELAB 

MAKXEQ 

Routine: 

Refers  to: 

XFNDNAME 

MALATC 

Routine: 

Refers  to: 

XFNDPREC 

MALATC 
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Routine:  Refers  to: 
XL I STENT 

SCELAB 

XATTRES 

XFNDKEY 

XMNAMSPE 

XNAMENUM 

XRESULT 

MAEU 

MAEUIK 

MALD 

MALKL 


Routine: 

Refers  to: 

XHAIN 

SCELAB 

XATTDATA 

XATTNAME 

XEXPREC 

XLISTENT 

XMMAIN 

Routine: 

Refers  to: 

XMATTRES 

SCELAB 

ISPLNK 

ISPLNK50 

ISPLNKRV 

ISPLNKRB 

ISPLNKTD 

Routine: 

Refers  to: 

XMMAIN 

SCELAB 

ISPLNK 

Routine: 

Refers  to: 

XMNAMSPE 

SCELAB 

ISPLNK 

ISPLNK50 

ISPLNKID 
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Routine: 

Refers  to: 

XMPRESPE 

SCELAB 

ISPLNK 

Routine: 

Refers  to: 

XMRESULT 

SCELAB 

ISPLNK 

ISPLNK50 

ISPLNKID 

ISPLNKTV 

ISPLNKTB 

ISPLNKTD 

Routine: 

Refers  to: 

XMTYPSPE 

SCELAB 

ISPLNK 

Routine: 

Refers  to: 

XNAMENUM 

SCELAB 

SCCHRCK 

Routine: 

Refers  to: 

XRESULT 

SCELAB 

XMRESULT 

MALRD 

MAEGTK 
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APPENDIX  I 

SCHEMA  MANAGER  ROUTINES 


This  appendix  provides  a  listing  of  each  procedure  in  the  Schema  Manager 
Software  Package. 

The  routines  are  listed  in  alphabetic  order.  An  index  with  a  brief 
description  of  the  routine  function  is  provided. 

A  hierarchy  dictionary  is  provided  in  Appendix  D  to  show  the  relationship 
of  the  routines. 


Routine  Index  .  1-2 

Routine  Dictionary .  1-10 


1-1 
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ADDENUM 

ADDFIELD 

APPROVE 

BATDVR 

BATERR 

BATRPT 

BCSMAIN 

BLDARRAY 

BLDBPDEF 

BLDCLASS 

BLDCLS 

BLDDFTYP 

BLDEITEM 

BLDENT 

BLDENUMR 

BLDFIELD 

BLDGBLFD 

BLDINT 

BLDLOG 

BLDPNTR 

BLDREAL 

BLDSSCMA 

BLDSTRNG 

BLDSTRUC 

BLDSUB 

BLDSUPER 

BLDUNRES 

BLEXICAL 

BSCINCLD 

BSCTRSPR 

CLRSTK 

CRARRAY 

CRCLASS1 

CRCLASS2 

CRDEFTYP 

CRENTITY 

CRENUM 

CRFIELD 

CRINTGR 

CRUST 


ROUTINE  INDEX 


DISPLAYS  THE  ADD  ENUMERATION  MENU 
DISPLAYS  THE  ADDFIELD  PANEL 
DISPLAYS  THE  APPROVE  UPDATE  PANEL 
Mainline  program  for  Batch  Interface. 

Error  reporting  and  recovery  for  Batch  Interface. 

Batch  Interface  routine  that  invokes  the  necessary  routines  to 
generate  a  specified  report. 

THIS  ROUTINE  SERVES  AS  THE  MAIN  DRIVER  FOR  THE  CONCEPTUAL  SCHEMA 
REPORT. 

BUILDS  THE  ARRAY  ENTITY. 

THIS  ROUTINE  BUILDS  THE  BACKPATCH  ENTITY. 

BUILDS  THE  CLASS  ENTITY. 

Batch  Interface  routine  that  creates  a  class  entity  in  the  schema 
model  from  a  class  name,  kind  number,  and  a  list  of  constituents. 
BUILDS  THE  DEFINED  TYPE  ENTITY. 

BUILDS  THE  ENUMERITEM  ENTITY. 

BUILDS  THE  ENTITY  ENTITY. 

BUILDS  THE  ENUMERATION  ENTITY. 

BUILDS  THE  FIELD  ENTITY. 

BUILDS  THE  GLOBAL  FIELD  ENTITY. 

BUILDS  THE  INTEGER  ENTITY. 

BUILDS  THE  LOGICAL  ENTITY. 

BUILDS  THE  POINTER  ENTITY. 

BUILDS  THE  REAL  ENTITY. 

BUILDS  THE  SUBSCHEMA  ENTITY. 

BUILDS  THE  STRING  ENTITY. 

BUILDS  THE  STRUCTURE  ENTITY. 

Batch  Interface  routine  that  creates  a  subschema  entity  in  the 
schema  model  from  a  subschema  name  and  list  of  constituents. 

THIS  ROUTINE  BUILDS  THE  SUPERTYPE  ENTITY. 

THIS  ROUTINE  BUILDS  THE  UNRESOLVED  ENTITY. 

LOCATE  THE  LONGEST  POSSIBLE  LEXEME  FROM  WHICH  A  TOKEN  MAY  BE 
DETERMINED,  EXCLUDING  COMMENTS. 

THIS  ROUTINE  GENERATES  THE  PASCAL  INCLUDE  FILES  AND  WRITES  THESE 
DEFINITIONS  TO  A  FILE 

THIS  ROUTINE  BEGINS  THE  PROCESSING  OF  THE  TRANSACTION  STACK. 

Batch  Interface  routine  that  clears  the  transaction  processing  stack 

DISPLAYS  THE  CREATE  ARRAY  MENU 

DISPLAYS  THE  CREATE  CLASS1  PANEL 

DISPLAYS  THE  CREATE  CLASS  PANEL  2  MENU 

DISPLAYS  THE  CREATE  DEFINED  TYPE  MENU 

DISPLAYS  THE  CREATE  ENTITY  MENU 

DISPLAYS  THE  CREATE  ENUMERATION  MENU 

DISPLAYS  THE  CREATE  FIELD  PANEL 

DISPLAYS  THE  CREATE  INTEGER  MENU 

DISPLAYS  THE  CREATE  LIST  PANEL 
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CRPNTR 

CRREAL 

CRSET 

CRSTRING 

CRSUBSCM 

CRSUPTYP 


CRURUL 


CSARYWRT 

CSCLSHDG 

CSCLSWRT 

CSDEFHDG 

CSDFFWRT 

CSE.iMWRT 

CSENTHDG 

CSENTWRT 

CSGBLHDG 

CSGBLWRT 

CSHDGWRT 

CSINDWRT 

CSINTWRT 

CSLOGWRT 

CSMAIN 

•CSNEWPG 
CSPTRWRT 
CSRELWRT 
CSRPTCVR 
CSSTGWRT 
CSSTRWRT 
CSSUBHDG 
CSSUBWRT 
CSSUPHDG 
CSSUPWRT 
CSTYPWRT 
DDABNDS 
DDADB 
DDARRAY 
DDCL 
DDCLASS 
DDENTITY 
DDENUM 
DDREPORT 
DDWRITE 
DEFADD 

DEFARR 

DEFATT 


DISPLAYS  THE  CREATE  POINTER  MENU 
DISPLAYS  THE  CREATE  REAL  PANEL 
DISPLAYS  THE  CREATE  SET  PANEL 
DISPLAYS  THE  CREATE  STRING  PANEL 
DISPLAYS  THE  CREATE  SUBSCHEMA  PANEL 

DISPLAYS  EITHER  THE  CREATE/REFERENCE  SUPERTYPE  MENU  OR  THE  CREATE 
SUPERTYPE  MENU 

CREATES  THE  USER'S  RULES.  RULES  OF  CONNECTIVITY  USED  TO  DETERMINE 
DELETABILITY  OF  ENTITIES. 

WRITES  OUT  AN  ARRAY  DEFINITION 

WRITES  OUT  A  CLASS  HEADING  ON  A  NEW  PAGE. 

WRITES  OUT  CLASS  DEFINITIONS  TO  A  FILE 
WRITES  OUT  A  DEFINED  TYPE  HEADING  ON  A  NEW  PAGE. 

WRITES  OUT  A  DEFINED  TYPE  NAME 
WRITES  OUT  AN  ENUMERATION  DEFINITION 
WRITES  OUT  AN  ENTITY  HEADING  ON  A  NEW  PAGE. 

WRITES  OUT  ENTITY  DEFINITIONS  TO  A  FILE 
WRITES  OUT  A  GLOBAL  FIELD  HEADING  ON  A  NEW  PAGE 
WRITES  OUT  GLOBAL  FIELD  DEFINITIONS  TO  A  FILE 
CALLS  THE  APPROPRIATE  HEADING  ROUTINE. 

WRITES  OUT  TO  A  FILE  AN  INDEX  FOR  AN  ENTITY,  CLASS,  OR  SUBSCHEMA. 
WRITES  OUT  AN  INTEGER  DEFINITON 
WRITES  OUT  A  LOGICAL  DEFINITION 

SERVES  AS  THE  MAIN  DRIVER  FOR  THE  CONCEPTUAL  SCHEMA  REPORT. 

CREATES  A  NEW  PAGE  IN  THE  CONCEPTUAL  SCHEMA  REPORT. 

WRITES  OUT  A  POINTER  DEFINITION 
WRITES  OUT  A  REAL  DEFINITION 

PRINTS  OUT  THE  REPORT  COVER  FOR  THE  CONCEPTUAL  SCHEMA. 

WRITES  OUT  A  STRING  DEFINITON 

WRITES  OUT  A  STUCTURE  DEFINITION 

WRITES  OUT  A  SUBSCHEMA  HEADING  ON  A  NEW  PAGE. 

WRITES  OUT  SUBSCHEMA  DEFINITIONS  TO  A  FILE. 

THIS  ROUTINE  WRITES  OUT  A  SUPERTYPE  HEADING  ON  A  NEW  PAGE. 

THIS  ROUTINE  WRITES  OUT  SUPERTYPE  DEFINITIONS  TO  A  FILE 
WRITES  OUT  THE  DEFINED  TYPE  DEFINITIONS  TO  A  FILE. 

WRITE  THE  LOW-BOUND  AND  UPPER-BOUND  FOR  THE  ARRAY  ATTRIBUTE 
WRITE  THE  BASIC  RECORD  OF  AN  ENTITY  TO  A  SEQUENTIAL  FILE 

WRITE  THE  ARRAY  ATTRIBUTE  OF  AN  ENTITY  TO  A  SEQUENTIAL  FILE 

WRITE  THE  CONSTITUENT  REFERENCES  OF  AN  ENTITY  TO  A  SEQUENTIAL  FILE 
WRITE  THE  CLASS  KINDS  TO  A  SEQUENTIAL  FILE 
WRITE  THE  ENTITY  KINDS  TO  A  SEQUENTIAL  FILE 

WRITE  THE  ENUMERATION  ATTRIBUTE  OF  AN  ENTITY  TO  A  SEQUENTIAL  FILE 
WRITE  THE  DATA  DICTIONARY  IN  CHARACTER  FORM. 

WRITE  THE  ENTITY  DEFINITIONS  TO  A  SEQUENTIAL  FILE 

Batch  Interface  routine  that  adds  an  unresolved  entity  reference  to 

the  list  of  backpatch  entities. 

Batch  Interface  routine  that  processes  an  array  definition. 

Batch  Interface  routine  that  processes  an  attribute  definition. 


1-3 


PS  560130000A 
22  December  1987 


DEFBAS  -  Batch  Interface  routine  that  processes  a  primitive  data  type 
definition. 

DEFCLS  -  Batch  Interface  routine  that  processes  a  class  definition. 

DEFDEF  -  Batch  Interface  routine  that  processes  a  defined  type  reference. 

DEFENM  -  Batch  Interface  routine  that  processes  an  enumeration  definition. 

DEFENT  -  Batch  Interface  routine  that  processes  an  entity  definition. 

DEFGBL  -  Batch  Interface  routine  that  processes  a  global  attribute 
definition. 

DEFPRE  -  Batch  Interface  routine  that  processes  an  integer  precision,  real 

precision,  or  string  length. 

DEFPTR  -  Batch  Interface  routine  that  processes  a  pointer  definition. 

DEFQUERY  -  Batch  Interface  routine  that  determines  if  a  newly  modeled  entity 
satisfies  any  unresolved  entity  references  on  the  backpatch  list. 
DEFSTC  -  Batch  Interface  routine  that  processes  a  structure  definition 

DEFSUB  -  Batch  Interface  routine  that  processes  a  subschema  definition 

DEFSUP  -  Batch  Interface  routine  that  processes  a  supertype  definition 

DEFTYP  -  Batch  Interface  routine  that  processes  a  defined  type  definition. 

DISPLIST  -  DISPLAYS  A  LIST  OF  ENTITIES. 

ENTCLS  -  Batch  Interface  routine  that  determines  if  a  specified  identifier  is 
a  modeled  entity  or  class. 

ERRMSG  -  Batch  Interface  routine  that  writes  appropriate  error  messages  to 

the  report  file. 

ERRREC  -  Batch  Interface  routine  that  performs  the  necessary  actions  to 
recover  from  an  input  error. 

GETDD  -  READ  THE  DATA  DICTIONARY  INTO  THE  APPLICATION  PROGRAM. 

LEXICAL  -  LOCATE  THE  LONGEST  POSSIBLE  LEXEME  FROM  WHICH  A  TOKEN  MAY  BE 

DETERMINED. 

LMEM23  -  DISPLAYS  THE  LIST  MEMBERS  (LMEM23)  PANEL 

MCREATE  -  DISPLAYS  THE  CREATE  MENU 

MFILMOD  -  DISPLAYS  THE  FILE/RETRIEVE  MENU 

MINCLUD  -  DISPLAYS  THE  LIST  OF  SUBSCHEMAS 

MMAIN  -  DISPLAYS  THE  MAIN  MENU 

MNEWMOD  -  DISPLAYS  THE  FILE/RETRIEVE  MENU 

MQBHALL  -  PRINT  ALL  ENTITIES  IN  THE  MODEL 

MQBHATT  -  PRINT  INDIVIDUAL  INSTANCES  OF  A  SPECIFIC  KIND 

MQBHATTS  -  PRINT  ALL  ENTITIES  OF  A  SPECIFIC  KIND 

MQBHENT  -  DISPLAY  BATCH  ENTITY  MENU  (  SELECT  TO  PRINT  ALL  ENTITIES  OF  A 

SPECIFIC  KIND  OR  TO  PRINT  INDIVIDUAL  INSTANCES  OF  A  SPECIFIC  KIND  ) 
MQBHMAIN  -  DISPLAY  BATCH  MAIN  MENU  (  SELECT  TO  PRINT  ALL  ENTITIES  IN  THE  MODEL 
OR  TO  PRINT  ALL  ENTITIES  OF  A  SPECIFIC  KIND  ) 

MQCLMU  -  DISPLAY  A  LIST  OF  CONSTITUENTS  FOR  A  SPECIFIC  KIND 
MQGETVAL  -  CONVERT  ATTRIBUTE  VALUE  TO  A  STRING  VALUE 
MQGTDEFN  -  GET  ENTITY  DEFINITIONS  OF  A  SPECIFIC  KIND 
MQIAATT  -  PRINT  INDIVIDUAL  INSTANCES  OF  A  SPECIFIC  KIND 
MQIAENT  -  DISPLAY  INTERACTIVE  ENTITY  MENU 
MQIAMAIN  -  DISPLAY  MAIN  INTERACTIVE  MENU 

MQNCLMU  -  DISPLAY  A  MENU  INDICATING  NO  CONSTITUENTS  FOR  A  SPECIFIC  ENTITY. 
MQNUSRMU  -  DISPLAY  A  MENU  INDICATING  NO  USERS  FOR  A  SPECIFIC  ENTITY 
MQUDVR  -  Mainline  program  for  Model  Query  Utility. 
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MQUSRMU  - 
MREPORT  - 
MREVIEW  - 
MUPDATE  - 
NVRTVRS  - 
PHALFLD  - 

PHBYFPOS  - 

PHDECBYT  - 

PHENTITY  - 

PHGLOBAL  - 

PHGTFLD  - 
PPHPOSITN 
PHSRTFLD  - 

PHSRTORD  - 
PHSUBTYP  - 

PHWOFPOS  - 

PHYSICAL  - 

PSORDER  - 

PSRABNDS  - 
PSRADB  - 
PSRARRAY  - 
PSRCL 

PSRENUM  - 
PSREPORT  - 
PSRHEAD  - 
PSRINDEX  - 
REARRAY  - 
RECLASS  - 
REDEFTYP  - 
REENTIT  - 
REENUM  - 
REFIELD  - 
REFIELD1  - 
REFIELD2  - 
REFSUP  - 

REINTGR  - 
RELIST  - 
REPNTR  - 


DISPLAY  LIST  OF  USERS  FOR  A  SPECIFIC  ENTITY 

DISPLAYS  THE  REPORT  MENU 

DISPLAYS  THE  REVIEW  MENU 

DISPLAYS  THE  UPDATE  MENU 

RETRIEVE  ENTITY  DEFINITIONS  FROM  THE  FILE 

PHYSICALIZE  THE  ATTRIBUTE  OF  AN  ENTITY  (  DETERMINE  ATTRIBUTE  SIZE 
AND  LOCATION  ) 

PHYSICALIZE  THE  ATTRIBUTES  THAT  SPECIFIED  THE  FIELD  POSITION  ORDER  ( 
DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  ) 

TRANSLATE  DECIMAL  DIGIT  PRECISION  INTO  BYTE  PRECISION  AND  BUILD  A 
LIST  OF  ATTRIBUTES  OF  AN  ENTITY  ACCORDING  TO  BOUNDARY  ALIGNMENT. 
PHYSICALIZE  THE  ENTITY  DEFINITIONS  OF  THE  SUBSCHEMA 
(  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  ) 

PHYSICALIZE  THE  GLOBAL  FIELDS  OF  THE  SCHEMA 
(  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  ) 

Determine  boundary  alignment  of  different  data  types  in  the  field 
-  DETERMINE  THE  FIELD  POSITION  ORDER 

DETERMINE  THE  LOCATION  OF  ATTRIBUTES  OF  AN  ENTITY  ACCORDING  TO 
BOUNDARY  ALIGNMENT. 

SORT  ATTRIBUTES  BY  THE  FIELD  POSITION  NUMBER 

PHYSICALIZE  THE  SUPER  TYPES 

DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  ) 

PHYSICALIZE  THE  ATTRIBUTES  THAT  DID  NOT  SPECIFIED  THE  FIELD  POSITION 
NUMBER  (  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  ) 

PHYSICALIZE  THE  ENTITY  DEFINITIONS  OF  THE  SUBSCHEMA 
(  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  ) 

DETERMINE  THE  PHYSICAL  SCHEMA  ORDER  OF  ENTITY  DEFINITION  BY  ITS 
OFFSET. 

WRITE  LOW-BOUND  AND  UPPER-BOUND  FOR  THE  ARRAY  ATTRIBUTE 

WRITE  THE  BASIC  RECORD  OF  AN  ENTITY  TO  A  PHYSICAL  SCHEMA  REPORT  FILE 

WRITE  THE  ARRAY  ATTRIBUTE  OF  AN  ENTITY  TO  A  SEQUENTIAL  FILE 

WRITE  THE  CONSTITUENT  REFERENCES  OF  AN  ENTITY  TO  A  SEQUENTIAL  FILE 

WRITE  THE  ENUMERATION  ATTRIBUTE  OF  AN  ENTITY  TO  A  SEQUENTIAL  FILE 

FILE  PHYSICAL  SCHEMA  REPEORT  TO  SEQUENTIAL  FILE 

WRITE  THE  PHYSICAL  SCHEMA  REPORT  HEADING 

WRITE  THE  TABLE  OF  CONTENTS  FOR  THE  PHYSICAL  SCHEMA  REPORT 

DISPLAYS  THE  REVIEW  ARRAY  PANEL. 

DISPLAYS  THE  REVIEW  CLASS  PANEL 

DISPLAYS  THE  DEFINED  TYPE  REVIEW  PANEL 

DISPLAYS  THE  REVIEW  ENTITY  MENU 

DISPLAYS  THE  REVIEW  ENUMERATION  MENU 

DISPLAYS  THE  REVIEW  FIELD  PANEL 

DISPLAYS  THE  REVIEW  FIELD  A  MENU  OR  THE  REVIEW  FIELD  B  MENU 

DISPLAYS  THE  REVIEW  FIELD  PANEL 

Batch  Interface  routine  that  attempts  to  resolve  a  reference  to  a 
supertype. 

DISPLAYS  THE  REVIEW  INTEGER  MENU 

DISPLAYS  THE  REVIEW  LIST  PANEL. 

DISPLAYS  THE  REVIEW  POINTER  MENU 
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REREAL  -  DISPLAYS  THE  REVIEW  REAL  PANEL 

RESET  -  DISPLAYS  THE  REVIEW  SET  PANEL. 

RESTRING  -  DISPLAYS  THE  REVIEW  STRING  PANEL 

RESTRUC  -  DISPLAYS  THE  REVIEW  STRUCTURE  PANEL 

RESUBSCM  -  DISPLAYS  THE  REVIEW  SUBSCHEMA  PANEL 

RESUPTYP  -  DISPLAYS  THE  REVIEW  SUPERTYPE  MENU 

RSCPAI  -  COPY  THE  ARRAY  INDEX  TABLE  INFORMATION  INTO  THE  RUN-TIME  SUBSCHEMA. 
RSCPAT  -  COPY  THE  SIZE  AND  THE  LOWER  BOUND  OF  THE  ARRAY  INTO  THE  RUN-TIME 
SUBSCHEMA. 

RSCPCI  -  COPY  THE  POINTER  INDEX  TABLE  INFORMATION  INTO  THE  RUN-TIME 
SUBSCHEMA. 

RSCPCT  -  COPY  THE  KINDS  OF  POINTERS  INTO  THE  RUNTIME  SUBSCHEMA. 

RSCPEI  -  COPY  THE  ENUMERATION  INDEX  TABLE  INFORMATION  INTO  THE  RUN-TIME 
SUBSCHEMA. 

RSCPET  -  COPY  THE  ENUMERATION  VALUES  INTO  THE  RUN-TIME  SUBSCHEMA. 

RSFILE  -  FILE  RUN-TIME  SUBSCHEMA  INTO  SEQUENTIAL  FILE 
RSGTSM  -  BUILD  RUN-TIME  SUBSCHEMA  FROM  SCHEMA  MODEL 

RSMASKND  -  INSERT  THE  MODEL  ACCESS  SOFTWARE  (MAS)  ATTRIBUTES  (  KIND,  LENGTH, 
SYSUSE  )  INTO  A  RUN-TIME  SUBSCHEMA. 

RSTRGF  -  Translate  global  fields  into  a  run-time  subschema 
RSTRSM  -  TRANSLATE  A  SCHEMA  MODEL  ENTRY  INTO  A  RUN-TIME  SUBSCHEMA  ENTITY, 
ENUMERATION  TABLE  AND  ARRAY  INFO  TABLE. 

RSTRST  -  TRANSLATE  SUPER  TYPE  INTO  A  RUN-TIME  SUBSCHEMA 

RSI  100  -  STORE  ARRAY__ENT ITY (1100)  IN  THE  DATA  DICTIONARY  AND  THE  RUN-TIME 

SUBSCHEMA 

SCALFSRT  -  IS  THE  ORDER  FUNCTION  CALLED  BY  MALSRT 

SCARYCR  -  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE  ARRAY  ENTITY  AND  PUSHES  THE 
DATA  ON  THE  TRANSACTION  STACK. 

SCARYUP  -  GATHERS  THE  DATA  TO  UPDATE  AN  ARRAY. 

SCBASIN  -  WRITES  THE  ENTITY  KIND  CONSTANTS  TO  THE  PASCAL  INCLUDE  FILE. 

SCCHRCK  -  CHFCKS  THAT  THE  CHARACTERS  IN  AN  ENTITY  NAME  ARE  VALID 
SCCLSCR1  -  GATHERS  THE  NAME  AND  KIND  NUMBER  TO  BE  ASSIGNED  TO  THE  CLASS  ENTITY 
TO  BE  CREATED. 

SCCLSCR2  -  GATHERS  THE  CONSTITUENTS  OF  THE  CLASS  ENTITY. 

SCCLSUP  -  GATHERS  THE  DATA  TO  UPDATE  THE  CLASS  ENTITY. 

SCCOMPAR  -  THIS  ROUTINE  COMPARES  TWO  NAMES  FOR  THE  LENGTH  SPECIFIED  BY 
'UNIQUENESS_LENGTH'  IN  SCECON.  THE  VARIABLE  'DIFFERENT'  IS  SET  TO 
TRUE  IF  THE  TWO  NAMES  DIFFER. 

SCCONIN  -  WRITES  THE  ENTITY  KIND  CONSTANTS  TO  THE  PASCAL  INCLUDE  FILE. 

SCCREATE  -  THIS  ROUTINE  DETERMINES  THE  NEXT  MENU  TO  DISPLAY  FROM  THE  CREATE 
OPTION  CHOSEN. 

SCDEFCR  -  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE  DEFINED  TYPE  ENTITY  AND 
PUSHES  THE  DATA  ON  THE  TRANSACTION  STACK. 

SCDEFUP  -  GATHERS  THE  DATA  TO  UPDATE  THE  DEFINED  TYPE  ENTITY. 

SCENMUP  -  GATHERS  THE  DATA  TO  UPDATE  THE  ENUMERATION  ENTITY. 

SCENTCR  -  GATHERS  THE  DATA  NECESSARY  TO  MODEL  THE  ENTITY  ENTITY. 

SCENTIN  -  WRITES  THE  ENTITY  TYPE  DECLARATIONS  TO  THE  PASCAL  INCLUDE  FILE. 

SCENTUP  -  UPDATES  THE  ENTITY  ENTITY. 
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SCENUCR 


SCEXIST 


SCFLDAD 

SCFLDCR 

SCFLDIN 

SCFLDSRT 


SCFLDST 


SCFLDUP 

SCFNDKEY 

SCGENRPT 

SCHDVR 

SCINCLD 

SCINTCR 

SCINTUP 

•SCKEFIND 
SCKEYIN 
SCLISTCR 

SCLISTUP 

SCMASIN 

SCMEMAD 

SCMEMLST 


SCPOPKE 

SCPOPTR 

SCPRMFL 

SCPRMRE 

SCPTRCR 

SCPTRUP 

SCPUSHKE 

SCPUSHTR 

SCRELCR 


SCRELUP 


GATHERS  THE  DATA  NECESSARY  TO  CREATt  THE  ENUMERITEM  ENTITY  AND 
PUSHES  THE  DATA  ON  THE  TRANSACTION  STACK. 

VERIFIES  THE  EXISTENCE  OF  AN  ENTITY  AND  RETURNS  THE  ENTITY  KEY  IF  IT 
DOES  IN  FACT  EXIST. 

GATHERS  THE  DATA  TO  ADD  A  FIELD  TO  AN  ENTITY. 

GATHERS  THE  DATA  NECESSARY  TO  MODEL  THE  FIELD  ENTITY. 

WRITES  THE  FIELD  TYPE  DECLARATION  TO  THE  PASCAL  INCLUDE  FILE. 

FINDS  THE  KEY  AND  RETURNS  IT  TO  THE  CALLING  PROCEDURE  GIVEN  A  NAME 
OR  USER  DEFINED  KIND  NUMBER  AS  WELL  AS  THE  ENTITY  KIND. 

SORTS  THE  FIELDS  INTO  TWO  GROUPS  AND  THEN  ORDERS  THEM  ACCORDING  TO 
OFFSET  OR  POSITION  DEPENDING  ON  WHETHER  OR  NOT  THEY  ARE  IN  THE  LIST 
OF  ADB  FIELDS  OR  THE  LIST  OF  CONSTITUENT  FIELDS. 

GATHERS  THE  DATA  TO  UPDATE  THE  FIELD  ENTITY. 

FINDS  THE  KEY  AND  RETURNS  IT  TO  THE  CALLING  PROCEDURE  GIVEN  A  NAME 
OR  USER  DEFINED  KIND  NUMBER  AS  WELL  AS  THE  ENTITY  KIND. 

DETERMINES  THE  SUBSCHEMA  FOR  WHICH  A  REPORT  IS  TO  BE  GENERATED  AND 
CALLS  THE  APPROPRIATE  ROUTINE  TO  PRODUCE  THE  REPORT. 

THIS  IS  THE  MAINLINE  PROGRAM  WHICH  DRIVES  THE  SCHEMA  EXECUTIVE 
PACKAGE. 

GENERATES  THE  PASCAL  INCLUDE  FILES  AND  WRITES  THESE  DEFINITIONS  TO  A 
FILE 

GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE  INTEGER  ENTITY  AND  PUSHES 
THE  DATA  ON  THE  TRANSACTION  STACK. 

UPDATES  THE  INTEGER  ENTITY. 

GETS  THE  KEY  TO  THE  ENTITY  TO  BE  UPDATED  OR  REVIEWED. 

WRITES  THE  KEYBLOCK  TYPE  DECLARATION  TO  THE  PASCAL  INCLUDE  FILE. 

THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE  LIST  ENTITY 
AND  PUSHES  THE  DATA  ON  THE  TRANSACTION  STACK. 

THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  A  LIST. 

WRITES  THE  MAS  ADB  DECLARATION  TO  THE  PASCAL  INCLUDE  FILE. 

DISPLAYS  A  LIST  OF  MEMBERS  FROM  WHICH  THE  USER  CAN  SELECT.  THE 
ENTITY  KEY  OF  THE  MEMBER  SELECTED  IS  RETURNED. 

LISTS  OUT  THE  CURRENT  MEMBERS/CONSTITUENTS  OF  THE  ENTITY,  CLASS, 
SUBSCHEMA,  POINTER,  STRUCTURE,  GLOBAL  FIELD  AND  ENUMERATION 
ENTITIES. 

'POPS'  A  KEY  OFF  OF  THE  KEY  STACK. 

'POPS'  THE  TRANSACTION  DATA  OFF  OF  THE  DYNAMICALLY  ALLOCATED  STACK. 
FILLS  AN  ARRAY  WITH  THE  NAMES  OF  THE  ENTITIES  IN  THE  LIST  OF 
ENTITIES. 

GATHERS  THE  DATA  TO  REVIEW  THE  ENTITIES  AND  CALLS  THE  MENU  INTERFACE 
ROUTINES  TO  DISPLAY  THIS  DATA. 

GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE  POINTER  ENTITY  AND  PUSHES 
THE  DATA  ON  THE  TRANSACTION  STACK. 

GATHERS  THE  DATA  TO  UPDATE  THE  POINTER  ENTITY. 

'PUSHES'  THE  KEY  DATA  ON  TO  THE  DYNAMICALLY  ALLOCATED  KEY  STACK. 
'PUSHES'  THE  TRANSACTION  DATA  ON  TO  THE  DYNAMICALLY  ALLOCATED  STACK. 
GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE  REAL  ENTITY  AND  PUSHES  THE 
DATA  ON  THE  TRANSACTION  STACK. 

UPDATES  THE  REAL  ENTITY. 
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SCREVIEW  -  THIS  ROUTINE  DETERMINES  THE  NEXT  MENU  TO  DISPLAY  FROM  THE  EDIT 
OPTION  CHOSEN. 

SCRPTM  -  DETERMINES  THE  REPORT  OPTION  SELECTED  AND  CALLS  THE  ROUTINE  WHICH 
GENERATES  THE  REPORT. 

SCSETCR  -  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE  SET  ENTITY  AND 
PUSHES  THE  DATA  ON  THE  TRANSACTION  STACK. 

SCSETUP  -  THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  A  SET. 

SCSTCUP  -  GATHERS  THE  DATA  TO  UPDATE  THE  STRUCTURE  ENTITY. 

SCSTGCR  -  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE  STRING  ENTITY  AND  PUSHES 
THE  DATA  ON  THE  TRANSACTION  STACK. 

SCSTGUP  -  UPDATES  THE  STRING  ENTITY. 

SCSUBCR  -  GATHERS  THE  DATA  NEEDED  TO  MODEL  THE  SUBSCHEMA  ENTITY. 

SCSUBUP  -  GATHERS  THE  DATA  TO  UPDATE  THE  SUBSCHEMA  ENTITY. 

SCSUPCR  -  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  MODEL  THE  SUPERTYPE 
ENTITY. 

SCSUPUP  -  THIS  ROUTINE  UPDATES  THE  SUPERTYPE  ENTITY. 

SCTRSPR  -  BEGINS  THE  PROCESSING  OF  THE  TRANSACTION  STACK. 

SCTYPIN  -  WRITES  THE  DEFINED  TYPE  DECLARATIONS  TO  THE  PASCAL  INCLUDE  FILE. 
SCTYPUP  -  UPDATES  THE  DEFINED  TYPE,  ARRAY,  OR  FIELD  ENTITY'S  TYPE. 

SCUNIQUE  -  VERIFIES  THE  UNIQUENESS  OF  NAMES  WITHIN  THE  SCHEMA  FOR  THE 
SUBSCHEMA,  CLASS,  ENTITY,  GLOBAL  FIELD,  FIELD,  ENUMERITEM,  AND 
DEFINED  TYPE  ENTITIES  AS  WELL  AS  THE  USER  DEFINED  KIND  NUMBERS  FOR 
CLASSES  AND  ENTITIES. 

SCUNf.EST  -  CALLS  MAKXEQ  TO  EXECUTE  THE  PROCEDURE  SCUNIQUE  WHICH  VERIFIES  THE 
UNIQUENESS  OF  NAMES  WITHIN  THE  SCHEMA  FOR  THE  SUBSCHEMA,  CLASS, 
ENTITY,  GLOBAL  FIELD,  FIELD,  ENUMERITEM,  AND  DEFINED  TYPE  ENTITIES 
AS  WELL  AS  THE  USER  DEFINED  KIND  NUMBERS  FOR  CLASSES  AND  ENTITIES. 
SCUNQPND  -  VERIFIES  THE  UNIQUENESS  OF  NAMES  AND  USER  DEFINED  KIND  NUMBERS  FOR 
CLASSES  AND  ENTITIES,  BY  SEARCHING  THE  TRANSACTION  STACK  FOR  THE 
CLASS,  ENTITY,  FIELD,  ENUMERITEM,  AND  DEFINED  TYPE  ENTITIES. 

SCUPDATE  -  THIS  ROUTINE  DETERMINES  THE  NEXT  MENU  TO  DISPLAY  FROM  THE  UPDATE 
OPTION  CHOSEN. 

SORTKIND  -  THE  ORDER  FUNCTION  CALLED  BY  MALSRT 
SORTNAME  -  THE  ORDER  FUNCTION  CALLED  BY  MALSRT 
UPARRAY  -  DISPLAYS  THE  UPDATE  ARRAY  MENU 
UPCLASS1  -  DISPLAYS  THE  UPDATE  CLASS  MENU  1 
UPCLASS2  -  DISPLAYS  THE  UPDATE  CLASS  MENU  2 
UPDEFTYP  -  DISPLAYS  THE  UPDATE  DEFINED  TYPE  MENU 
UPENTY1  -  DISPLAYS  THE  UPDATE  ENTITY  MENU  1 

UPENTY2  -  DISPLAYS  THE  UPDATE  ENTITY  MENU  2 

UPENUM  -  DISPLAYS  THE  UPDATE  ENUMERATION  MENU 

UPFIELD  -  DISPLAYS  THE  UPDATE  FIELD  PANEL 

UPINT  -  DISPLAYS  THE  UPDATE  INTEGER  MENU 
UPLIST  -  DISPLAYS  THE  UPDATE  LIST  MENU 
UPPNTR  -  DISPLAYS  THE  UPDATE  POINTER  MENU 
UPREAL  -  DISPLAYS  THE  UPDATE  REAL  MENU 

UPSET  -  DISPLAYS  THE  UPDATE  SET  MENU 

UPSTRING  -  DISPLAYS  THE  UPDATE  STRING  MENU 


UPSTRUC  -  DISPLAYS  THE  UPDATE  STRUCTURE  MENU 
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UPSUB1  -  DISPLAYS  THE  UPDATE  SUBSCHEMA  PANEL  1 

UPSUB2  -  DISPLAYS  THE  REVIEW  SUBSCHEMA  PANEL  2 

UPSUPER  -  DISPLAYS  THE  UPDATE  SUPERTYPE  MENU 

XATTDATA  -  THIS  ROUTINE  GENERATES  A  LIST  OF  ALL  "ENTITIES"  CONTAINING  A 

PARTICULAR  "ENTITY." 

XATTNAME  -  THIS  ROUTINE  GENERATES  A  LIST  OF  ALL  ENTITIES  HAVING  AN  ATTRIBUTE 
WITH  A  SPECIFIED  NAME. 

XATTRES  -  DISPLAYS  CROSS  REFERENCE  REPORT  RESULTS 

XEXPREC  -  THIS  ROUTINE  GENERATES  A  LIST  OF  ALL  EXISTING  PRECISIONS  FOR  THE 
INTEGER,  REAL,  OR  STRING  DATA  TYPE. 

XFNDARY  -  THIS  ROUTINE  FINDS  ALL  ARRAY  DATA  TYPES  OF  SET,  LIST,  OR  ARRAY  AND 
PUTS  THEM  ON  A  LIST. 

XFNDKEY  -  THIS  ROUTINE  DETERMINES  THE  KEY  FOR  A  GIVEN  ENTITY  NAME  OR  NUMBER 
XFNDNAME  -  THIS  ROUTINE  FINDS  ALL  ATTRIBUTES  WITH  THE  GIVEN  NAME  AND  PUTS  THEM 
ON  A  LIST. 

XFNDPREC  -  THIS  ROUTINE  FINDS  ALL  INTEGERS,  REALS,  OR  STRINGS  WITH  THE 
SPECIFIED  PRECISION  AND  PUTS  THEM  ON  A  LIST. 

XLISTENT  -  THIS  ROUTINE  GENERATES  A  LIST  OF  ALL  "ENTITIES"  CONTAINING  A 
PARTICULAR  ENTITY. 

XMAIN  -  THIS  ROUTINE  DETERMINES  THE  CROSS  REFERENCE  OPTION  DESIRED 

XMATTRES  -  DISPLAYS  A  CROSS  REFERENCE  MENU 

XMMAIN  -  DISPLAYS  A  CROSS  REFERENCE  MENU 

XMNAMSPE  -  DISPLAYS  A  CROSS  REFERENCE  REPORT  MENU 

XMPRESPE  -  DISPLAYS  A  CROSS  REFERENCE  REPORT  MENU 

XMRESULT  -  DISPLAYS  A  CROSS  REFERENCE  MENU 

XMTYPSPE  -  DISPLAYS  A  CROSS  REFERENCE  MENU 

XNAMENUM  -  THIS  ROUTINE  DETERMINES  IF  A  CHARACTER  STRING  IS  A  NAME  OR  NUMBER 
XRESULT  -  THIS  ROUTINE  DISPLAYS  THE  CROSS  REFERENCE  REPORT  RESULTS 
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ROUTINE  DICTIONARY 


(*  %INCLUDE  ADDENUM  *) 

(**) 

PROCEDURE  ADDENUM (VAR  MESS  :  MESSAGE; 

VAR  NAME  :  CHARI 6; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  ADD  ENUMERATION  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NAME  0  THE  NAME  OF  THE  ENUMERATION  FROM  PANEL  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  CREATE  ENUMERATION  PANEL  (ADDENUM)  BY  MAKING  *) 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  *) 

(*  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  *) 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  *) 

(*  PROCEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  ADDFIELD  *) 
(**) 


PROCEDURE  ADDFIELD(VAR  MESS 

MESSAGE; 

VAR  NAME 

T  NAME; 

VAR  POS 

CHAR8; 

VAR  PURP 

CHAR8 ; 

VAR  REQD 

CHAR8 ; 

VAR  DEPD 

CHAR8 ; 

VAR  FTYPE 

ENTITY  TYPE; 

VAR  FLDTYP 

T  FIELDTYPE; 

VAR  NEXT  OP 

OPERATIONS; 

VAR  RR 

RET  REC); 

SUBPROGRAM; 


(**) 

(*- 

— 

-*) 

(* 

*) 

(* 

{FUNCTION: 

*) 

(* 

THIS  FUNCTION: 

*) 

(* 

DISPLAYS  THE  ADDFIELD  PANEL 

*) 

(* 

*) 

(* 

*) 

(* 

{DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

(* 

=  =  =  == 

====  = 

*) 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

*) 

(* 

NAME 

0 

THE  NAME  OF  THE  FIELD 

*) 

(* 

PURP 

0 

THE  PURPOSE  OF  THE  FIELD 

*) 

(* 

REQD 

0 

REQUIREDNESS  OF  THE  FIELD 

*) 

(* 

DEPD 

0 

DEPENDENCE  OF  THE  FIELD 

*) 

(* 

FTYPE 

0 

ENTITY  TYPE 

*) 

(* 

FLDTYPE 

0 

THE  FIELD  TYPE 

*) 

(* 

NEXT.OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

*) 

(* 

OPERATION 

*) 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

*) 

(* 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

*) 

(* 

*) 

(* 

{COMMONS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

{ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM 

PASCAL 

*) 

(* 

HARDWARE  SYSTEM: 

IBM  360/370/4341/4381 

*) 

(* 

DDNAMES  USED  WITH 

STANDARD  FILES: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

{EXECUTION  PROCEDURE: 

*) 

(* 

SCHEMA  EXECUTIVE 

MENU  INTERFACE  ROUTINE 

*) 

(*  *) 
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(*  $PROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  ADD  FIELD  PANEL  (ADDFIELD)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  APPROVE  *) 

(**) 

PROCEDURE  APPROVE (VAR  MESS  :  MESSAGE; 

VAR  NAME  :  T_NAME ; 

VAR  NEXT  OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 


SUBPROGRAM; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  PROCEDURE  : 

DISPLAYS  THE  APPROVE  UPDATE  PANEL 

SDESCRIPTION  OF  ARGUMENTS: 

NAME 

MESS 
NAME 
NEXT_OP 

RR 


SCOMMONS: 

NONE 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 

$ EXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

DISPLAY  THE  APPROVE  UPDATE  PANEL  (APPROVE)  BY  MAKING  ISPLNK 
CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 
TYPE. 

SCOMMENTS: 

NONE 

SCHANGE  CONTROL: 


I/O  DESCRIPTION 

I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 
I  THE  NAME  OF  THE  ENTITY 
0  ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  BATDVR  *) 


(*  *) 

(*  ^FUNCTION:  *) 

(*  THIS  IS  THE  MAINLINE  PROGRAM  WHICH  DRIVES  THE  BATCH  *) 

(*  INTERFACE  OF  THE  SCHEMA  MANAGER.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  SOURCE  =  INPUT  FILE  OF  SCHEMA  DEFINITIONS  IN  THE  *) 

(*  EXPRESS  INFORMATION  MODELING  LANGUAGE  *) 

(*  *) 

(*  REPORT1  -  OUTPUT  FILE  OF  ACTIONS  TAKEN  DURING  THE  *) 

(*  BATCH  PROCESSING.  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  C.  H.  MOHME  DBM A  *) 

(*  *) 

(*--- *) 
(*  *) 

(*END- - - *) 

(*  END  %INC LUDE  BATDVR  *) 
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(*  BEGIN  %INCLUDE  BATERR 
(* 


********************************************** j 

*) 


(* 

(* 

(* 

(* 

(* 

(* 

l* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


EXTERNAL; 


Const  Expected 

:  T_Expected; 

Var 

EntJCind 

:  Integer; 

Var 

Token 

:  T_Token; 

Var 

Token_Value 

:  T_Token_Value; 

Var 

Token_Location 

:  Integer; 

Var 

Token_Length 

:  Integer; 

Var 

Report 1 

:  Text  ); 

(* 

*) 

(* 

SFUNCTION: 

*) 

(* 

Error  reporting 

and  recovery  for  Batch  Interface. 

*) 

(* 

*) 

(* 

SDESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

*) 

*) 

EntJCind 

I 

Kind  of  entity  being  constructed 

(* 

Expected 

I 

Record  containing: 

*) 

(* 

Entries:  Number  of  entries 

*) 

(* 

in  array 

*) 

(* 

Token_Value:  Array  of  expected 

*) 

(* 

token  values 

*) 

(* 

Reportl 

0 

Error  messages 

*) 

(* 

Token 

I/O 

Input:  unrecognized  token 

*) 

(* 

Output:  first  recognized  token 

*) 

(* 

Token_Length 

I/O 

Input:  length  of  unrecognized  token 

*) 

(* 

Output:  length  of  recognized  token 

*) 

(* 

Token_Location 

I/O 

Input:  location  of  unrecognized 

*) 

(* 

token 

*) 

(* 

Output:  location  of  recognized  token 

*) 

(* 

Token_Value 

I/O 

Input:  value  of  unrecognized  token 

*) 

(* 

Output:  value  of  recognized  token 

*) 

$ COMMONS: 

SENVIRONMENT: 

LANGUAGE: 


IBM  PASCAL/VS  SEGMENT 


HARDWARE  SYSTEM:  IBM  360/370/4341/4381 
SEXECUTION  PROCEDURE: 

Internal  routine  for  Batch  Interface  of  the  Schema  Manager 

SPROCESSING  DESCRIPTION: 

Highlight  the  unrecognized  token. 

List  the  expected  tokens. 

Highlight  the  tokens  ignored  while  searching  for  a 
recognized  token. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 


SCOMMENTS: 

SCHANGE  CONTROL: 

ORIGINATED:  7  December  1987,  G.  A.  White 

REVISED:  <date,  responsible  person,  reason/description> 

END  %INCLUDE  BATERR  *********************************************) 


*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  BATRPT  *) 
(**) 

PROCEDURE  BATRPT (VAR 
VAR 
VAR 
VAR 

SUBPROGRAM; 


IRC 

TOKEN 

TOKEN_VALUE 
RE PORT 1 


RET_REC; 

T_TOKEN; 

T_TOKEN_VALUE; 

TEXT); 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 


*) 

*) 

{FUNCTION:  *) 

Batch  Interface  routine  that  invokes  the  necessary  routines*) 
to  generate  a  specified  report.  *) 

*) 

{DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

IRC  0  INTERNAL  RETURN  CODE  *) 

TOKEN  I/O  TOKEN  FROM  BATCH  INPUT  *) 

TOKEN_VALUE  I/O  TOKEN  VALUE  FROM  BATCH  INPUT  *) 

TEXT  I/O  OUTPUT  FILE  *) 

*) 

{COMMONS:  *) 

*) 

{ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

{EXECUTION  PROCEDURE:  *) 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

*) 

{PROCESSING  DESCRIPTION:  *) 

*) 

PERFORM  INITIALIZATIONS  *) 

GET  THE  REPORT  TYPE  *) 

IF  THE  REPORT  TYPE  IS  NOT  CONCEPTUAL  SCHEMA,  THEN  GET  THE  *) 

SUBSCHEMA  NAME.  *) 

GET  THE  SUBSCHEMA  KEY  AS  APPROPRIATE  AND  GENERATE  A  REPORT  *) 

GET  THE  SUBSCHEMA  KEY  *) 

PHYSICALIZE  THE  SUBSCHEMA,  IF  NECESSARY  *) 

IF  REPORT  TYPE  IS  PASCAL  INCLUDES,  THEN  GENERATE  THE  PASCAL  *) 

INCLUDE  FILES.  *) 

IF  REPORT  TYPE  IS  DATA  DICTIONAY,  THEN  GENERATE  THE  DATA  *) 

DICTIONARY.  *) 

IF  REPORT  TYPE  IS  PHYSICAL  SUBSCHEMA,  THEN  GENERATE  *) 

THE  PHYSICAL  SUBSCHEMA  REPORT.  *) 

PRINT  ERROR  MESSAGES  AS  APPROPRIATE  *) 
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(*  IF  REPORT  TYPE  IS  CONCEPTUAL  SCHEMA,  THEN  GENERATE  THE  *) 

(*  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  PRINT  ERROR  MESSAGES  AS  APPROPRIATE  *) 

(*  GET  THE  NEXT  TOKEN  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  06/09/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*-  *) 

(*  *) 

(*END . . . . . - . *) 

(*  END  %INCLUDE  BATRPT  *) 
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(*  %INCLUDE  BCSMAIN  *) 

(**) 

PROCEDURE  BCSMAIN(VAR  IRC  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* .  *) 

(*  *) 

(*  $  FUNCTION:  *) 

(*  THIS  ROUTINE  SERVES  AS  THE  MAIN  DRIVER  FOR  THE  CONCEPTUAL  *) 

(*  SCHEMA  REPORT.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  =«===  ===  ===========  * ) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  $ PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  INITIALIZE  THE  VARIABLES  USED  WITHIN  THIS  ROUTINE.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  REPORT  COVER.  *) 

(*  INITIALIZE  THE  PAGE  NUMBER  AND  PAGE  CHAIN.  *) 

(*  MAKE  A  LIST  OF  DEFINED  TYPES  WITHIN  THE  SCHEMA.  *) 

(*  ALPHABETIZE  THE  LIST  OF  DEFINED  TYPES.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  DEFINED  TYPES  WITHIN  THE  SCHEMA.  *) 

(*  DELETE  THE  LIST  OF  DEFINED  TYPES  WITHIN  THE  SCHEMA.  *) 

(*  MAKE  A  LIST  OF  GLOBAL  FIELDS  WITHIN  THE  SCHEMA.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  GLOBAL  FIELDS  WITHIN  THE  SCHEMA.  *) 

(*  DELETE  THE  LIST  OF  GLOBAL  FIELDS  WITHIN  THE  SCHEMA.  *) 

(*  MAKE  A  LIST  OF  ENTITIES  WITHIN  THE  SCHEMA.  *) 

(*  ALPHABETIZE  THE  LIST  OF  ENTITIES.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  ENTITIES  WITHIN  THE  SCHEMA.  *) 

(*  MAKE  A  LIST  OF  CLASSES  WITHIN  THE  SCHEMA.  *) 

(*  ALPHABETIZE  THE  LIST  OF  CLASSES.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  CLASSES  WITHIN  THE  SCHEMA.  *) 

(*  MAKE  A  LIST  OF  SUBSCHEMAS  WITHIN  THE  SCHEMA.  *) 

(*  ALPHABETIZE  THE  LIST  OF  SUBSCHEMAS.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  SUBSCHEMAS  WITHIN  THE  SCHEMA.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  ENTITY  INDEX.  *) 
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(*  DELETE  THE  LIST  OF  ENTITIES.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  CLASS  INDEX.  *) 

(*  DELETE  THE  LIST  OF  CLASSES.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  SUBSCHEMA  INDEX.  *) 

(*  DELETE  THE  LIST  OF  SUBSCHEMAS.  *) 

(*  IF  NO  MODEL  EXISTS,  WRITE  APPROPRIATE  MESSAGE.  *) 

(*  DISPOSE  OF  POINTERS  USED  IN  THIS  ROUTINE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  WITHIN  THE  INCLUDE  FILE  'CSTYPCON',  ONE  CAN  SET  THE  MAXIMUM  *) 
(*  NUMBER  OF  LINES  PER  PAGE  IN  THE  REPORT.  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCXX  I.  M.  APERSON  GROUP.ID  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  10/27/86  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  *) 

(*  *) 

(♦END . *) 

(*  END  %INCLUDE  BCSMAIN  *) 
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(*  %INCLUDE  BLDARRAY  *) 

(**) 

PROCEDURE  BLDARRAY (VAR  IRC  :  RET_REC ; 

CONST  ARRAY_DATA  :  TRANSACTION; 
CONST  CNST_KEY  :  ENTKEY; 

VAR  ARRAYJCEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  BUILDS  THE  ARRAY  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  ARRAY_DATA  I  TRANSACTION  DATA  OF  THE  ARRAY  ENTITY  *) 

(*  CNST.KEY  I  KEY  TO  THE  CONSTITUENT  *) 

(*  ARRAY_KEY  0  KEY  TO  THE  ARRAY  ENTITY  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  A  LIST  IS  MADE  OF  ALL  THE  ARRAY  ENTITIES.  IF  THE  LIST  IS  *) 

(*  NOT  EMPTY  THEN  IT  IS  SEARCHED  FOR  A  MATCH.  IF  THE  BOUNDS  *) 


(*  ARE  IDENTICAL  THE  CONSTITUENT  KEYS  ARE  COMPARED.  IF  THESE  *) 
(*  MATCH  THE  KEY  TO  THE  ARRAY  ENTITY  THAT  IS  IDENTICAL  TO  THE  *) 
(*  ONE  TO  BE  CREATED  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 
(*  THE  LIST  IS  SEARCHED  UNTIL  A  MATCH  IS  MADE  OR  THE  END  OF  *) 
(*  THE  LIST  IS  ENCOUNTERED.  IF  NO  MATCH  IS  FOUND  THE  ARRAY  *) 


(*  ENTITY  IS  CREATED  USING  MAS.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  BLDBPDEF  *) 

(**) 

PROCEDURE  BLDBPDEF (VAR  IRC  :  RET.REC; 

VAR  IDENTIFIER  :  T_NAME ; 
VAR  KIND  :  INTEGER; 

VAR  REFERENCEJCEY  :  ENTKEY; 
VAR  DEFINITION_KEY  :  ENTKEY); 

SUBPROGRAM; 

(**) 

(* -  - - 

(* 

(*  $FUNCTION: 

(*  THIS  ROUTINE  BUILDS  THE  BACKPATCH  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

IDENTIFIER 

I 

ENTITY  NAME 

(* 

KIND 

I 

ENTITY  KIND  NUMBER 

(* 

REFERENCE  KEY 

I 

THE  KEY  TO  THE  ENTITY  THAT  REFERENCES 

(* 

THE  UNRESOLVED  ENTITY 

(* 

(* 

(* 

(* 

DEFINITIONJCEY 

0 

THE  KEY  TO  THE  CREATED  BACKPATCH 
ENTITY 

SCOMMONS: 

(* 

(* 

(* 

NONE 

SENVIRONMENT : 

(* 

LANGUAGE:  IBM  PASCAL 

(* 

HARDWARE  SYSTEM: 

IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THE  BACKPATCH  ENTITY  IS  CREATED  USING  MAS  ROUTINES 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP  ID 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
(*  NARATION  ON  THE  NEXT  LINE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  MM/DD/YY  CCXX  I.  M.  APERSON  GROUP_ID  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  04/22/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  BLDBPDEF  *) 
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(*  %INCLUDE  BLDCLASS  *) 

(**) 

PROCEDURE  BLDCLASS (VAR  IRC  :  RET.REC; 

CONST  CLASS_DATA  :  TRANSACTION; 

VAR  CLASS_KEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  BUILDS  THE  CLASS  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

I/O  DESCRIPTION 

0  INTERNAL  RETURN  CODE 
I  TRANSACTION  DATA  OF  THE  CLASS  ENTITY 
0  KEY  TO  THE  CLASS  ENTITY 


I/O  LIST  CURRENTLY  IN  USE  CONTAINING  THE 
CONSTITUENTS  OF  THE  CLASS  ENTITY 


(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THE  ADB  DATA  IS  ASSIGNED  TO  VARIABLES  THEN  THE  MAS 

(*  ROUTINE  MAECR  IS  CALLED  TO  CREATE  THE  CLASS  ENTITY. 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 


(*  NAME 

(* 

(*  IRC 

{*  CLASS_DATA 

(*  CLASS_KEY 

(* 

(*  SCOMMONS: 

(*  REF 

(*  CURRENT_LIST 

(* 

(* 

(*  SENVIRONMENT: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  BLDCLS  *) 

(**) 

PROCEDURE  BLDCLS (VAR  IRC 

VAR  TRANS_STACK 
VAR  CLASS.FLAG 
VAR  CLS_ENT_HEAD 

SUBPROGRAM; 


RET_REC ; 

TRANSPTR; 

BOOLEAN; 

ENTITY_LIST_PTR) ; 


(*  SFUNCTION: 


(*  Batch  Interface  routine  that  creates  a  class  entity  in  the 

(*  schema  model  from  a  class  name,  kind  number,  and  a  list  of 

(*  constituents. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

(* 

CLASS_FLAG 

I/O 

INDICATES  IF  ENTITITIES  AND  CLASSES  ARE 

(* 

DEFINED  WITHIN  THE  CLASS 

(* 

(* 

(* 

(* 

(* 

CLS_ENT_HEAD 

I/O 

POINTER  TO  LIST  OF  CLASS  ENTITIES 

SCOMMONS: 

SENVIRONMENT: 

(* 

LANGUAGE:  IBM 

PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  INITIALIZE  VARIABLES 

(*  REMOVE  CLASS  NAME  AND  NUMBER  FROM  LIST  AND  PUSH  THEM  ONTO 
(*  TRANSACTION  STACK 

(*  REMOVE  EACH  ENTITY  KEY  FROM  THE  LIST  AND  PUSH  THEM  ONTO  TRANS- 
(*  ACTION  STACK 

(*  PUSH  FINAL  CLASS  TRANSACTION  ONTO  THE  STACK  AND  PROCESS  THE 
(*  STACK. 

(*  REINITIALIZE  VARIABLES 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBM A 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 
(*END . - . . *) 

(*  END  %INCLUDE  BLDCLS  *) 
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(*  %INCLUDE  BLDDFTYP  *) 

(**) 

PROCEDURE  BLDDFTYP(VAR  IRC  :  RET_REC; 

CONST  DEFINED_TYPE_DATA  :  TRANSACTION; 

CONST  CNST_KEY  :  ENTKEY ; 

VAR  DEFINED_TYPE_KEY  :  ENTKEY); 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  BUILDS  THE  DEFINED  TYPE  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS; 

(*  NAME  I/O  DESCRIPTION 

(*  IRC  0  INTERNAL  RETURN  CODE 

(*  DEF INED_TYPE_DATA  I  TRANSACTION  DATA  OF  THE  DEFINED 

(*  TYPE  ENTITY 

(*  CNSTJCEY  I  KEY  TO  THE  CONSTITUENT 

(*  DEFINED_TYPE_KEY  0  KEY  TO  THE  DEFINED  TYPE  ENTITY 

(* 

(*  SCOMMONS: 

(*  NONE 
(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM;  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THE  ADB  DATA  IS  ASSIGNED  AND  THEN  THE  MAS  ROUTINE  MAECR 

(*  IS  CALLED  TO  MODEL  THE  DEFINED  TYPE  ENTITY. 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  $CHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

/ 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  BLDEITEM  *) 

(**) 

PROCEDURE  BLDEITEM(VAR  IRC  :  RET_REC ; 

CONST  ENUMERITEM.DATA  :  TRANSACTION; 
VAR  ENUMERITEM_KEY  :  ENTKEY) ; 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  BUILDS  THE  ENUMERITEM  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS;  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  ENUMERITEM_DATA  I  TRANSACTION  DATA  OF  THE  ENUMERITEM  *) 

(*  ENTITY  *) 

(*  ENUMERITEM_KEY  0  KEY  TO  THE  ENUMERITEM  ENTITY  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  FXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  A  LIST  IS  MADE  OF  ALL  THE  ENUMERITEM  ENTITIES.  *) 

(*  IF  THE  LIST  IS  NOT  EMPTY  THEN  IT  IS  SEARCHED  FOR  A  MATCH  *) 

(*  UNTIL  ONE  IS  FOUND  OR  THE  END  OF  THE  LIST  IS  REACHED.  *) 

(*  IF  A  MATCH  IS  FOUND  ITS  KEY  IS  PASSED  BACK  TO  THE  CALLING  *) 

(*  PROCEDURE  OTHERWISE  A  NEW  ENUMERITEM  ENTITY  IS  CREATED.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  BLDENT  *) 

(**) 

PROCEDURE  BLDENT (VAR  IRC  :  RET_REC ; 

CONST  ENTITY_DATA  :  TRANSACTION; 
VAR  ENTITY_KEY  :  ENTKEY) ; 

SUBPROGRAM; 


(* . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  BUILDS  THE  ENTITY  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  ENTITYJ3ATA  I  TRANSACTION  DATA  OF  THE  ENTITY  ENTITY  *) 

(*  ENTITY_KEY  0  KEY  TO  THE  ENTITY  ENTITY  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  REF  *) 

(*  CURRENT_LIST  I/O  LIST  CURRENTLY  IN  USE  CONTAINING  THE  *) 

(*  CONSTITUENTS  OF  THE  ENTITY  ENTITY  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THE  ADB  DATA  IS  ASSIGNED  TO  VARIABLES  THEN  THE  MAS  *) 

(*  ROUTINE  MAECR  IS  CALLED  TO  CREATE  THE  ENTITY  ENTITY.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  BLDENUMR  *) 

(**) 

PROCEDURE  BLDENUMR(VAR  IRC  :  RET_REC ; 

VAR  ENUMERATIONJCEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  BUILDS  THE  ENUMERATION  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  ENUMERATION_KEY  0  KEY  TO  THE  ENUMERATION  ENTITY  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  REF  *) 

(*  CURRENT_LIST  I/O  A  KEY  TO  THE  LIST  OF  CONSTITUENTS  *) 

(*  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  THE  ADB  DATA  IS  ASSIGNED,  AND  THEN  THE  KEY  TO  THE  COMMON  *) 

(*  CURRENTJ.IST,  WHICH  CONTAINS  THE  ENUMERATION  CONSTITUENTS,  *) 

(*  AS  WELL  AS  THE  ADB  IS  PASSED  TO  THE  MAS  ROUTINE  MAECR  *) 

(*  WHICH  MODELS  THE  ENUMERATION  ENTITY.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE 
(**) 

PROCEDURE 


BLDFIELD  *) 

BLDFIELD(VAR  IRC  :  RET.REC; 

CONST  FIELD_DATA  :  TRANSACTION; 
CONST  CNSTJCEY  :  ENTKEY ; 

VAR  FIELDJCEY  :  ENTKEY); 


SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{FUNCTION: 

THIS  ROUTINE  BUILDS  THE  FIELD  ENTITY. 


{DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


IRC 

FIELD.DATA 

CNSTJCEY 

FIELDJCEY 


0  INTERNAL  RETURN  CODE 
I  TRANSACTION  DATA  OF  THE  FIELD  ENTITY 
I  KEY  TO  THE  CONSTITUENT 

0  KEY  TO  THE  FIELD  ENTITY 


{COMMONS: 

NONE 


{ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


{EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 


{PROCESSING  DESCRIPTION: 

THE  ADB  DATA  IS  ASSIGNED  AND  THEN  THE  MAS  ROUTINE  MAECR 
IS  CALLED  TO  MODEL  THE  FIELD  ENTITY. 


{COMMENTS: 

NONE 


{CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  BLDGBLFD  *) 


CONST  GLOBAL.DATA  :  TRANSACTION; 

VAR  GLOBAL_FIELD_KEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  BUILDS  THE  GLOBAL  FIELD  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  GLOBALJ3ATA  I  GLOBAL  FIELD  DATA  *) 

(*  GLOBAL_F I ELD_KEY  0  KEY  TO  THE  GLOBAL  FIELD  ENTITY  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  REF  *) 

(*  CURRENT_LIST  I/O  LIST  CURRENTLY  IN  USE  CONTAINING  THE  *) 

(*  CONSTITUENTS  OF  THE  GLOBAL  FIELD  *) 

(*  ENTITY  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THE  ADB  DATA  IS  ASSIGNED  TO  VARIABLES  THEN  THE  MAS  *) 

(*  ROUTINE  MAECR  IS  CALLED  TO  CREATE  THE  GLOBAL  FIELD  *) 

(*  ENTITY.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  BLDINT  *) 

(**) 

PROCEDURE  BLDINT(VAR  IRC  :  RET.REC; 

CONST  INTEGER_DATA  :  TRANSACTION; 
VAR  INTEGER.KEY  :  ENTKEY) ; 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  BUILDS  THE  INTEGER  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  INTEGER.DATA  I  TRANSACTION  DATA  OF  THE  INTEGER  ENTITY  *) 

(*  INTEGER_KEY  0  KEY  TO  THE  INTEGER  ENTITY  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  A  LIST  IS  MADE  OF  ALL  THE  INTEGER  ENTITIES.  *) 

(*  IF  THE  LIST  IS  NOT  EMPTY  THEN  IT  IS  SEARCHED  FOR  A  MATCH  *) 

(*  UNTIL  ONE  IS  FOUND  OR  THE  END  OF  THE  LIST  IS  REACHED.  *) 

(*  IF  A  MATCH  IS  FOUND  ITS  KEY  IS  PASSED  BACK  TO  THE  CALLING  *) 

(*  PROCEDURE  OTHERWISE  A  NEW  INTEGER  ENTITY  IS  CREATED.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  BLDLOG  *) 

(**) 

PROCEDURE  BLDLOG (VAR  IRC  :  RET.REC; 

VAR  LOGICAL_KEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION; 

(*  THIS  ROUTINE  BUILDS  THE  LOGICAL  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  IRC  0  INTERNAL  RETURN  CODE 

(*  LOGICALJCEY  0  KEY  TO  THE  LOGICAL  ENTITY 

(* 

(*  SCOMMONS: 

(*  NONE 
(* 

(*  $ ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  A  LIST  IS  MADE  OF  ALL  THE  LOGICAL  ENTITIES. 

(*  IF  THE  LIST  IS  NOT  EMPTY  THEN  A  LOGICAL  ENTITY  IS  CREATED, 

(*  OTHERWISE  THE  KEY  TO  THE  EXISTING  LOGICAL  ENTITY  IS 

(*  PASSED  BACK  TO  THE  CALLING  PROCEDURE. 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  BLDPNTR  *) 

(**) 

PROCEDURE  BLDPNTR(VAR  IRC  :  RET_REC ; 

VAR  POINTER.KEY  :  ENTKEY) ; 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  BUILDS  THE  POINTER  ENTITY. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME 

IRC 

POINTERJCEY 

SCOMMONS: 

REF 

CURRENT  LIST 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 
SPROCESSING  DESCRIPTION: 

THE  ADB  DATA  IS  ASSIGNED  TO  VARIABLES  THEN  THE  MAS 
ROUTINE  MAECR  IS  CALLED  TO  CREATE  THE  POINTER  ENTITY. 

SCOMMENTS: 

NONE 

SCHANGE  CONTROL: 


I/O  DESCRIPTION 

0  INTERNAL  RETURN  CODE 
0  KEY  TO  THE  POINTER  ENTITY 


I/O  LIST  CURRENTLY  IN  USE  CONTAINING  THE 
CONSTITUENTS  OF  THE  POINTER  ENTITY 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  BLDREAL  *) 

(**) 

PROCEDURE  BLDREAL (VAR  IRC  :  RET_REC; 

CONST  REAL.DATA  :  TRANSACTION; 
VAR  REAL_KEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  BUILDS  THE  REAL  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  REAL_DATA  I  TRANSACTION  DATA  OF  THE  REAL  ENTITY  *) 

(*  REALJCEY  0  KEY  TO  THE  REAL  ENTITY  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  A  LIST  IS  MADE  OF  ALL  THE  REAL  ENTITIES.  *) 

(*  IF  THE  LIST  IS  NOT  EMPTY  THEN  IT  IS  SEARCHED  FOR  A  MATCH  *) 

(*  UNTIL  ONE  IS  FOUND  OR  THE  END  OF  THE  LIST  IS  REACHED.  *) 

(*  IF  A  MATCH  IS  FOUND  ITS  KEY  IS  PASSED  BACK  TO  THE  CALLING  *) 

(*  PROCEDURE  OTHERWISE  A  NEW  REAL  ENTITY  IS  CREATED.  *) 

(*  *) 

(*  $COMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  BLDSSCMA  *) 

(**) 

PROCEDURE  BLDSSCMA (VAR  IRC  :  RET_REC ; 

CONST  SUBSCHEMA  JDATA  :  TRANSACTION; 
VAR  SUBSCHEMAJCEY  :  ENTKEY) ; 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  BUILDS  THE  SUBSCHEMA  ENTITY. 
SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

SUBSCHEMA_DATA 

I 

TRANSACTION  DATA  OF  THE  SUBSCHEMA 
ENTITY 

SUBSCHEMAJCEY 

0 

KEY  TO  THE  SUBSCHEMA  ENTITY 

SCOMMONS: 

REF 

CURRENT  LIST 

I/O 

LIST  CURRENTLY  IN  USE  CONTAINING  THE 
CONSTITUENTS  OF  THE  SUBSCHEMA  ENTITY 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


$ EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 


SPROCESSING  DESCRIPTION: 

THE  ADB  DATA  IS  ASSIGNED  TO  VARIABLES  THEN  THE  MAS 
ROUTINE  MAECR  IS  CALLED  TO  CREATE  THE  SUBSCHEMA  ENTITY. 


(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 
(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  BLDSTRNG  *) 

(**) 

PROCEDURE  BLDSTRNG (VAR  IRC  :  RET.REC; 

CONST  STRING_DATA  :  TRANSACTION; 
VAR  STRING.KEY  :  ENTKEY ) ; 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  BUILDS  THE  STRING  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  STRING_DATA  I  TRANSACTION  DATA  OF  THE  STRING  ENTITY  *) 

(*  STRING.KEY  0  KEY  TO  THE  STRING  ENTITY  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  A  LIST  IS  MADE  OF  ALL  THE  STRING  ENTITIES.  *) 

(*  IF  THE  LIST  IS  NOT  EMPTY  THEN  IT  IS  SEARCHED  FOR  A  MATCH  *) 

(*  UNTIL  ONE  IS  FOUND  OR  THE  END  OF  THE  LIST  IS  REACHED.  *) 

(*  IF  A  MATCH  IS  FOUND  ITS  KEY  IS  PASSED  BACK  TO  THE  CALLING  *) 

(*  PROCEDURE  OTHERWISE  A  NEW  STRING  ENTITY  IS  CREATED.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  BLDSTRUC  *) 

(**) 

PROCEDURE  BLDSTRUC (VAR  IRC  :  RET.REC; 

VAR  STRUCTURE.KEY  :  ENTKEY) ; 

SUBPROGRAM; 


(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  BUILDS  THE  STRUCTURE  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  STRUCTUREJCEY  0  KEY  TO  THE  STRUCTURE  ENTITY  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  REF  *) 

(*  CURRENT_LIST  I/O  LIST  CURRENTLY  IN  USE  CONTAINING  THE  *) 

(*  CONSTITUENTS  OF  THE  STRUCTURE  ENTITY  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THE  ADB  DATA  IS  ASSIGNED  TO  VARIABLES  THEN  THE  MAS  *) 

(*  ROUTINE  MAECR  IS  CALLED  TO  CREATE  THE  STRUCTURE  ENTITY.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  BLDSUB  *) 

(**) 

PROCEDURE  BLDSUB (VAR  IRC 

VAR  TRANS  STACK 
VAR  SUBSCHEMA  FLAG 
VAR  SUB_ENT_HEAD 

SUBPROGRAM; 

(**) 

(* . 

(* 


RET.REC; 

TRANS PTR; 

BOOLEAN; 

ENTITY_LIST_PTR) ; 


*) 

*) 


(* 

SFUNCTION: 

*) 

(* 

Batch  Interface  routine  that  creates  a  subschema  entity 

in  *) 

(* 

the  schema  model 

from  a  subschema  name  and  list  of 

*) 

(* 

constituents. 

*) 

(* 

*) 

(* 

SDESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

(* 

==  =  =  = 

=  =  = 

*) 

(* 

IRC 

0 

INTERNAL  RETURN  CODE 

*) 

(* 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

*) 

(* 

SUBSCHEMA_FLAG 

I/O 

INDICATES  IF  ENTITIES  AND  CLASSES  ARE 

*) 

(* 

DEFINED  WITHIN  THE  SUBSCHEMA 

*) 

(* 

SUB_ENT_HEAD 

I/O 

POINTER  TO  LIST  OF  SUBSCHEMA  ENTITIES 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

*) 

(* 

SENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM 

PASCAL 

*) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

INITIALIZE  VARIABLES 

REMOVE  SUBSCHEMA  NAME  FROM  LIST  AND  PUSH  IT  ONTO  TRANSACTION 
STACK 

REMOVE  EACH  ENTITY  KEY  FROM  THE  LIST  AND  PUSH  THEM  ONTO  TRANS 
ACTION  STACK 

PUSH  FINAL  SUBSCHEMA  TRANSACTION  ONTO  THE  STACK  AND  PROCESS 
THE  STACK 

REINITIALIZE  THE  VARIABLES 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SCOMMENTS: 

SCHANGE  CONTROL: 
ORIGINATED:  03/20/87 


C.  H.  MOHME 


DBMA 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

+  ) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
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(*  *) 

(*END . *) 

(*  END  %INCLUDE  BLDSUB  *) 
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(*  ^INCLUDE  BLDSUPER  *) 

(**) 

PROCEDURE  BLDSUPER(VAR  IRC  :  RET_REC ; 

CONST  SUPERTYPE_DATA  :  TRANSACTION; 
VAR  SUPERTYPEJCEY  :  ENTKEY) ; 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  BUILDS  THE  SUPERTYPE  ENTITY. 
SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

SUPERTYPE_DATA 

I 

TRANSACTION  DATA  OF  THE  SUPERTYPE 
ENTITY 

SUPERTYPEJCEY 

0 

KEY  TO  THE  SUPERTYPE  ENTITY 

SCOMMONS : 

REF 

CURRENT  LIST 

I/O 

LIST  CURRENTLY  IN  USE  CONTAINING  THE 
CONSTITUENTS  OF  THE  ENTITY  ENTITY 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

5EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 
SPROCESSING  DESCRIPTION: 

THE  ADB  DATA  IS  ASSIGNED  TO  VARIABLES  THEN  THE  MAS 
ROUTINE  MAECR  IS  CALLED  TO  CREATE  THE  ENTITY  ENTITY. 

SCOMMENTS: 

NONE 

SCHANGE  CONTROL: 

REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 

REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID 

DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
NARATION  ON  THE  NEXT  LINE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  MM/DD/YY  CCXX  I.  M.  APERSON 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 

(*  ORIGINATED:  09/28/87  C.  H.  MOHME 

(* 

(* 

(* 

(*END . - . 

(*  END  %INCLUDE  BLDSUPER  *) 


GROUP_ID  *) 
*) 
*) 

DBMA  *) 

*) 

- . *) 

*) 

— . *) 


1-43 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  BLDUNRES  *) 

(**) 

PROCEDURE  BLDUNRES (VAR  IRC  :  RET.REC; 

VAR  UNRESOLVED.DAT A  :  TRANSACTION; 

VAR  UNRESOLVED_KEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  {FUNCTION: 

(*  THIS  ROUTINE  BUILDS  THE  UNRESOLVED  ENTITY. 

(* 

(*  {DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  IRC  0  INTERNAL  RETURN  CODE 

(*  UNRESOLVED_DATA  0  TRANSACTION  DATA  OF  THE  UNRESOLVED 

(*  ENTITY 

(*  UNRESOLVEDJCEY  0  KEY  TO  THE  UNRESOLVED  ENTITY 

(* 

(*  {COMMONS: 

(*  NONE 
(* 

(*  {ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  {EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  {PROCESSING  DESCRIPTION: 

(*  CREATE  THE  UNRESOLVED  ENTITY  BY  CALLING  MAS  ROUTINES. 

(* 

(*  {COMMENTS: 

(*  NONE 

(* 

(*  {CHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
(*  NARATION  ON  THE  NEXT  LINE. 

(* 

(*  REVISED:  MM/DD/YY  CCXX  I.  M.  APERSON  GROUP_ID 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  04/22/87  C.  H.  MOHME 

(* 

(* 

(* 

(*END . 

(*  END  %INCLUDE  BLDUNRES  *) 


DBM A  *) 
*) 

- *) 

*) 

. — -*) 
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(*  %INCLUDE  BLEXICAL  *) 

(**) 

PROCEDURE  BLEXICAL (  VAR  TOKEN  :  T_TOKEN; 

VAR  TOKEN  VALUE  :  T_TOKEN_VALUE; 

VAR  TOKEN_LOCATION  :  INTEGER; 

VAR  TOKEN_LENGTH  :  INTEGER; 

VAR  REPORT 1  :  TEXT); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  LOCATE  THE  LONGEST  POSSIBLE  LEXEME  FROM  WHICH  A  TOKEN  MAY  *) 

(*  BE  DETERMINED,  EXCLUDING  COMMENTS.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  TOKEN  I/O  INPUT  =  TOKEN  TYPE  FROM  PREVIOUS  CALL  *) 

(*  OR  INITIALIZATION  FLAG  *) 

(*  OUTPUT  =  CURRENT  TOKEN  TYPE  *) 

(*  TOKEN_VALUE  0  CURRENT  TOKEN  VALUE  *) 

(*  TOKEN_LOCATION  0  START  LOCATION  OF  TOKEN  IN  REPORT  LINE  *) 

(*  TOKEN_LENGTH  0  LENGTH  OF  TOKEN  IN  REPORT  LINE  *) 

(*  REPORT1  0  REPORT  FILE  FOR  ECHOING  THE  INPUT  AND  *) 

(*  REPORTING  ERROR  MESSAGES  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  1  *) 
(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  LOOP  UNTIL  TOKEN  IS  NOT  A  COMMENT  *) 

(*  GET  NEXT  TOKEN  *) 

(*  END  LOOP  *) 

(*  *) 

(*  $COMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/26/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  REVISED:  7  DEC  87,  G.  A.  WHITE,  ADD  PARAMETERS  FOR  *) 

(*  LOCATION  AND  LENGTH  OF  TOKEN  IN  REPORT  LINE.  *) 

(*  *) 


1-46 


PS  560130000A 
22  December  1987 


*) 

*) 

*) 


> 


(* 

(* 

(*END . . 

(*  END  %INCLUDE  BLEXICAL  *) 
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(*  %I NCLUDE  BSCINCLD  *) 

(**) 

PROCEDURE  BSCINCLD(VAR  IRC  : 

VAR  SUBSCHEMAJCEY 

SUBPROGRAM; 


RET.REC; 
ENTKEY) ; 


S FUNCTION: 

THIS  ROUTINE  GENERATES  THE  PASCAL  INCLUDE  FILES  AND  WRITES 
THESE  DEFINITIONS  TO  A  FILE 


SDESCRIPTION  OF  ARGUMENTS: 


DESCRIPTION 

RETURN  CODE 
PANEL  MESSAGE 


SCOMMONS: 

NONE 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 
SPROCESSING  DESCRIPTION: 

DISPLAY  A  PANEL  CONTAINING  A  LIST  OF  ALL  OF  THE  SUBSCHEMAS 

WITHIN  THE  SCHEMA  MODEL. 

IF  RETURN  OR  EXIT  WAS  NOT  CHOSEN  ON  THE  PANEL  THEN 
IF  A  MULTIPLE  SELECT  WAS  MADE  ON  THE  PANEL  THEN 
DISPLAY  AN  ERROR  MESSAGE 
ELSE 

GET  THE  KEY  OF  THE  SUBSCHEMA  SELECTED 
IF  THE  SUBSCHEMA  HAS  NOT  BEEN  PHYSICALIZED  THEN 
PHYSICALIZE  THE  SUBSCHEMA 

WRITE  OUT  TO  THE  FILE  THE  HEADING  FOR  THE  INCLUDES 
MAKE  AN  INCLUSIVE  LIST  OF  ENTITIES  WITHIN  THE  SUBSCHEMA 
DELETE  ANY  DUPLICATES  ON  THE  LIST 
ALPHABETICALLY  SORT  THE  ENTITIES 
WRITE  OUT  TO  THE  FILE  THE  ENTITY  KIND  CONSTANTS 
WRITE  OUT  TO  THE  FILE  THE  DEFINED  TYPE  DECLARATIONS 
WRITE  OUT  TO  THE  FILE  THE  ENTITY  DECLARATIONS 
WRITE  OUT  TO  THE  FILE  THE  MAS  ENTITY  DECLARATIONS 
WRITE  OUT  TO  THE  FILE  THE  KEYBLOCK  DECLARATIONS 
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(*  ELSE  *) 

(*  IF  RETURN  WAS  SELECTED  THEN  *) 

(*  RETURN  TO  THE  REPORT  MENU  *) 

(*  ELSE  *) 

(*  IF  EXIT  WAS  SELECTED  THEN  *) 

(*  RETURN  TO  THE  MAIN  MENU  *) 

(*  ELSE  *) 

(*  DISPLAY  AN  ERROR  MESSAGE  FOR  AN  INVALID  OPTION  *) 

(*  END;  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCXX  I.  M.  APERSON  GROUP_ID  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  10/23/86  L.  J.  BEHAN  DBMA  *) 

(*  *) 

(* . - . *) 

(*  *) 

(*END . - . - . . . . . *) 

(*  END  %INCLUDE  BSCINCLD  *) 
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(*  %INCLUDE  BSCTRSPR  *) 

(**) 

PROCEDURE  BSCTRSPR (VAR  IRC  :  RET.REC; 

VAR  TRANS.STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  BEGINS  THE  PROCESSING  OF  THE  TRANSACTION  *) 

(*  STACK.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  TRANS.STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  REF  *) 

(*  CURRENT_LIST  I/O  POINTS  TO  THE  LIST  OF  KEYS  *) 

(*  CURRENTLY  IN  USE  *} 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  CALLS  SCPOPTR  TO  POP  THE  TRANSACTION  STACK.  *) 

(*  THEN  EACH  TRANSACTION  IS  PROCESSED  ACCORDING  TO  ITS  TYPE  *) 

(*  BY  CALLING  THE  APPROPRIATE  ROUTINE  TO  MODEL  THE  ENTITIES.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCXX  I.  M.  APERSON  GROUP.ID  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 


1-50 


PS  560130000A 
22  December  1987 


(*  ORIGINATED:  02/04/86 
(* 

(* 

(* 


(♦END . 

(*  END  %INCLUDE  BSCTRSPR  *) 


L.  J.  BEHAN 


FRMI  *) 
*) 

. --*) 

*) 

. --*) 
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(*  %INCLUDE  CLRSTK  *) 

(**) 

PROCEDURE  CLRSTK(VAR  IRC  :  RET_REC; 

VAR  TRANS_STACK  :  TRANS PTR) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  Batch  Interface  routine  that  clears  the  transactic 

(*  processing  stack 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

=  =  =  = 

=  =  = 

(* 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

TRANS_STACK 

I/O 

TRANSACTION  STACK 

(* 

(*  SCOMMONS: 

(* 

(*  $ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  INITIALIZE  VARIABLES 

(*  WHILE  THE  STACK  IS  NOT  EMPTY,  POP  TRANSACTION 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA 

(* 

(*--- - - 

(* 

(*END--- - - 

(*  END  %INCLUDE  CLRSTK  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CRARRAY  *) 
(**) 


PROCEDURE  CRARRAY (VAR  MESS 

MESSAGE; 

VAR  LEND 

CHAR8; 

VAR  HBND 

CHAR8; 

VAR  ATYPE 

ENTITY  TYPE; 

VAR  NEXT  OP 

OPERATIONS; 

VAR  RR 

RET  REC); 

SUBPROGRAM; 

* _ _ 

(* 

(*  SFUNCTION: 

(*  THIS  FUNCTION: 

(*  DISPLAYS  THE  CREATE  ARRAY  MENU 

(* 


(* 

SDESCRIPTION  OF 

ARGUMENTS: 

(* 

NAME 

I/O 

DESCRIPTION 

(* 

»  =  =  = 

=  =  = 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

LBND 

0 

THE  LOWER  BOUND  OF  THE  ARRAY 

(* 

HBND 

0 

THE  UPPER  BOUND  OF  THE  ARRAY 

(* 

ATYPE 

0 

THE  ARRAY  TYPE 

(* 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  JCOMMONS: 

(*  NONE 
(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  CREATE  ARRAY  PANEL  (CRARRAY)  BY  MAKING  ISPLNK 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED 

(*  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE. 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CRCLASS1  *) 

(**) 

PROCEDURE  CRCLASS1(VAR  HESS  :  MESSAGE; 

VAR  NAME  :  T_NAME ; 

VAR  KNUM  :  CHAR8 ; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  ^FUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  CREATE  CLASS1  PANEL  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NAME  0  THE  CLASS  NAME  *) 

(*  KNUM  0  THE  CLASS  KIND  NUMBER  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  CREATE  CLASS  PANEL  NUMBER  ONE  (CRCLASS1)  BY  *) 

(*  MAKING  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  *) 

(*  INTO  AN  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  *) 

(*  INFORMATION  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  *) 

(*  CALLING  PROCEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CRCLASS2  *) 

(**) 

PROCEDURE  CRCLASS2(VAR  MESS  :  MESSAGE; 

VAR  KNUM  :  CHAR8 ; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  CREATE  CLASS  PANEL  2  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  KNUM  0  THE  MEMBER  KIND  NUMBER  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISLAY  THE  CREATE  CLASS  PANEL  NUMBER  TWO  (CRCLASS2)  BY  *) 

(*  MAKING  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  *) 

(*  AN  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  *) 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PRO-  *) 

(*  CEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CRDEFTYP  *) 

(**) 

PROCEDURE  CRDEFTYP(VAR  MESS  :  MESSAGE; 

VAR  NAME  :  CHARI 6; 

VAR  FTYPE  :  ENTITY.TYPE; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* . . . . —  - 

(* 

(*  SFUNCTION: 

(*  THIS  FUNCTION: 

(*  DISPLAYS  THE  CREATE  DEFINED  TYPE  MENU 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(*  NAME  0  THE  NAME  OF  THE  DEFINED  TYPE  ENTERED 

(*  FTYPE  0  TYPES  INTEGER, STRING .REAL. . .ETC. 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT 

(*  OPERATION 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  CREATE  DEFINED  TYPE  PANEL  (CRDEFTYP)  BY  MAKING 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN 

(*  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PRO- 

(*  CEDURE. 

(* 

(*  ^COMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CRENTITY  *) 

(**) 

PROCEDURE  CRENTITY (VAR  MESS 

VAR  NAME 
VAR  KNUM 
VAR  NEXT_OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 
T_NAME ; 
CHAR8; 
OPERATIONS; 
RET_REC) ; 


(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  THIS  PROCEDURE  : 

(*  DISPLAYS  THE  CREATE  ENTITY  MENU 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

3S=  =  = 

=== 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

NAME 

0 

THE  ENTITY  NAME 

(* 

KNUM 

0 

THE  ENTITY  KIND  NUMBER 

(* 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

RR 

SCOMMONS: 

NONE 

$ ENVIRONMENT: 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

LANGUAGE 

:  IBM  PASCAL 

(* 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

(* 

DDNAMES 

USED  WITH 

STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  np^rRTPTinN- 

(*  DISPLAY  THE  CREATE  ENTITY  PANEL  (CRENTITY)  BY  MAKING  ISPLNK 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  FROM 

(*  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE. 

(* 

(*  5COMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CRENUM  *) 

(**) 

PROCEDURE  CRENUM (VAR  MESS  :  MESSAGE; 

VAR  NAME  :  CHARI 6; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  {FUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  CREATE  ENUMERATION  MENU  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NAME  0  THE  NAME  OF  THE  ENUMERATION  FROM  PANEL  *) 

(*  NEXTOP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  XRC  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  CREATE  ENUMERATION  PANEL  (CRENUM)  BY  MAKING  *) 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  *) 

(*  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  *) 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  *) 

(*  PROCEDURE.  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 
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(*  ^INCLUDE  CRFIELD  *) 

(**) 

PROCEDURE  CRFIELD(VAR  HESS  :  MESSAGE; 

VAR  NAME  :  T_NAME ; 

VAR  POS  :  CHAR8 ; 

VAR  PURP  :  CHAR8 ; 

VAR  REQD  :  CHAR8 ; 

VAR  DEPD  :  CHAR8 ; 

VAR  FTYPE  :  ENTITY  TYPE; 
VAR  FLDTYP  :  T.FIELDTYPE; 
VAR  NEXT.OP  ;  OPERATIONS; 
VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 


(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  PROCEDURE  :  *) 

(*  DISPLAYS  THE  CREATE  FIELD  PANEL  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NAME  0  THE  NAME  OF  THE  FIELD  *) 

(*  PURP  0  THE  PURPOSE  OF  THE  FIELD  *) 

(*  REQD  0  REQUIREDNESS,  OPTIONAL  OR  NOT,  OF  FIELD  *) 

(*  DEPD  0  DEPENDENCE  OF  THE  FIELD  *) 

(*  FTYPE  0  ENTITY  TYPE  *) 

(*  FLDTYPE  0  THE  FIELD  TYPE  *) 

(*  NEXT.OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  JCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *} 

(*  *) 
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(*  SPROCESSING  DESCRIPTION:  *) 
(*  DISPLAY  THE  CREATE  FIELD  PANEL  (CRFIELD)  BY  MAKING  ISPLNK  *) 
(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 
(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  FROM  *) 
(*  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 
(*  *) 
(*  SCOMMENTS:  *) 
(*  NONE  *} 
(*  *) 
(*  SCHANGE  CONTROL:  *) 
(*  *) 


1-60 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  CRINTGR  *) 

(**) 

PROCEDURE  CRINTGR(VAR  MESS  :  MESSAGE; 

VAR  PREC  ;  CHAR8; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  CREATE  INTEGER  MENU  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *} 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  PREC  0  THE  PRECISION  OF  THE  INTEGER  ENTERED  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  CREATE  INTEGER  PANEL  (CRINTGR)  BY  MAKING  *) 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  *) 

(*  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  *) 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  *) 

(*  PROCEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CRUST  *) 

(**) 

PROCEDURE  CRUST  (VAR  MESS  :  MESSAGE; 

VAR  MIN  ;  CHAR8 ; 

VAR  MAX  :  CHAR8 ; 

VAR  ATYPE  ;  ENTITY_TYPE; 

VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*  -  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  CREATE  LIST  PANEL  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  MIN  0  THE  MINIMUM  NUMBER  OF  OCCURRENCES  IN  THE  *) 

(*  LIST  *) 

(*  MAX  0  THE  MAXIMUM  NUMBER  OF  OCCURRENCES  IN  THE  *) 

(*  LIST  *) 

(*  ATYPE  0  THE  LIST  TYPE  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  CREATE  LIST  PANEL  (CRLIST)  BY  MAKING  ISPLINK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *} 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  *) 

(*  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 

(*  *) 
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(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  I.  M.  THECHANGER  GROUP.ID  *) 

(*  DESCRIPTION  OF  THE  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  -*) 

(*  *) 

(*END-- . . . - . - . - . . . --*) 

(*  END  %INCLUDE  CRLIST  *) 
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(*  %INCLUDE  CRPNTR  *) 

(**) 

PROCEDURE  CRPNTR(VAR  MESS  :  MESSAGE; 

VAR  KNUM  :  CHAR8 ; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET.REC) ; 

SUBPROGRAM; 

(**) 

(*  — *) 
(*  *) 

(*  5FUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  CREATE  POINTER  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  KNUM  0  THE  MEMBER  KIND  NUMBER  OF  THE  POINTER  *) 

(*  INTO  AN  INTEGER  *) 

(*  NEXT.OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  CREATE  POINTER  PANEL  (CRPNTR)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  FROM  *) 

(*  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

r  *) 
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(*  %INCLUDE  CRREAL  *) 

(**) 

PROCEDURE  CRREAL (VAR  MESS  :  MESSAGE; 

VAR  SIZE  :  CHAR8; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  ;  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  CREATE  REAL  PANEL  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  SIZE  0  THE  PRECISION  OF  THE  REAL  ENTERED  *) 

(*  NEXT.OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  CREATE  REAL  PANEL  (CRREAL)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  FROM  *) 

(*  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %I NCLUDE  CRSET  *) 

(**) 

PROCEDURE  CRSET(VAR  MESS  :  MESSAGE; 

VAR  MIN  :  CHAR8 ; 

VAR  MAX  :  CHAR8; 

VAR  ATYPE  :  ENTITY.TYPE; 

VAR  NEXT  OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* . - . . . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION;  *) 

(*  DISPLAYS  THE  CREATE  SET  PANEL  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ***=*=*=*==  * ) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  MIN  0  THE  MINIMUM  NUMBER  OF  OCCURRENCES  IN  THE  *) 

(*  SET  *) 

(*  MAX  0  THE  MAXIMUM  NUMBER  OF  OCCURRENCES  IN  THE  *) 

(*  SET  *) 

(*  ATYPE  0  THE  SET  TYPE  *) 

(*  NEXT.OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  CREATE  SET  PANEL  (CRSET)  BY  MAKING  ISPLINK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  *) 

(*  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 

(*  *) 
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(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
(*  NARATION  ON  THE  NEXT  LINE. 

(* 

(*  REVISED:  MM/DD/YY  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  THE  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
(*  NARATION  ON  THE  NEXT  LINE. 

(* 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA 

(* 

(* 

(* 

(*END . - . 

(*  END  %INCLUDE  CRSET  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


1-67 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  CRSTRING  *) 
(**) 

PROCEDURE  CRSTRING(VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


MESS 

SLEN 

NEXT_OP 

RR 


MESSAGE; 
CHAR8 ; 
OPERATIONS; 
RET_REC) ; 


(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  FUNCTION: 

(*  DISPLAYS  THE  CREATE  STRING  PANEL 

(* 


(* 

SDESCRIPTION  OF 

ARGUMENTS: 

(* 

NAME 

I/O 

DESCRIPTION 

(* 

BBSS 

b*  = 

=========== 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

SLEN 

0 

THE  LENGTH  OF  THE  STRING  ENTERED 

(* 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION. 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  5COMMONS: 

(*  NONE 
(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  CREATE  STRING  PANEL  (CRSTRING)  BY  MAKING  ISPLNK 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  FROM 

(*  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE. 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CRSUBSCM  *) 

(**) 

PROCEDURE  CRSUBSCM(VAR  HESS 

VAR  NAME 
VAR  KNUM 
VAR  NEXT.OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 
T_NAME; 
CHAR8 ; 
OPERATIONS; 
RET_REC) ; 


(**) 

f*._. 


V 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  FUNCTION; 


DISPLAYS  THE  CREATE  SUBSCHEMA  PANEL 


SDESCRIPTION  OF  ARGUMENTS; 


(* 

(*  SCOMMONS: 

(*  NONE 
(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  CREATE  SUBSCHEMA  PANEL  (CRSUBSCM)  BY  MAKING 

ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN 
ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION 
GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PRO¬ 
CEDURE. 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 

SEXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 


(* 

(* 

(* 

(* 

(* 

(*  SCOMMENTS: 
(*  NONE 

(* 

(* 

(* 


*) 

*) 

*) 

*) 

*) 

*) 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

*) 

*) 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

NAME 

0 

THE  SUBSCHEMA  NAME 

*) 

(* 

KNUM 

0 

THE  SUBSCHEMA  MEMBER  KIND  NUMBER 

*) 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

*) 

(* 

OPERATION 

*) 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

*) 

(* 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

*) 

SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CRSUPTYP  *) 
(**) 

PROCEDURE  CRSUPTYP(VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


MESS 

NAME 

REFR 

CREATE_ONLY 

NEXT_OP 

RR 


MESSAGE; 

T  NAME; 
CHAR8 ; 
BOOLEAN; 
OPERATIONS; 
RET_REC) ; 


(**) 

(* 

(* 

(*  $ FUNCTION: 

(*  THIS  PROCEDURE: 

(*  DISPLAYS  EITHER  THE  CREATE/REFERENCE  SUPERTYPE  MENU 

(*  OR  THE  CREATE  SUPERTYPE  MENU 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

=  =  ==  = 

=  =  = 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

NAME 

0 

THE  ENTITY  NAME 

(* 

(* 

REFR 

0 

INDICATES  IF  THE  SUPERTYPE  REFERENCES 
ANOTHER  SUPERTYPE 

(* 

(* 

CREATE_ONLY 

I 

INDICATES  IF  A  SUPERTYPE  CAN  BE  CREATED/ 
REFERENCED  OR  ONLY  CREATED. 

(* 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  $ ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  CREATE  SUPERTYPE  PANEL  (CRSUPTYPE)  BY  MAKING 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN 

(*  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING 

(*  PROCEDURE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  I.  M.  APROGRAMMER  GROUP  JD  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  09/28/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . - . *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  CRSUPTYP  *) 
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(*  %INCLUDE  CRURUL.  *) 

(**) 

PROCEDURE  CRURUL (CONST  ENTITY_TYPE:ORD  KIND;VAR  GROUP :T_GROUP_ARRAY; 
VAR  NUM_GROUP : L I ST PSTN ;  VAR  M I N_CNST: LI STPSTN) ; EXTERNAL; 

(**) 

(*- 


(*  *) 

(*  SFUNCTION:  *) 

(*  CREATES  THE  USER'S  RULES-  RULES  OF  CONNECTIVITY  USED  TO  *) 

(*  DETERMINE  DELETABILITY  OF  ENTITIES.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTITY_TYPE  I  ENTITY  KIND  VALUE  WHICH  WILL  HAVE  THE  *) 

(*  DELETE  RULE  *) 

(*  GROUP  0  ARRAY  THAT  WILL  BE  FILLED  WITH  THE  RULES  *) 

(*  AND  NUMBER  OF  CONSTITUENTS  OF  EACH  *) 

(*  DIFFERENT  RELATIONSHIP  THAT  THIS  ENTITY  *) 

(*  KIND  CAN  HAVE  WITH  ITS  CONSTITUENTS  *) 

(*  NUM_GROUP  0  NUMBER  OF  DIFFERENT  RELATIONSHIPS  THIS  *) 

(*  ENTITY  CAN  HAVE  WITH  ITS  CONSTITUENTS  *) 

(*  MIN_CNST  0  MINIMUM  NUMBER  OF  CONSTITUENTS  THAT  THIS  *) 

(*  ENTITY  CAN  HAVE  WHEN  IT  HAS  A  GROUP  OF  *) 

(*  CONSTITUENTS  THAT  ARE  "SECONDARY"  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  $ COMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  $ PROCESSING  DESCRIPTION:  *) 

(*  ??????ARE  SET  TO  INDICATE  IF  THE  RELATIONSHIP  BETWEEN  THE  *) 

(*  USER  AND  ITS  CONSTITUTES  IS  DEPENDENT  OR  INDEPENDENT  AND  *) 

(*  STRONG  OR  WEAK.  *) 

(*  DEFAULT  RULE  IS  DEPENDENT/STRONG.  *) 

(*  *) 
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(*  5C0MMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  09/28/87  C.  H.  MOHME  DBM A 

(*  TO  INCORPORATE  SUPERTYPE  DATA  TYPE 
(* 

(*  REVISED:  04/09/87  C.  H.  MOHME  DBMA 

(*  TO  INCORPORATE  LIST  DATA  TYPE 
(* 

(*  REVISED:  09/29/86  L.  J.  BEHAN  DBMA 

(*  ENTERED  THE  NEW  RULES  FOR  THE  SCHEMA  EXECUTIVE  ENTITIES 
(* 

(*  REVISED:  06/19/86  B.  A.  ULMER  FRMI 

(*  REDO  LOGIC  OF  HOW  CRURUL  WORKS  BASED  ON  THE  NEW  DELETE  RULES 
(* 

(*  REVISED:  09/  /85  B.  A.  ULMER  FRMI 

(*  ADD  ENTITY  KINDS  SO  AS  TO  TEST  THE  NEW  DELETE  RULES  (2070, 

(*  2080,  2090) 

(* 

(*  REVISED:  09/  /85  B.  A.  ULMER  FRMI 

(*  ADD  PARAMETERS  TO  HANDLE  THE  TWO  NEW  DELETE  RULES 
(* 

(*  REVISED:  09/18/84  D.  J.  KERCHNER  FRMI 

(*  ADDED  I/S  RULE  FOR  THE  PICK  ENTITY 

(* 

(*  ORIGINATED:  MM/DD/YY  CCWW  I.  M.  THEORIGINATOR  GROUP_ID 

(* 

(* 

%PAGE 

(* 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 

(*- . .  .  . 

(* 

(*END - - - - - 

(**) 

(*  END  %INCLUDE  CRURUL  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CSARYWRT  *) 

(**) 

PROCEDURE  CSARYWRT (VAR  IRC  :  RET_REC; 

VAR  ARRAY_KEY  :  ENTKEY; 

VAR  CSRFILE  :  TEXT; 

VAR  PAGE.NUMBER  :  INTEGER; 

VAR  LINE_COUNT  :  INTEGER; 

VAR  INDENT  :  INTEGER; 

VAR  PAGE_TYPE  :  PAGES); 

SUBPROGRAM; 

(**) 

(* .  . .  . . ---*) 

(*  *) 

(*  S FUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  OUT  AN  ARRAY  DEFINITION  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  ARRAY_KEY  I  ARRAY  KEY  *) 

(*  CSRFILE  I/O  OUTPUT  FILE  *) 

(*  PAGE_NUMBER  I/O  CURRENT  PAGE  NUMBER  *) 

(*  LINE_COUNT  I/O  CURRENT  LINE  COUNT  *) 

(*  INDENT  I/O  NUMBER  OF  SPACES  TO  INDENT  *) 

(*  PAGE_TYPE  I/O  TYPE  OF  REPORT  PAGE  *) 

(*  *) 

(*  $COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  $PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  CREATE  A  NEW  PAGE  WITH  HEADING,  IF  NECESSARY.  *) 

(*  GET  THE  ARRAY'S  ADB.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  ARRAY  BOUNDS.  *) 

(*  SET  THE  LIST  OF  CONSTITUENTS  OF  THE  ARRAY  TO  BE  READ  IN  THE  *) 

(*  FORWARD  DIRECTION.  *) 

(*  READ  THE  ARRAY  CONSTITUENT  FROM  THE  LIST.  *) 

(*  GET  THE  ARRAY  CONSTITUENT'S  ADB.  *) 
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CASE  CONSTITU£NT_ADB. ENTJCIND  OF  *) 

INTEGER  :  WRITE  OUT  INTEGER  DEFINITION  *) 

REAL  :  WRITE  OUT  REAL  DEFINITION  *) 

STRING  :  WRITE  OUT  STRING  DEFINITION  *) 

LOGICAL  :  WRITE  OUT  LOGICAL  DEFINITION  *) 

ARRAY  :  WRITE  OUT  ARRAY  DEFINITION  *) 

DEFINED  TYPE  :  WRITE  OUT  DEFINED  TYPE  DEFINITION  *) 

POINTER  :  WRITE  OUT  POINTER  DEFINITION  *) 

*) 

SCOMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

*) 
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(*  %INCLUDE  CSCLSHDG  *) 
(**) 

PROCEDURE  C$CLSHDG(VAR 

VAR 

VAR 

VAR 


CSRFILE 

HEADING 

PAGE_NUMBER 

LINE_COUNT 


TEXT; 

HEADING.TYPE; 

INTEGER; 

INTEGER); 


SUBPROGRAM; 


(**) 

(*" 

-*) 

(* 

*) 

(* 

$ FUNCTION: 

*) 

(* 

THIS  ROUTINE 

WRITES  OUT  A  CLASS  HEADING  ON  A  NEW  PAGE. 

*) 

(* 

*) 

(* 

*) 

(* 

SDESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

(* 

(* 

NAME 

I/O  DESCRIPTION 

*) 

*) 

*) 

CSRFILE 

I/O  OUTPUT  FILE 

(* 

HEADING 

I  DEFINITION  OR  INDEX  HEADING 

*) 

(* 

PAGE  NUMBER 

I/O  CURRENT  PAGE  NUMBER 

*) 

(* 

LINE_COUNT 

0  LINE  COUNT  ON  THE  CURRENT  PAGE 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

SENVIRONMENT: 

*\ 

/ 

(* 

LANGUAGE:  IBM  PASCAL 

*\ 

t 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

SEXECUTION  PROCEDURE: 

*) 

(* 

INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

*) 

(* 

*) 

(* 

SPROCESSING  DESCRIPTION: 

*) 

(* 

*) 

(* 

CREATE  A  NEW  PAGE 

, 

*) 

(* 

WRITE  OUT  TO  THE 

FILE  THE  APPROPRIATE  CLASS  HEADING  (DEFINITION 

*) 

(* 

OR  INDEX). 

*) 

(* 

*) 

(* 

SCOMMENTS: 

*) 

(* 

*) 

(* 

SCHANGE  CONTROL: 

*) 

(* 

*) 
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(*  %INCLUDE 
(**) 

PROCEDURE 


CSCLSWRT  *) 

CSCLSWRT (VAR  IRC 

VAR  CLASS.LIST 
VAR  CSRFILE 
VAR  PAGE_NUMBER 
VAR  CURRENT_PAGE 


RET_REC ; 
LISTKEY; 
TEXT; 
INTEGER; 
PAGE_PTR) ; 


SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  CLASS  DEFINITIONS  TO  A  FILE 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

CLASS  LIST 

I 

ALPHABETIZED  LIST  OF  CLASSES 

(* 

CSRFILE 

I/O 

THE  OUTPUT  FILE 

(* 

PAGE  NUMBER 

I/O 

THE  CURRENT  PAGE  NUMBER 

(* 

CURRENT  PAGE 

I/O 

POINTS  TO  THE  CURRENT  PAGE  RECORD  IN 

(*  THE  CHAIN 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  SET  THE  LIST  OF  CLASSES  TO  BE  READ  IN  THE  FORWARD  DIRECTION. 

(*  COUNT  THE  NUMBER  OF  CLASSES  IN  THE  LIST. 

(*  FOR  X  =  1  TO  THE  NUMBER  OF  CLASSES  IN  THE  LIST 

(*  WRITE  OUT  TO  THE  FILE  THE  CLASS  HEADING  ON  A  NEW  PAGE. 

(*  UPDATE  THE  PAGE  RECORD  CHAIN. 

(*  READ  A  CLASS  FROM  THE  LIST  OF  CLASSES. 

(*  GET  THE  CLASS'  ADB. 

(*  WRITE  OUT  TO  THE  FILE  THE  CLASS  NAME  AND  NUMBER. 

(*  SET  THE  LIST  OF  CONSTITUENTS  OF  THE  CLASS  TO  BE  READ  IN  THE 

(*  FORWARD  DIRECTION. 

(*  COUNT  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  FOR  Y  =  1  TO  THE  NUMBER  OF  CLASS  CONSTITUENTS 
(*  READ  A  CONSTITUENT  FROM  THE  LIST  OF  CONSTITUENTS. 

(*  GET  THE  CONSTITUENT'S  ADB. 

(*  CREATE  A  NEW  PAGE,  IF  NECESSARY. 

(*  WRITE  OUT  TO  THE  FILE  THE  CONSTITUENT  (CLASS  OR  ENTITY) 

(*  INCREMENT  THE  LINE  COUNTER. 

(*  WRITE  OUT  TO  THE  FILE  'END;'. 

(* 

(*  SCOMMENTS: 

(* 

(*  $CHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CSDEFHDG  *) 

(**) 

PROCEDURE  CSDEFHDG (VAR  CSRFILE  :  TEXT; 

VAR  PAGE.NUMBER  :  INTEGER; 

VAR  LINE.COUNT  :  INTEGER); 

SUBPROGRAM; 

(**) 

(*  -*) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  OUT  A  DEFINED  TYPE  HEADING  ON  A  NEW  *) 

(*  PAGE.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CSRFILE  I/O  OUTPUT  FILE  *) 

(*  PAGE_NUMBER  I/O  CURRENT  PAGE  NUMBER  *) 

(*  LINE_COUNT  0  LINE  COUNT  ON  THE  CURRENT  PAGE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  CREATE  A  NEW  PAGE.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  DEFINED  TYPE  DEFINITION  HEADING.  *) 

(*  INCREMENT  THE  LINE  COUNTER.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CSDEFWRT  *} 

(**) 

PROCEDURE  CSDEFWRT (VAR  IRC  :  RET_REC ; 

VAR  DEFINED_TYPE_KEY  :  ENTKEY ; 

VAR  CSRFILE  :  TEXT; 

VAR  LINE_COUNT  :  INTEGER); 


SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  A  DEFINED  TYPE  NAME 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

DEFINED  TYPE  KEY 

I 

DEFINED  TYPE  KEY 

(* 

CSRFILE 

I/O 

THE  OUTPUT  FILE 

(* 

(* 

(* 

LINE_COUNT 

I/O 

CURRENT  LINE  COUNT 

SCOMMONS: 

(* 

(* 

(* 

NONE 

$ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  GET  THE  DEFINED  TYPE'S  ADB. 

(*  WRITE  OUT  TO  THE  FILE  THE  DEFINED  TYPE  NAME. 

(*  INCREMENT  THE  LINE  COUNTER. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


1-80 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  CSENMWRT  *) 

(**) 

PROCEDURE  CSENMWRT(VAR  IRC  :  RET_REC; 

VAR  ENUMERATION.KEY  :  ENTKEY; 

VAR  CSRFILE  :  TEXT; 

VAR  PAGE.NUMBER  :  INTEGER; 

VAR  LINE_COUNT  :  INTEGER; 

VAR  PAGE.TYPE  :  PAGES); 


SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  AN  ENUMERATION  DEFINITION 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

ENUMERATION  KEY 

I 

ENUMERATION  KEY 

(* 

CSRFILE 

I/O 

THE  OUTPUT  FILE 

(* 

PAGE  NUMBER 

I/O 

CURRENT  PAGE  NUMBER 

(* 

LINE  COUNT 

I/O 

CURRENT  LINE  COUNT 

l* 

PAGE  TYPE 

I/O 

TYPE  OF  REPORT  PAGE 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  $ ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/434 1/43CT 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  GET  THE  ENUMERATION'S  ADB. 

(*  WRITE  OUT  TO  THE  FILE  'ENUMERATION  OF  ('. 

(*  INCREMENT  THE  LINE  COUNTER. 

(*  SET  THE  LIST  OF  CONSTITUENTS  OF  THE  ENUMERATION  TO  BE  READ  IN 
(*  THE  FORWARD  DIRECTION. 

(*  COUNT  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST. 

(*  FOR  Y  =  1  TO  THE  NUMBER  OF  CONSTITUENTS 

(*  READ  A  CONSTITUENT  FROM  THE  LIST  OF  CONSTITUENTS. 

(*  GET  THE  CONSTITUENT'S  ADB. 

(*  CREATE  A  NEW  PAGE,  IF  NECESSARY. 

(*  WRITE  OUT  TO  THE  FILE  THE  CONSTITUENT. 

(*  INCREMENT  THE  LINE  COUNTER. 

(*  WRITE  OUT  TO  THE  FILE  ')' . 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CSENTHDG  *) 
(**) 

PROCEDURE  CSENTHDG (VAR 

VAR 

VAR 

VAR 


CSRFILE 

HEADING 

PAGE.NUMBER 

LINE_COUNT 


TEXT; 

HEADING.TYPE; 

INTEGER; 

INTEGER); 


SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  AN  ENTITY  HEADING  ON  A  NEW  PAGE. 

(* 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

CSRFILE 

I/O 

OUTPUT  FILE 

(* 

HEADING 

I 

DEFINITION  OR 

INDEX  HEADING 

(* 

PAGE  NUMBER 

I/O 

CURRENT  PAGE  NUMBER 

(* 

(* 

(* 

LINE_COUNT 

0 

LINE  COUNT  ON 

THE  CURRENT  PAGE 

$ COMMONS: 

(* 

(* 

(* 

NONE 

$ ENVIRONMENT: 

(* 

LANGUAGE:  IBM 

PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  CREATE  A  NEW  PAGE. 

(*  WRITE  OUT  TO  THE  FILE  THE  APPROPRIATE  ENTITY  HEADING  (DEFINITION 
(*  OR  INDEX). 

(*  INCREMENT  THE  LINE  COUNTER. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %I NCLUDE 
(**) 

PROCEDURE 


CSENTWRT  *) 

CSENTWRT(VAR  IRC 

VAR  ENTIT  V_HST 
VAR  CSRFILE 
VAR  PAGE.NUHBER 
VAR  CURRENT.PAGE 


RET_REC; 
LISTKEY; 
TEXT; 
INTEGER; 
PAGE.PTR) ; 


SUBPROGRAM; 

(**) 

(* . - . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  ENTITY  DEFINITIONS  TO  A  FILE 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

=  ==  =  = 

=  =  = 

(* 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

ENTITY  LIST 

I 

ALPHABETIZED  LIST  OF  ENTITIES 

(* 

CSRFILE 

I/O 

THE  OUTPUT  FILE 

(* 

PAGE  NUMBER 

I/O 

THE  CURRENT  PAGE  NUMBER 

(* 

CURRENT  PAGE 

I/O 

POINTS  TO  THE  CURRENT  PAGE  RECORD  IN 

(*  THE  CHAIN. 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  $ ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  $EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  SET  THE  LIST  OF  ENTITIES  TO  BE  READ  IN  THE  FORWARD  DIRECTION. 

(*  COUNT  THE  NUMBER  OF  ENTITIES  IN  THE  LIST. 

(*  FOR  X  =  1  TO  THE  NUMBER  OF  ENTITIES  IN  THE  LIST 

(*  WRITE  OUT  TO  THE  FILE  THE  ENTITY  HEADING. 

(*  UPDATE  THE  PAGE  RECORD  CHAIN. 

(*  READ  AN  ENTITY  FROM  THE  LIST  OF  ENTITIES. 

(*  GET  THE  ENTITY'S  ADB. 

(*  WRITE  OUT  TO  THE  FILE  THE  ENTITY  NAME  AND  NUMBER. 

(*  SET  THE  LIST  OF  CONSTITUENTS  OF  THE  ENTITY  TO  BE  READ  IN  THE 
(*  FORWARD  niRFFTTON 

(*  COUNT  THE  NUMBER  OFCONSTITUENTS  IN  THE  LIST. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  FOR  Y  =  1  TO  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST  *} 

(*  READ  A  CONSTITUENT  FROM  THE  LIST.  *) 

(*  GET  THE  CONSTITUENT'S  ADB.  *) 

(*  CREATE  A  NEW  PAGE,  IF  NECESSARY.  *) 

(*  WRITE  OUT  TO  THE  FILE  A  FIELD  NAME.  *) 

(*  SET  THE  TYPE  OF  FIELD  TO  BE  READ  IN  THE  FORWARD  DIRECTION.  *) 

(*  GET  THE  TYPE'S  KEY.  *) 

(*  GET  THE  TYPE'S  ADB.  *) 

(*  CASE  TYPE_ADB.ENT_KIND  OF  *) 

(*  INTEGER  :  WRITE  OUT  THE  INTEGER  DEFINITION  *) 

(*  REAL  :  WRITE  OUT  THE  REAL  DEFINITION  *) 

(*  STRING  :  WRITE  OUT  THE  STRING  DEFINITION  *) 

(*  LOGICAL  :  WRITE  OUT  THE  LOGICAL  DEFINITION  *) 

(*  ARRAY  :  WRITE  OUT  THE  ARRAY  DEFINITION  *) 

(*  DEFINED  TYPE  :  WRITE  OUT  THE  DEFINED  TYPE  DEFINITION  *) 

(*  POINTER  :  WRITE  OUT  THE  POINTER  DEFINITION  *) 

(*  WRITE  OUT  TO  THE  FILE  'END;'.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CSGBLHDG  *) 

(**) 

PROCEDURE  CSGBLHDG (VAR  CSRFILE  :  TEXT; 

VAR  PAGE.NUMBER  :  INTEGER; 

VAR  LINE.COUNT  :  INTEGER); 


SUBPROGRAM; 


(*  *) 

(*  $ FUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  OUT  A  GLOBAL  FIELD  HEADING  ON  A  NEW  *) 

(*  PAGE.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  *) 

(*  CSRFILE  I/O  OUTPUT  FILE  *) 

(*  PAGE_NUMBER  I/O  CURRENT  PAGE  NUMBER  *) 

(*  LINE.COUNT  0  LINE  COUNT  ON  THE  CURRENT  PAGE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  CREATE  A  NEW  PAGE.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  GLOBAL  FIELD  DEFINITION  HEADING.  *) 

(*  INCREMENT  THE  LINE  COUNTER.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CSGBLWRT  *) 


VAR  GLOBAL_FIELD_LIST  :  LISTKEY; 

VAR  CSRFILE  :  TEXT; 

VAR  PAGE.NUMBER  :  INTEGER); 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  OUT  GLOBAL  FIELD  DEFINITIONS  TO  A  FILE  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  G LOBAL_F I E LD_L I ST  I  LIST  OF  GLOBAL  FIELDS  *) 

(*  CSRFILE  I/O  THE  OUTPUT  FILE  *) 

(*  PAGE.NUMBER  I/O  THE  CURRENT  PAGE  NUMBER  *) 

(*  PAGE.MARK  I/O  ARRAY  OF  BOOLEAN:  TRUE  IF  PAGE  MARKS  *) 

(*  THE  BEGINNING  OF  A  NEW  ENTITY,  FALSE  *) 

(*  OTHERWISE.  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  SET  THE  LIST  OF  GLOBAL  FIELDS  TO  BE  READ  IN  THE  FORWARD  *) 

(*  DIRECTION.  *) 

(*  COUNT  THE  NUMBER  OF  GLOBAL  FIELDS  IN  THE  LIST.  *) 

(*  CREATE  A  LIST  FOR  THE  ALPHABETIZED  GLOBAL  FIELDS.  *) 

(*  FOR  X  =  1  TO  THE  NUMBER  OF  GLOBAL  FIELDS  IN  THE  LIST  *) 

(*  READ  A  GLOBAL  FIELD  FROM  THE  LIST  OF  GLOBAL  FIELDS.  *) 

(*  SET  THE  CONSTITUENT  OF  THE  GLOBAL  FIELD  TO  BE  READ  IN  THE  *) 

(*  FORWARD  DIRECTION.  *) 

(*  READ  A  FIELD  KEY  FROM  THE  CONSTITUENT  LIST  OF  THE  GLOBAL  FIELD.*) 

(*  ATTACH  THE  FIELD  KEY  TO  THE  LIST  FOR  THE  ALPHABETIZED  GLOBAL  *) 

(*  FIELDS.  *) 
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<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SORT  THE  LIST  OF  GLOBAL  FIELDS  INTO  ALPHABETICAL  ORDER. 

SET  THE  LIST  OF  GLOBAL  FIELDS  TO  BE  READ  IN  THE  FORWARD  *) 

DIRECTION.  *) 

WRITE  OUT  TO  THE  FILE  THE  GLOBAL  FIELD  DEFINITION  HEADING.  *) 

FOR  X  =  1  TO  THE  NUMBER  OF  GLOBAL  FIELDS  *) 

READ  A  GLOBAL  FIELD  FROM  THE  LIST  OF  GLOBAL  FIELDS.  *) 

GET  THE  FIELD'S  ADB  (THE  GLOBAL  FIELD'S  CONSTITUENT).  *) 

CREATE  A  NEW  PAGE,  IF  NECESSARY.  *) 

WRITE  OUT  TO  THE  FILE  THE  GLOBAL  FIELD  NAME.  *) 

SET  THE  TYPE  OF  THE  FIELD  TO  BE  READ  IN  THE  FORWARD  DIRECTION.  *) 

GET  THE  TYPE  KEY.  *) 

GET  THE  TYPE'S  ADB.  *) 

CASE  TYPE_ADB. ENTJCIND  OF  *) 

INTEGER  :  WRITE  OUT  THE  INTEGER  DEFINITION  *) 

REAL  :  WRITE  OUT  THE  REAL  DEFINITION  *) 

STRING  :  WRITE  OUT  THE  STRING  DEFINITION  *) 

LOGICAL  :  WRITE  OUT  THE  LOGICAL  DEFINITION  *) 

ARRAY  :  WRITE  OUT  THE  ARRAY  DEFINITION  *) 

DEFINED  TYPE  :  WRITE  OUT  THE  DEFINED  TYPE  DEFINITION  *) 

POINTER  :  WRITE  OUT  THE  POINTER  DEFINITION  *) 

WRITE  OUT  TO  THE  FILE  A  BLANK  LINE.  *) 

*) 

5COMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

*) 
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(*  %INCLUDE  CSHDGWRT  *) 

(**) 

PROCEDURE  CSHDGWRT(VAR  CSRFILE 

VAR  PAGE  NUMBER 


VAR  LINE  COUNT 


VAR  HEADING 


VAR  PAGE  TYPE 


TEXT; 

INTEGER; 

INTEGER; 

HEADING.TYPE; 

PAGES); 


SUBPROGRAM; 

(**) 

(* . 

(* 

(*  $ FUNCTION: 

(*  THIS  ROUTINE  CALLS  THE  APPROPRIATE  HEADING  ROUTINE. 

(* 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

S39S  sax  xxxxxsxsssx 

(*  CSRFILE  I/O  OUTPUT  FILE 

(*  PAGE.NUMBER  I/O  CURRENT  PAGE  NUMBER 

(*  LINE.COUNT  0  LINE  COUNT  ON  THE  CURRENT  PAGE 

(*  HEADING  I  DEFINITION  OR  INDEX  HEADING 

(*  PAGE_TYPE  I  TYPE  OF  HEADING  TO  PRINT 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  $ PROCESSING  DESCRIPTION: 

(* 

(*  CASE  TYPE  OF  PAGE  OF 

(*  ENTITY  PAGE  :  WRITE  OUT  TO  THE  FILE  THE  ENTITY  HEADING. 

(*  CLASS  PAGE  :  WRITE  OUT  TO  THE  FILE  THE  CLASS  HEADING. 

(*  DEFINED  TYPE  PAGE  :  WRITE  OUT  TO  THE  FILE  THE  DEFINED  TYPE 

(*  HEADING. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SUBSCHEMA  PAGE  *  WRITE  OUT  TO  THE  FILE  THE  SUBSCHEMA 
(*  HEADING. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE 
(**) 

PROCEDURE 


CSINDWRT  *) 

CSINDWRT (VAR  IRC 

VAR  INDEX_TYPE 
VAR  LIST 
VAR  CSRFILE 
VAR  PAGE_NUMBER 
VAR  CURRENT.PAGE 


RET  REC; 

PAGES; 

LISTKEY; 

TEXT; 

INTEGER; 

PAGE_PTR) ; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SUBPROGRAM; 


SFUNCTION: 

THIS  ROUTINE  WRITES  OUT  TO  A  FILE  AN  INDEX  FOR  AN  ENTITY, 
CLASS,  OR  SUBSCHEMA. 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


IRC 

INDEX.TYPE 
LIST 
CSRFILE 
PAGE_NUMBER 
CURRENT  PAGE 


0  INTERNAL  RETURN  CODE 
I  TYPE  OF  INDEX  TO  BE  PRINTED 
I  ALPHABETIZED  LIST  OF  ENTITIES 
I/O  THE  OUTPUT  FILE 
I/O  THE  CURRENT  PAGE  NUMBER 
I/O  POINTS  TO  A  PAGE  RECORD  WHICH  CONTAINS 
THE  PAGE  NUMBER  IN  THE  REPORT  FOR  THE 
ENTITY. 


SCOMMONS: 

NONE 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 


SPROCESSING  DESCRIPTION: 

SET  THE  LIST  OF  ENTITIES  TO  BE  READ  IN  THE  FORWARD  DIRECTION. 
COUNT  THE  NUMBER  OF  ENTITIES  IN  THE  LIST. 

WRITE  OUT  THE  PROPER  PAGE  HEADING. 

FOR  X  *  1  TO  THE  NUMBER  OF  ENTITIES 
WRITE  OUT  THE  PROPER  PAGE  HEADING,  IF  NEW  PAGE  IS  NEEDED. 
READ  AN  ENTITY  FROM  THE  LIST  OF  ENTITIES. 

GET  THE  ENTITY'S  ADB. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  WRITE  OUT  TO  THE  FILE  THE  ENTITY  NAME  (AND  NUMBER).  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  PAGE  NUMBER  THAT  THE  ENTITY  BEGINS  *) 

(*  ON.  *) 

(*  INCREMENT  THE  LINE  COUNT.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CSINTWRT  *) 
(**) 

PROCEDURE  CSINTWRT (VAR 

VAR 

VAR 

VAR 


IRC 

INT  KEY 
CSRFILE 
LINE  COUNT 


RET.REC; 

ENTKEY; 

TEXT; 

INTEGER); 


SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  AN  INTEGER  DEFINITON 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

INT  KEY 

I 

INTEGER  KEY 

(* 

CSRFILE 

I/O 

THE  OUTPUT  FILE 

(* 

(* 

(* 

LINE_COUNT 

I/O 

CURRENT  LINE  COUNT 

SCOMMONS: 

(* 

(* 

(* 

NONE 

$ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  GET  THE  INTEGER'S  ADB. 

(*  WRITE  OUT  TO  THE  FILE  THE  INTEGER  DEFINITION. 

(*  INCREMENT  THE  LINE  COUNTER. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CSLOGWRT  *) 

(**) 

PROCEDURE  CSLOGWRT (VAR  IRC 

VAR  CSRFILE 


VAR  LINE.COUNT 


RET_REC; 

TEXT; 

INTEGER); 


SUBPROGRAM; 

(**) 

(* .  .  . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  A  LOGICAL  DEFINITION 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  ==  =  =  m*m  =  =  =  scsE  =  s*  =  =t* 

(*  IRC  0  RETURN  RECORD 

(*  CSRFILE  I/O  THE  OUTPUT  FILE 

(*  LINE.COUNT  I/O  CURRENT  LINE  COUNT 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  WRITE  OUT  TO  THE  FILE  'LOGICAL;'. 

(*  INCREMENT  THE  LINE  COUNTER. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CSMAIN  *) 

(**) 

PROCEDURE  CSMAIN(VAR  IRC  :  RET_REC; 

VAR  MSG  :  MESSAGE) ; 

SUBPROGRAM; 

(**) 

(* . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  SERVES  AS  THE  MAIN  DRIVER  FOR  THE  CONCEPTUAL  *) 

(*  SCHEMA  REPORT.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ****  »*  ai  =  ass****=  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  MSG  0  MESSAGE  RETURNED  INDICATING  IF  A  REPORT  *) 

(*  HAS  BEEN  PRODUCED  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  S ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  INITIALIZE  THE  VARIABLES  USED  WITHIN  THIS  1  TINE.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  REPORT  COVER.  *) 

(*  INITIALIZE  THE  PAGE  NUMBER  AND  PAGE  CHAIN.  *) 

(*  MAKE  A  LIST  OF  DEFINED  TYPES  WITHIN  THE  SCHEMA.  *) 

(*  ALPHABETIZE  THE  LIST  OF  DEFINED  TYPES.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  DEFINED  TYPES  WITHIN  THE  SCHEMA.  *) 

(*  DELETE  THE  LIST  OF  DEFINED  TYPES  WITHIN  THE  SCHEMA.  *) 

(*  MAKE  A  LIST  OF  GLOBAL  FIELDS  WITHIN  THE  SCHEMA.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  GLOBAL  FIELDS  WITHIN  THE  SCHEMA.  *) 

(*  DELETE  THE  LIST  OF  GLOBAL  FIELDS  WITHIN  THE  SCHEMA.  *) 

(*  MAKE  A  LIST  OF  ENTITIES  WITHIN  THE  SCHEMA.  *) 

(*  ALPHABETIZE  THE  LIST  OF  ENTITIES.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  ENTITIES  WITHIN  THE  SCHEMA.  *) 

(*  MAKE  A  LIST  OF  CLASSES  WITHIN  THE  SCHEMA.  *) 

(*  ALPHABETIZE  THE  LIST  OF  CLASSES.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  CLASSES  WITHIN  THE  SCHEMA.  *) 
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(*  HAKE  A  LIST  OF  SUBSCHEMAS  WITHIN  THE  SCHEMA.  *) 

(*  ALPHABETIZE  THE  LIST  OF  SUBSCHEMAS.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  SUBSCHEMAS  WITHIN  THE  SCHEMA.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  ENTITY  INDEX.  *) 

(*  DELETE  THE  LIST  OF  ENTITIES.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  CLASS  INDEX.  *) 

(*  DELETE  THE  LIST  OF  CLASSES.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  SUBSCHEMA  INDEX.  *) 

(*  DELETE  THE  LIST  OF  SUBSCHEMAS.  *) 

(*  IF  NO  MODEL  EXISTS,  WRITE  APPROPRIATE  MESSAGE.  *) 

(*  DISPOSE  OF  POINTERS  USED  IN  THIS  ROUTINE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  WITHIN  THE  INCLUDE  FILE  'CSTYPCON',  ONE  CAN  SET  THE  MAXIMUM  *) 
(*  NUMBER  OF  LINES  PER  PAGE  IN  THE  REPORT.  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CSNEWPG  *) 
(**) 

PROCEDURE  CSNEWPG (VAR 
VAR 
VAR 


CSRFILE 
PAGE.NUMBER 
LINE  COUNT 


TEXT; 

INTEGER; 

INTEGER); 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SUBPROGRAM; 


SFUNCTION: 

THIS  ROUTINE  CREATES  A  NEW  PAGE  IN  THE  CONCEPTUAL  SCHEMA 
REPORT. 

SDESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

CSRFILE 

I/O 

OUTPUT  FILE 

PAGE  NUMBER 

I/O 

CURRENT  PAGE  NUMBER 

LINE  COUNT 

0 

LINE  COUNT  ON  THE  CURRENT  PAGE 

SCOMMONS: 

NONE 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

^PROCESSING  DESCRIPTION: 

INCREMENT  THE  PAGE  NUMBER. 

CREATE  A  NEW  PAGE  IN  THE  FILE. 

WRITE  OUT  TO  THE  FILE  THE  CURRENT  PAGE  NUMBER. 

INCREMENT  THE  LINE  COUNTER. 

SCOMMENTS: 

SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CSPTRWRT  *) 

(**) 

PROCEDURE  CSPTRWRT (VAR  IRC  :  RET.REC; 

VAR  POINTERJCEY  :  ENTKEY ; 
VAR  CSRFILE  :  TEXT; 

VAR  PAGE  NUMBER  :  INTEGER; 
VAR  LINE_COUNT  :  INTEGER; 
VAR  INDENT  :  INTEGER; 
VAR  PAGE.TYPE  ;  PAGES); 


SUBPROGRAM; 


V  -- 

-*  ) 

(* 

*) 

(* 

SFUNCTION: 

*) 

(* 

THIS  ROUTINE 

WRITES  OUT  A  POINTER  DEFINITION 

*) 

(* 

*) 

(* 

SDESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME 

I/O  DESCRIPTION 

*) 

(* 

mmmm 

MS 

*) 

(* 

IRC 

0  INTERNAL  RETURN  CODE 

*) 

(* 

POINTER  KEY 

I  POINTER  KEY 

*) 

(* 

CSRFILE 

I/O  OUTPUT  FILE 

*) 

(* 

PAGE  NUMBER 

I/O  CURRENT  PAGE  NUMBER 

*) 

(* 

LINE  COUNT 

I/O  CURRENT  LINE  COUNT 

*) 

(* 

INDENT 

I/O  NUMBER  OF  SPACES  TO  INDENT 

*) 

(* 

PAGE  TYPE 

I/O  TYPE  OF  REPORT  PAGE 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

SENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM 

PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

SEXECUTION  PROCEDURE: 

*) 

(* 

INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

*) 

(* 

*) 

(* 

SPROCESSING  DESCRIPTION: 

*) 

(* 

*) 

(* 

GET  THE  POINTER'S 

ADB. 

*) 

(* 

WRITE  OUT  TO  THE  FILE  'POINTER  TO  ('. 

*) 

(* 

CREATE  A  NEW  PAGE, 

IF  NECESSARY. 

*) 

(* 

SET  THE  LIST  OF  CONSTITUENTS  OF  THE  POINTER  TO  BE  READ  IN  THE 

*) 

(! 

FORWARD  DIRECTION. 

*) 

(* 

COUNT  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST. 

*) 
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(*  FOR  Y  =  1  TO  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST 
(*  CREATE  A  NEW  PAGE,  IF  NECESSARY. 

(*  READ  A  CONSTITUENT  FROM  THE  LIST  OF  CONSTITUENTS. 

(*  GET  THE  CONSTITUENT'S  ADB. 

(*  WRITE  OUT  TO  THE  FILE  A  CONSTITUENT  (ENTITY  OR  CLASS) 
(*  INCREMENT  THE  LINE  COUNTER. 

(*  WRITE  OUT  TO  THE  FILE 
(* 

(*  $COMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  7.INCLUDE  CSRELWRT  *) 

(**) 

PROCEDURE  CSRELWRT(VAR  IRC  :  RET.REC; 

VAR  REAL_KEY  :  ENTKEY ; 

VAR  CSRFILE  :  TEXT; 

VAR  LINE.COUNT  :  INTEGER); 


SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  OUT  A  REAL  DEFINITION  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  REAL_KEY  I  REAL  KEY  *) 

(*  CSRFILE  I/O  THE  OUTPUT  FILE  *) 

(*  LINE_COUNT  I/O  CURRENT  LINE  COUNT  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  GET  THE  INTEGER'S  ADB.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  REAL  DEFINITION.  *) 

(*  INCREMENT  THE  LINE  COUNTER.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  $CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CSRPTCVR  *) 

(**) 

PROCEDURE  C$RPTCVR(VAR  CSRFILE  :  TEXT); 
SUBPROGRAM; 


(*  ^FUNCTION:  *) 

(*  THIS  ROUTINE  PRINTS  OUT  THE  REPORT  COVER  FOR  THE  CONCEPTUAL  *) 

(*  SCHEMA.  *) 

(*  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  -========*=  *) 

(*  CSRFILE  I/O  OUTPUT  FILE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  CREATE  A  NEW  PAGE.  *) 

(*  WRITE  'CONCEPTUAL  SCHEMA  REPORT'.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  ^INCLUDE  CSSTGWRT  *) 
(**) 

PROCEDURE  CSSTGWRT (VAR 

VAR 

VAR 

VAR 


IRC 

STRINGJCEY 

CSRFILE 

LINE_COUNT 


RET_REC ; 
ENTKEY ; 
TEXT; 
INTEGER) ; 


SUBPROGRAM; 

(**) 

(* . 

(* 

(*  $ FUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  A  STRING  DEFINITON 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

STRING  KEY 

I 

STRING  KEY 

(* 

CSRFILE 

I/O 

THE  OUTPUT  FILE 

(* 

(* 

(* 

LINE_COUNT 

I/O 

CURRENT  LINE  COUNT 

SCOMMONS: 

(* 

NONE 

(* 

(* 

$ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  GET  THE  STRING'S  ADB. 

(*  WRITE  OUT  TO  THE  FILE  THE  STRING  DEFINITION. 

(*  INCREMENT  THE  LINE  COUNTER. 

(* 

(*  $COMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  CSSTRWRT  *) 

(**) 

PROCEDURE  CSSTRWRT (VAR  IRC  :  RET.REC; 

VAR  STRUCTUREJCEY  :  ENTKEY; 

VAR  CSRFILE  :  TEXT; 

VAR  PAGE_NUMBER  :  INTEGER; 

VAR  LINE_COUNT  :  INTEGER; 

VAR  PAGE_TYPE  :  PAGES); 

SUBPROGRAM; 

(**) 

(* . - . -*) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  OUT  A  STUCTURE  DEFINITION  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  STRUCTURE.KEY  I  STRUCTURE  KEY  *) 

(*  CSRFILE  I/O  THE  OUTPUT  FILE  *) 

(*  PAGE.NUMBER  I/O  CURRENT  PAGE  NUMBER  *) 

(*  LINE_COUNT  I/O  CURRENT  LINE  COUNT  *) 

(*  PAGE_TYPE  I/O  TYPE  OF  REPORT  PAGE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT;  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  GET  THE  STRUCTURE'S  ADB.  *) 

(*  WRITE  OUT  TO  THE  FILE  'STRUCTURE'.  *) 

(*  INCREMENT  THE  LINE  COUNTER.  *) 

(*  SET  THE  LIST  OF  CONSTITUENTS  TO  BE  READ  IN  THE  FORWARD  DIRECTION.*) 

(*  COUNT  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST.  *) 

(*  FOR  X  =  1  TO  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST  *) 

(*  READ  A  CONSTITUENT  FROM  THE  LIST.  *) 

(*  GET  THE  CONSTITUENT'S  ADB.  *) 

(*  CREATE  A  NEW  PAGE,  IF  NECESSARY.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  FIELD  NAME.  *) 

(*  SET  THE  TYPE  LIST  TO  BE  READ  IN  THE  FORWARD  DIRECTION.  *) 
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(*  GET  THE  TYPE'S  KEY.  *) 

(*  GET  THE  TYPE'S  ADB.  *) 

(*  CASE  TYPE_ADB.ENT_KIND  OF  *) 

(*  INTEGER  :  WRITE  OUT  THE  INTEGER  DEFINITION.  *) 

(*  REAL  :  WRITE  OUT  THE  REAL  DEFINITION.  *) 

(*  STRING  :  WRITE  OUT  THE  STRING  DEFINITION.  *} 

(*  LOGICAL  :  WRITE  OUT  THE  LOGICAL  DEFINITION.  *) 

(*  ARRAY  :  WRITE  OUT  THE  ARRAY  DEFINITION.  *) 

(*  DEFINED  TYPE  :  WRITE  OUT  THE  DEFINED  TYPE  DEFINITION.  *) 

(*  POINTER  :  WRITE  OUT  THE  POINTER  DEFINITION.  *) 

(*  CREATE  A  NEW  PAGE,  IF  NECESSARY.  *) 

(*  WRITE  OUT  TO  THE  FILE  'END;'.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CSSUBHDG  *) 

(**) 

PROCEDURE  CSSUBHDG (VAR  CSRFILE 

VAR  HEADING 
VAR  PAGE_NUMBER 
VAR  LINE  COUNT 


TEXT; 

HEADING_TYPE; 
INTEGER; 
INTEGER) ; 


SUBPROGRAM; 

(**) 

(* 

(* 

(*  $ FUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  A  SUBSCHEMA  HEADING  ON  A  NEW  PAGE. 

(* 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

CSRFILE 

I/O 

OUTPUT  FILE 

(* 

HEADING 

I 

DEFINITION  OR  INDEX  HEADING 

(* 

PAGE  NUMBER 

I/O 

CURRENT  PAGE  NUMBER 

(* 

LINE  COUNT 

0 

LINE  COUNT  ON  THE  CURRENT  PAGE 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  CREATE  A  NEW  PAGE. 

(*  WRITE  OUT  TO  THE  FILE  THE  APPROPRIATE  HEADING  (DEFINITION  OR 
(*  INDEX). 

(*  INCREMENT  THE  LINE  COUNTER. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE 
(**) 

PROCEDURE 


CSSUBWRT  *) 

CSSUBWRT(VAR  IRC 

VAR  SUBSCHEMAS  I  ST 
VAR  CSRFILE 
VAR  PAGE_NUMBER 
VAR  CURRENT_PAGE 


RET_REC ; 
LISTKEY; 
TEXT; 
INTEGER; 
PAGE_PTR) ; 


SUBPROGRAM; 

(**) 

(* 

(* 

(*  $ FUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  SUBSCHEMA  DEFINITIONS  TO  A  FILE. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

==  =  =  = 

=== 

u 

n 

ii 

ii 

ii 

ii 

ii 

ii 

« 

ii 

n 

(* 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

SUBSCHEMA  LIST 

I 

ALPHABETIZED  LIST  OF  CLASSES 

(* 

CSRFILE 

I/O 

THE  OUTPUT  FILE 

{* 

PAGE  NUMBER 

I/O 

THE  CURRENT  PAGE  NUMBER 

(* 

CURRENT  PAGE 

I/O 

POINTS  TO  THE  CURRENT  PAGE  RECORD  IN 

(*  THE  CHAIN 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  SET  THE  LIST  OF  SUBSCHEMAS  TO  BE  READ  IN  THE  FORWARD  DIRECTION. 

(*  COUNT  THE  NUMBER  OF  SUBSCHEMAS  IN  THE  LIST. 

(*  FOR  X  =  1  TO  THE  NUMBER  OF  SUBSCHEMAS  IN  THE  LIST 

(*  WRITE  OUT  TO  THE  FILE  THE  SUBSCHEMA  HEADING. 

(*  UPDATE  THE  PAGE  RECORD  CHAIN. 

(*  READ  A  SUBSCHEMA  FROM  THE  LIST  OF  SUBSCHEMAS. 

(*  GET  THE  SUBSCHEMA'S  ADB. 

(*  WRITE  OUT  TO  THE  FILE  THE  SUBSCHEMA  NAME. 

(*  SET  THE  LIST  OF  CONSTITUENTS  TO  BE  READ  IN  THE  FORWARD 
(*  DIRECTION. 

(*  COUNT  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  FOR  Y  =  1  TO  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST  *) 
(*  READ  A  CONSTITUENT  FROM  THE  LIST  OF  CONSTITUENTS  *) 
(*  GET  THE  CONSTITUENT'S  ADB.  *) 
(*  WRITE  OUT  TO  THE  FILE  THE  HEADING  ON  A  NEW  PAGE,  IF  *) 
(*  NECESSARY.  *) 
(*  WRITE  OUT  TO  THE  FILE  THE  CONSTITUENT  (ENTITY  OR  CLASS).  *) 
(*  WRITE  OUT  TO  THE  FILE  'END;'.  *) 
(*  *) 
(*  SCOMMENTS:  *) 
(*  *) 
(*  SCHANGE  CONTROL:  *) 
(*  *) 
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(*  %INCLUDE  CSSUPHDG  *) 

(**) 

PROCEDURE  CSSUPHDG (VAR  CSRFILE  :  TEXT; 

VAR  HEADING  :  HEADING_TYPE; 

VAR  PAGE_NUMBER  :  INTEGER; 

VAR  LINE.COUNT  :  INTEGER); 

SUBPROGRAM; 

(**) 

(* . - . - . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  OUT  A  SUPERTYPE  HEADING  ON  A  NEW  PAGE.  *) 

(*  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CSRFILE  I/O  OUTPUT  FILE  *) 

(*  HEADING  I  DEFINITION  OR  INDEX  HEADING  *) 

(*  PAGE_NUMBER  I/O  CURRENT  PAGE  NUMBER  *) 

(*  LINE_COUNT  0  LINE  COUNT  ON  THE  CURRENT  PAGE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  CREATE  A  NEW  PAGE.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  APPROPRIATE  SUPERTYPE  HEADING  *) 

(*  DEFINITION  OR  INDEX.  *) 

(*  INCREMENT  THE  LINE  COUNTER.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 


PS  560130000A 
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(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  I.  M.  THECHANGER  DBMA  *) 

(*  *) 

(*  ORIGINATED:  09/28/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*--- . . *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  CSSUPHDG  *) 
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(*  %INCLUDE 
(**) 

PROCEDURE 


CSSUPWRT  *) 

CSSUPWRT(VAR  IRC 

VAR  SUPERTYPE.LIST 
VAR  CSRFILE 
VAR  PAGE_NUMBER 
VAR  CURRENT_PAGE 


RET.REC ; 
LISTKEY; 
TEXT; 
INTEGER; 
PAGE_PTR) ; 


SUBPROGRAM; 

(**) 

(* . 

(* 

(*  ^FUNCTION: 

(*  THIS  ROUTINE  WRITES  OUT  SUPERTYPE  DEFINITIONS  TO  A  FILE 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

==  =  =  = 

=  =  = 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

n 

n 

(* 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

SUPERTYPE  LIST 

I 

ALPHABETIZED  LIST  OF  SUPERTYPES 

(* 

CSRFILE 

I/O 

THE  OUTPUT  FILE 

(* 

PAGE  NUMBER 

I/O 

THE  CURRENT  PAGE  NUMBER 

(* 

(* 

CURRENT  PAGE 

I/O 

POINTS  TO  THE  CURRENT  PAGE  RECORD  IN 
THE  CHAIN. 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  SET  THE  LIST  OF  ENTITIES  TO  BE  READ  IN  THE  FORWARD  DIRECTION. 

(*  COUNT  THE  NUMBER  OF  ENTITIES  IN  THE  LIST. 

(*  FOR  X  -  1  TO  THE  NUMBER  OF  ENTITIES  IN  THE  LIST 

(*  WRITE  OUT  TO  THE  FILE  THE  ENTITY  HEADING. 

(*  UPDATE  THE  PAGE  RECORD  CHAIN. 

(*  READ  AN  ENTITY  FROM  THE  LIST  OF  ENTITIES. 

(*  GET  THE  ENTITY'S  ADB. 

(*  WRITE  OUT  TO  THE  FILE  THE  ENTITY  NAME  AND  NUMBER. 

(*  SET  THE  LIST  OF  CONSTITUENTS  OF  THE  ENTITY  TO  BE  READ  IN  THE 
(*  FORWARD  DIRECTION. 

(*  COUNT  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  FOR  Y  =  1  TO  THE  NUMBER  OF  CONSTITUENTS  IN  THE  LIST  *) 
(*  READ  A  CONSTITUENT  FROM  THE  LIST.  *) 
(*  GET  THE  CONSTITUENT'S  ADB.  *) 
(*  CREATE  A  NEW  PAGE,  IF  NECESSARY.  *) 
(*  WRITE  OUT  TO  THE  FILE  A  FIELD  NAME.  *) 
(*  SET  THE  TYPE  OF  FIELD  TO  BE  READ  IN  THE  FORWARD  DIRECTION.  *) 


(*  GET  THE  TYPE'S  KEY.  *) 

(*  GET  THE  TYPE'S  ADB.  *) 

(*  CASE  TYPE  ADB.ENT_KIND  OF  *) 

(*  INTEGER  :  WRITE  OUT  THE  INTEGER  DEFINITION  *) 

(*  REAL  :  WRITE  OUT  THE  REAL  DEFINITION  *) 

(*  STRING  :  WRITE  OUT  THE  STRING  DEFINITION  *) 

(*  LOGICAL  :  WRITE  OUT  THE  LOGICAL  DEFINITION  *) 

(*  ARRAY  :  WRITE  OUT  THE  ARRAY  DEFINITION  *) 

(*  DEFINED  TYPE  :  WRITE  OUT  THE  DEFINED  TYPE  DEFINITION  *) 

(*  POINTER  :  WRITE  OUT  THE  POINTER  DEFINITION  *) 

(*  WRITE  OUT  TO  THE  FILE  'END;'.  *) 

(*  *) 

(*  5COMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  09/28/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  .  *) 

(*  *) 

(♦END - - *) 

(*  END  %INCLUDE  CSSUPWRT  *) 
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(*  %INCLUDE 
(**) 

PROCEDURE 


CSTYPWRT  *) 

CSTYPWRT (VAR  IRC 

VAR  DEF_TYP_LIST 
VAR  CSRFILE 
VAR  PAGE  NUMBER 


RET_REC ; 
LISTKEY; 
TEXT; 
INTEGER); 


SUBPROGRAM; 


(*  *) 

(*  $ FUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  OUT  THE  DEFINED  TYPE  DEFINITIONS  TO  *) 

(*  A  FILE.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  DEF_TYP_LIST  I  ALPHABETIZED  LIST  OF  DEFINED  TYPES  *) 

(*  CSRFILE  I/O  THE  OUTPUT  FILE  *) 

(*  PAGE.NUMBER  I/O  THE  CURRENT  PAGE  NUMBER  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  SET  THE  LIST  OF  DEFINED  TYPES  TO  BE  READ  IN  THE  FORWARD  *) 

(*  DIRECTION.  *) 

(*  COUNT  THE  NUMBER  OF  DEFINED  TYPES  IN  THE  LIST.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  DEFINED  TYPE  DEFINITION  HEADING.  *) 

(*  FOR  X  *  1  TO  THE  NUMBER  OF  DEFINED  TYPES  IN  THE  LIST  *) 

(*  READ  A  DEFINED  TYPE  FROM  THE  LIST.  *) 

(*  GET  THE  DEFINED  TYPE'S  ADB.  *) 

(*  WRITE  OUT  THE  DEFINED  TYPE  HEADING.  IF  NECESSARY.  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  DEFINED  TYPE  NAME.  *) 

(*  SET  THE  LIST  OF  CONSTITUENTS  TO  BE  READ  IN  THE  FORWARD  *) 

(*  DIRECTION.  *) 

(*  READ  THE  CONSTITUENT  FROM  THE  LIST  OF  CONSTITUENTS.  *) 

(*  GET  THE  CONSTITUENT'S  ADB.  *) 
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(*  CASE  CONS  riTUENT_ADB . ENTJCIND  OF  *) 

(*  INTEGER  :  WRITE  OUT  THE  INTEGER  DEFINITION.  *) 

(*  REAL  :  WRITE  OUT  THE  REAL  DEFINITION.  *) 

(*  STRING  :  WRITE  OUT  THE  STRING  DEFINITION.  *) 

(*  LOGICAL  :  WRITE  OUT  THE  LOGICAL  DEFINITION.  *) 

(*  ARRAY  :  WRITE  OUT  THE  ARRAY  DEFINITION.  *) 

(*  DEFINED  TYPE  :  WRITE  OUT  THE  DEFINED  TYPE  DEFINITION.  *) 

(*  POINTER  :  WRITE  OUT  THE  POINTER  DEFINITION.  *) 

(*  ENUMERATION  :  WRITE  OUT  THE  ENUMERATION  DEFINITION.  *) 

(*  STRUCTURE  :  WRITE  OUT  THE  STRUCTURE  DEFINITION.  *) 

(*  INCREMENT  THE  LINE  COUNTER.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  BEGIN  %INCLUDE  DDABNDS  *********************************************) 

(*  *) 
PROCEDURE  DDABNDS  (  VAR  DDFILE  :  T_FILE  VARIANT; 

CONST  NO_OF_DIMEN  :  INTEGER; 

CONST  START I NG_ARRAY_POS I T I ON  :  INTEGER; 

VAR  POINTER  :  T_VARIANT_POINTER; 

VAR  ENTITY_SIZE  :  INTEGER; 

VAR  ENTITY.POSITION  :  INTEGER; 


CONST  ENUM_INDEX  ;  INTEGER  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  WRITE  THE  LOW-BOUND  AND  UPPER-BOUND  FOR  THE  ARRAY  ATTRIBUTE  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  **==«=»===  *) 

(*  DDFILE  0  DATA  DICTIONARY  SEQUENTIAL  FILE  *) 

(*  NO_OF_DIMEN  I  NUMBER  OF  ARRAY  DIMENSION  *) 

(*  ST  ART I NG_ARRAY_PG  I  STARTING  POSITION  IN  THE  ARRAY  TABLE  *) 

(*  POINTER  I  POINTER  TO  ARRAY  TABLE  *) 

(*  ENTITY_SIZE  0  NUMBER  OF  RECORDS  IN  THE  DEFINITION  *) 

(*  ENTITY_POSITION  0  FIRST  RECORD  OF  THE  DEFINITION  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  LOOP  THROUGH  THE  NUMBER  OF  DIMENSIONS  *) 

(*  WRITE  LOW-BOUND  AND  UPPER-BOUND  *) 

(*  END  LOOP  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  23  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  DDABNDS  **********************************************} 
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(*  BEGIN  %INCLUDE  DDADB  ***********************************************) 


PROCEDURE  DDADB  (  VAR  DDFILE 
CONST  RUNTIME 


VAR 

VAR 

SUBPROGRAM; 


CONST  ENTRY 
CONST  PS.ORDER 
VAR  ENTITY.SIZE 
VAR  ENTITY  POSITION 


T_FILE_VARIANT ; 

T_RUN_TIME; 

INTEGER; 

T_PS_ORDER; 

INTEGER; 

INTEGER  ); 


SFUNCTION: 

WRITE  THE  BASIC  RECORD  OF  AN  ENTITY  TO  A  SEQUENTIAL  FILE 


SDESCRIPTION  OF  ARGUMENTS: 


DDFILE 

RUNTIME 

ENTRY 

PS.ORDER 

ENTITY_SIZE 

ENTITY  POSITION 


DESCRIPTION 

DATA  DICTIONARY  SEQUENTIAL  FILE 
CONTAINS  THE  ENTITY  DEFINITION 
ENTRY  ORDER  IN  THE  DEFINITION 
LIST  OF  PHYSICAL  SCHEMA  ORDER 
NUMBER  OF  RECORDS  IN  THE  DEFINITION 
FIRST  RECORD  OF  THE  DEFINITION 


$ COMMONS: 


$ ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

SPROCESSING  DESCRIPTION: 

WRITE  BASIC  RECORD 

SCOMMENTS: 

SCHANGE  CONTROL: 

ORIGINATED:  17  MARCH  1987,  M.  H.  CHOI,  DBMA 


| *  END  %INCLUDE  DDADB  *************************************************j 
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(*  BEGIN  %INCLUDE  DDARRAY  *********************************************) 

(*  *) 
PROCEDURE  DDARRAY  (  VAR  DDFILE  :  T_FILE_VARIANT; 

CONST  RUNTIME  :  T_RUN_TIME; 

CONST  ENTRY  :  INTEGER; 

CONST  PS.ORDER  ;  T_PS_ORDER; 

VAR  ENTITY_SIZE  :  INTEGER; 

VAR  ENTITY_POSITION  :  INTEGER  ); 

SUBPROGRAM; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

SFUNCTION:  *) 

WRITE  THE  ARRAY  ATTRIBUTE  OF  AN  ENTITY  TO  A  SEQUENTIAL  FILE  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

DDFILE  0  DATA  DICTIONARY  SEQUENTIAL  FILE  *) 

RUNTIME  I  CONTAINS  THE  ENTITY  DEFINITION  *) 

ENTRY  I  ENTRY  ORDER  IN  THE  DEFINITION  *) 

PS.ORDER  I  LIST  OF  PHYSICAL  SCHEMA  ORDER  *) 

ENTITY_SIZE  0  NUMBER  OF  RECORDS  IN  THE  DEFINITION  *) 

ENTITY_POSITION  0  FIRST  RECORD  OF  THE  DEFINITION  *) 

*) 

SCOMMONS:  *) 

*) 

$ ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  {SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

OBTAIN  THE  NUMBER  OF  DIMENSIONS  *) 

OBTAIN  THE  STARTING  POSITION  OF  ARRAY  TABLE  *) 

CASE  DATA  TYPE  OF  *) 

IN-ADB  :  WRITE  BASIC  DEFINITION  *) 

DDALIST  {  EXTERNAL  SUBPROGRAM  FOR  LOW-BOUND  AND  *) 

UPPER-BOUND  )  *) 

IN-CL  :  WRITE  BASIC  DEFINITION  *) 

DDCL  (  EXTERNAL  SUBPROGRAM  FOR  CONSTITUENT  LIST)  *) 

DDALIST  (  EXTERNAL  SUBPROGRAM  FOR  LOW- BOUND  AND  *) 

UPPER-BOUND  )  *) 

END  CASE  *) 

*) 

SCOMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

ORIGINATED:  17  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

*) 


END  %INCLUDE  DDARRAY  ********************************************** 
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(*  BEGIN  %INCLUDE  DDCL  ************************************************) 


PROCEDURE  DDCL  (  VAR  DDFILE 
CONST  RUNTIME 


VAR 

VAR 

SUBPROGRAM; 


CONST  ENTRY 

VAR  ENTITY.SIZE 

VAR  ENTITY  POSITION 


T_FILE_VARIANT; 

T_RUN_TIME; 

INTEGER; 

INTEGER; 

INTEGER  ); 


SFUNCTION: 

WRITE  THE  CONSTITUENT  REFERENCES  OF  AN  ENTITY  TO  A 
SEQUENTIAL  FILE 


SDESCRIPTION  OF  ARGUMENTS: 


DDFILE 

RUNTIME 

ENTRY 

ENTITY_SIZE 
ENTITY  POSITION 


DESCRIPTION 

DATA  DICTIONARY  SEQUENTIAL  FILE 
CONTAINS  THE  ENTITY  DEFINITION 
ENTRY  ORDER  IN  THE  DEFINITION 
NUMBER  OF  RECORDS  IN  THE  DEFINITION 
FIRST  RECORD  OF  THE  DEFINITION 


SCOMMONS: 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

SPROCESSING  DESCRIPTION: 

IF  NOT  ARRAY  ATTRIBUTE  THEN 
WRITE  BASIC  DEFINITION 
END  IF 

OBTAIN  THE  NUMBER  OF  ELIGIBLE  KINDS 

OBTAIN  STARTING  POSITION  OF  CONSTITUENT  LIST  TABLE 

LOOP  THROUGH  THE  NUMBER  OF  ELIGIBLE  KINDS 

WRITE  ELIGIBLE  KIND  IN  THE  CONSTITUENT  LIST  TABLE 
END  LOOP 

SCOMMENTS: 

SCHANGE  CONTROL: 

ORIGINATED:  17  MARCH  1987,  M.  H.  CHOI,  DBMA 


(*  END  %INC LUDE  DDCL 


************************************************** 1 
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(*  BEGIN  %INCLUDE  DDCLASS  ********************************************* 

(*  * 
PROCEDURE  DDCLASS  (  CONST  SUBSCHEMA.KEY  :  ENTKEY; 


VAR 

DDFILE  : 

T  FILE  VARIANT; 

VAR 

DDINX 

T  I NX  FILE; 

VAR 

ENTITY  POSITION: 

INTEGER; 

VAR 

XRC 

INTEGER  ); 

SUBPROGRAM; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION:  * 

WRITE  THE  CLASS  KINDS  TO  A  SEQUENTIAL  FILE  * 

* 


SDESCRIPTION  OF  ARGUMENTS:  * 

NAME  I/O  DESCRIPTION  * 


DDFILE 

RUNTIME 

ENTRY 

PS_ORDER 

ENTITY_SIZE 

ENTITY  POSITION 


I  DATA  DICTIONARY  SEQUENTIAL  FILE  * 
I  CONTAINS  THE  ENTITY  DEFINITION  * 
I  ENTRY  ORDER  IN  THE  DEFINITION  * 
I  LIST  OF  PHYSICAL  SCHEMA  ORDER  * 
0  NUMBER  OF  RECORDS  IN  THE  DEFINITION  * 
0  FIRST  RECORD  OF  THE  DEFINITION  * 


SCOMMONS:  * 

* 


S ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


\k 


* 


(*  SEXECUTION  PROCEDURE:  * 
(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  * 
(* 

(*  $ PROCESSING  DESCRIPTION:  * 
(*  WRITE  BASIC  RECORD  * 
(* 

(*  $COMMENTS:  * 
(* 

(*  $ CHANGE  CONTROL:  * 
(*  ORIGINATED:  08  MAY  1987,  M.  H.  CHOI,  DBM A  * 
(* 

(*  END  %I NC LUDE  DDCLASS  *********************************************** 


) 

) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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(*  BEGIN  %INCLUDE  DDENTITY  ********************************************) 

(*  *) 
PROCEDURE  DDENTITY  (  CONST  SUBSCHEMA_KEY  :  ENTKEY; 

VAR  DDFILE  :  T_F I LE_VARI ANT ; 

VAR  DDINX  :  T_INX_FILE; 

VAR  ENTITY_POSITION:  INTEGER; 

VAR  XRC  :  INTEGER  ); 

SUBPROGRAM; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

{* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

SFUNCTION:  *) 

WRITE  THE  ENTITY  KINDS  TO  A  SEQUENTIAL  FILE  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

DDFILE  I  DATA  DICTIONARY  SEQUENTIAL  FILE  *) 

RUNTIME  I  CONTAINS  THE  ENTITY  DEFINITION  *) 

ENTRY  I  ENTRY  ORDER  IN  THE  DEFINITION  *) 

PS_ORDER  I  LIST  OF  PHYSICAL  SCHEMA  ORDER  *) 

ENTITY_SIZE  0  NUMBER  OF  RECORDS  IN  THE  DEFINITION  *) 

ENTITY_POSITION  0  FIRST  RECORD  OF  THE  DEFINITION  *) 

*) 

$ COMMONS:  *) 

*) 

SENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

*\ 

SPROCESSING  DESCRIPTION:  *) 

WRITE  BASIC  RECORD  *) 

*) 

SCOMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

ORIGINATED:  08  MAY  1987,  M.  H.  CHOI,  DBMA  *) 

*) 

END  %INCLUDE  DDENTITY  ********************************************** j 
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(*  BEGIN  %INCLUDE  DDENUM  **********************************************) 

(*  *) 
PROCEDURE  DDENUM  (  VAR  DDFILE  :  T_FILE_VARIANT; 

CONST  RUNTIME  :  T_RUN_TIME; 

CONST  ENTRY  :  INTEGER; 

CONST  PS.ORDER  ;  T_PS_ORDER; 

VAR  ENTITY.SIZE  :  INTEGER; 

VAR  ENTITY_POS ITION :  INTEGER; 

CONST  ENUM_TABLE_INDEX  :  INTEGER; 

CONST  NO_OF_ENUM  :  INTEGER  ); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  WRITE  THE  ENUMERATION  ATTRIBUTE  OF  AN  ENTITY  TO  A  *) 

(*  SEQUENTIAL  FILE  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  *) 

(*  DDFILE  0  DATA  DICTIONARY  SEQUENTIAL  FILE  *) 

(*  RUNTIME  I  CONTAINS  THE  ENTITY  DEFINITION  *) 

(*  ENTRY  I  ENTRY  ORDER  IN  THE  DEFINITION  *) 

(*  PS_ORDER  I  LIST  OF  PHYSICAL  SCHEMA  ORDER  *) 

(*  ENTITY.SIZE  0  NUMBER  OF  RECORDS  IN  THE  DEFINITION  *) 

(*  ENTITY_POSITION  0  FIRST  RECORD  OF  THE  DEFINITION  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  WRITE  BASIC  DEFINITION  *) 

(*  OBTAIN  THE  NUMBER  OF  ENUMERATION  VALUES  *) 

(*  OBTAIN  THE  STARTING  POSITION  OF  ENUMERATION  VALUE  TABLE  *) 

(*  LOOP  THROUGH  THE  NUMBER  OF  ENUMERATION  VALUES  *) 

(*  WRITE  THE  ENUMERATION  VALUE  FROM  THE  TABLE  *) 

(*  END  LOOP  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  17  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


END  %INCLUDE  DDENUM  *********************************************,**j 
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(*  BEGIN  %INCLUDE  DDREPORT  ********************************************} 

(*  *) 
PROCEDURE  DDREPORT  (  VAR  SUBSCHEMA_KEY  :  ENTKEY; 

VAR  RETURN_CODE  :  INTEGER  ); 

EXTERNAL; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

SFUNCTION:  *) 

WRITE  THE  DATA  DICTIONARY  IN  CHARACTER  FORM.  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

SUBSCHEMAJCEY  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

RETURN_CODE  0  RETURN  CODE  *) 

*) 

SCOMMONS:  *) 

*) 

S ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

SORT  ENTITIES  BY  KIND  NUMBER  *) 

LOOP  THROUGH  THE  LIST  OF  ENTITIES  *) 

REQUEST  ENTITY  DEFINITION  *) 

LOOP  THROUGH  THE  NUMBER  OF  ATTRIBUTES  IN  THE  DEFINITION  *) 
CASE  DATA  TYPE  OF  *) 

IN-ADB  :  DDADB  (  EXTERNAL  SUBPROGRAM  )  *) 

IN-ENUM  :  DDENUM  (  EXTERNAL  SUBPROGRAM  )  *) 

IN-CL  :  DDCL  (  EXTERNAL  SUBPROGRAM  )  *) 

IN-ARRAY  :  DDARRAY  (  EXTERNAL  SUBPROGRAM  )  *) 

END  CASE  *) 

END  LOOP  *) 

END  LOOP  *) 

*) 

SCOMMENTS:  *) 

JCHANGE  CONTROL:  *) 

ORIGINATED:  23  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

*) 


END  %INCLUDE  DDREPORT  ********************************************** ) 
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(*  BEGIN  %INCLUDE  DDWRITE  ********************************************) 


(*  *) 
PROCEDURE  DDWRITE  (  CONST  RUNTIME  :  T_RUN_TIME; 


VAR  ENTITY_POSITION:  INTEGER  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  WRITE  THE  ENTITY  DEFINITIONS  TO  A  SEQUENTIAL  FILE  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  DDFILE  I  DATA  DICTIONARY  SEQUENTIAL  FILE  *) 

(*  RUNTIME  I  CONTAINS  THE  ENTITY  DEFINITION  *) 

(*  ENTRY  I  ENTRY  ORDER  IN  THE  DEFINITION  *) 

(*  PS_ORDER  I  LIST  OF  PHYSICAL  SCHEMA  ORDER  *) 

(*  ENTITY_SIZE  0  NUMBER  OF  RECORDS  IN  THE  DEFINITION  *) 

(*  ENTITY_POSITION  0  FIRST  RECORD  OF  THE  DEFINITION  *) 

(*  *) 

(*  $ COMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  WRITE  BASIC  RECORD  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  08  MAY  1987,  M.  H.  CHOI,  DBM A  *) 

(*  *) 


(*  END  %INCLUDE  DDWRITE  **************** ****************************** j 
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(*  %INCLUDE  DEFADD  *) 


VAR  IDENTIFIER  :  T_NAME ; 

VAR  KIND  :  INTEGER; 

VAR  REFERENCEJCEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION;  *) 

(*  Batch  Interface  routine  that  adds  an  unresolved  entity  *) 

(*  reference  to  the  list  of  backpatch  entities.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  IDENTIFIER  I  NAME  OF  ENTITY  OR  DEFINED  TYPE  *) 

(*  KIND  I  KIND  NUMBER  OF  ENTITY  *) 

(*  REFERENCEJCEY  I  KEY  OF  "ENTITY"  WITH  UNRESOLVED  *) 

(*  REFERENCE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  PERFORM  INITIALIZATIONS.  *) 

(*  DETERMINE  IF  ANY  BACKPATCH  ENTITIES  EXIST  IN  THE  MODEL.  *) 

(*  IF  NO  BACKPATCH  ENTITIES  EXIST,  CREATE  ONE.  *) 

(*  IF  BACKPATCH  ENTITIES  EXIST,  DETERMINE  IF  ONE  HAS  THE  SAME  *) 

(*  NAME  OR  KIND  AS  THE  ENTITY  INPUT.  *) 

(*  IF  A  BACKPATCH  ENTITY  HAS  THE  SAME  NAME  OR  KIND,  THEN  ADD  A  *) 

(*  REFERENCE  AS  A  CONSTITUENT  OF  THAT  BACKPATCH  ENTITY.  *) 

(*  IF  NO  EXISTING  BACKPATCH  ENTITY  HAS  THE  SAME  NAME  OR  KIND,  *) 

(*  THEN  CREATE  A  NEW  BACKPATCH  ENTITY.  *) 

(*  *) 

(*  *) 

(*  *) 

(*  *) 

(*  *) 

(*  *) 
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(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  04/22/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . - .  .  . *) 

(*  *) 

(*END . - . - - - - ---*) 


(*  END  %INCLUDE  DEFADD  *) 
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(*  %INCLUDE  DEFARR  *) 

(**) 

PROCEDURE  DEFARR(VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  ^FUNCTION: 

(*  Batch  Interface  routine  that  processes  an  array  definition. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

ENT  KIND 

I 

THE  KIND  OF  ENTITY  BEING  CONSTRUCTED 

(* 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

(* 

TOKEN 

I/O 

TOKEN  FROM  BATCH  INPUT 

(* 

TOKEN  VALUE 

I/O 

TOKEN  VALUE  FROM  BATCH  INPUT 

<* 

TOKEN  LOCATION 

I/O 

LOCATION  OF  TOKEN  IN  INPUT  LINE 

(* 

TOKEN  LENGTH 

I/O 

LENGTH  OF  TOKEN 

(* 

(* 

(* 

(* 

(* 

TEXT 

I/O 

OUTPUT  FILE 

SCOMMONS: 

SENVIRONMENT: 

(* 

LANGUAGE:  IBM 

PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  INITIALIZE  VARIABLES 

(*  GET  ARRAY  LOWER  BOUND  AND  VERIFY  RANGE 

(*  GET  ARRAY  UPPER  BOUND  AND  VERIFY  RANGE 

(*  PUSH  ARRAY  TRANSACTION  ONTO  STACK 

(*  GET  THE  ARRAY  TYPE 

(*  IF  THE  ARRAY  TYPE  IS  BASIC  TYPE  THEN 

(*  CREATE  BASIC  CONSTITUENT 


ENTJCIND 

TRANS.STACK 

TOKEN 

TOKEN_VALUE 

TOKENJ.OCATION 

TOKEN_LENGTH 

REPORT1 


RET_REC; 

INTEGER; 

TRANSPTR; 

TJOKEN; 

T_TOKEN_VALUE; 

INTEGER; 

INTEGER; 

TEXT); 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ELSE  *) 

(*  IF  THE  ARRAY  TYPE  IS  DEFINED  TYPE  THEN  *) 

(*  CREATE  DEFINED  TYPE  CONSTITUENT  *) 

(*  PRINT  ERRORS  AS  APPROPRIATE  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . - .  .  *) 

(*  *) 

(*END . - . - . . . *) 

(*  END  %INCLUDE  DEFARR  *) 
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(*  %INCLUDE  DEFATT  *) 

(**) 

PROCEDURE  DEFATT (VAR  IRC 

VAR  TRANS_STACK 
VAR  TOKEN 
VAR  TOKEN_VALUE 
VAR  TOKEN_LOCATION 
VAR  TOKEN_LENGTH 
VAR  FIELDTYPE 
VAR  SUBSCHEMA.FLAG 
VAR  SUB_ENT_HEAD 
VAR  SUB_ENT_LIST 
VAR  CLASS_FLAG 
VAR  CLS_ENT_HEAD 
VAR  CLS_ENT_LIST 
VAR  REPORT 1 


SUBPROGRAM; 


RET_REC; 

TRANSPTR; 

T_TOKEN; 

T_TOKEN_VALUE; 

INTEGER; 

INTEGER; 

T_FIELDTYPE; 

BOOLEAN; 

ENTITY_LIST_PTR; 

ENTITY_LIST_PTR; 

BOOLEAN; 

ENTITY_LIST_PTR; 

ENTITY_LIST_PTR; 

TEXT); 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. . .  . *) 

*) 

SFUNCTION:  *) 

Batch  Interface  routine  that  processes  an  attribute  *) 

definition.  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

IRC  0  INTERNAL  RETURN  CODE  *) 

TRANS_STACK  I/O  TRANSACTION  STACK  *) 

TOKEN  I/O  TOKEN  FROM  BATCH  INPUT  *) 

TOKEN_VALUE  I/O  TOKEN  VALUE  FROM  BATCH  INPUT  *) 

TOKENJ.OCATION  I/O  LOCATION  OF  TOKEN  IN  INPUT  LINE  *) 

TOKEN_LENGTH  I/O  LENGTH  OF  TOKEN  *) 

FIELDTYPE  I/O  TYPE  OF  ATTRIBUTE  (ENTITY  OR  GLOBAL)  *) 

SUBSCHEMA_FLAG  I/O  INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN  *) 

THE  SUBSCHEMA  *) 

SUB_ENT_HEAD  I/O  POINTS  TO  LIST  OF  SUBSCHEMA  ENTITIES  *) 

SUB_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  THE  LIST  OF  *) 

SUBSCHEMA  ENTITIES  *) 

CLASS.FLAG  I/O  INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN  *) 

THE  CLASS  *) 

CLS_ENT_HEAD  I/O  POINTS  TO  THE  LIST  OF  CLASS  ENTITIES  *) 

CLS_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  THE  LIST  OF  *) 

CLASS  ENTITIES  *) 

REPORTI  I/O  OUTPUT  FILE  *) 

*) 

SCOMMONS:  *) 

*) 
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(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  S EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  INITIALIZE  VARIABLES  *) 

(*  STORE  ATTRIBUTE  NAME  *) 

(*  DETERMINE  IF  THE  ATTRIBUTE  NAME  IS  UNIQUE  *) 

(*  IF  THE  ATTRIBUTE  TYPE  IS  GLOBAL  OR  STRUCTURE,  THEN  WE  WILL  WANT  *) 

(*  A  LIST  OF  ALL  OF  THE  ATTRIBUTES  SO  THAT  WE  CAN  VERIFY  THAT  *) 

(*  THE  ATTRIBUTE  NAME  IS  UNIQUE  AMONG  ALL  MODELED  ATTRIBUTES.  *) 

(*  IF  THE  ATTRIBUTE  TYPE  IS  ENTITY  THEN  WE  WILL  WANT  A  LIST  OF  *) 

(*  ALL  OF  THE  GLOBAL  AND  STRUCTURE  ATTRIBUTES  SO  THAT  WE  CAN  *) 

(*  VERIFY  THAT  THE  ATTRIBUTE  NAME  IS  UNIQUE  AMONG  ALL  MODELED  *) 

(*  GLOBAL  AND  STRUCTURE  ATTRIBUTES.  *) 

(*  VERIFY  THAT  THE  ATTRIBUTE  NAME  IS  UNIQUE  AMONG  THOSE  ATTRIBUTES  *) 
(*  ON  THE  STACK.  *) 

(*  VERIFY  THAT  THE  ATTRIBUTE  NAME  IS  UNIQUE  AMONG  THOSE  ATTRIBUTES  *) 
(*  ALREADY  MODELED.  *) 

(*  IF  THE  ATTRIBUTE  NAME  IS  UNIQUE  THEN  PUT  THE  ATTRIBUTE  DATA  ON-  *) 
(*  TO  THE  STACK  AND  GET  NEXT  TOKEN.  *) 

(*  DETERMINE  IF  ANOTHER  ATTRIBUTE  FOLLOWS  THE  CURRENT  ONE  *) 

(*  (SEPARATED  BY  A  COMMA)  OR  IF  THE  TYPE  DEFINITION  FOR  *) 

(*  THE  ATTRIBUTE (S)  IS  NEXT.  *) 

(*  IF  ANOTHER  ATTRIBUTE  FOLLOWS  THEN  *) 

(*  DEFINE  THE  ATTRIBUTE  *) 

(*  ELSE  *) 

(*  IF  ATTRIBUTE  TYPE  IS  BASIC  TYPE  THEN  *) 

(*  CREATE  BASIC  TYPE  *) 

(*  ELSE  *) 

(*  IF  ATTRIBUTE  TYPE  IS  DEFINED  TYPE  THEN  *) 

(*  CREATE  DEFINED  TYPE  CONSTITUENT  *) 

(*  PRINT  ERRORS  AS  APPROPRIATE  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  - *) 

(*  *) 

(*END - *) 

(*  END  %INCLUDE  DEFATT  *) 
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(*  %INCLUDE  DEFBAS  *) 

(**) 

PROCEDURE  DEFBAS (VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  Batch  Interface  routine  that  processes  a  primitive  data 

(*  type  definition. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

(* 

sa=  = 

=  =  = 

====:»==  =  =  =  = 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

ENT  KIND 

0 

THE  KIND  OF  ENTITY  BEING  CONSTRUCTED 

(* 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

(* 

TOKEN 

I/O 

TOKEN  FROM  BATCH  INPUT 

(* 

TOKEN  VALUE 

I/O 

TOKEN  VALUE  FROM  BATCH 

INPUT 

(* 

TOKEN  LOCATION 

I/O 

TOKEN  VALUE  FROM  BATCH 

INPUT 

(* 

TOKEN  LENGTH 

I/O 

TOKEN  VALUE  FROM  BATCH 

INPUT 

(* 

(* 

(* 

RE PORT 1 

SCOMMONS: 

I/O 

OUTPUT  FILE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  INITIALIZE  VARIABLES 

(*  IF  BASIC  TYPE  IS  INTEGER  THEN 

(*  GET  INTEGER  PRECISION 

(*  PUSH  INTEGER  DATA  ONTO  TRANSACTION  STACK 

(*  IF  BASIC  TYPE  IS  REAL  THEN 

(*  GET  REAL  PRECISION 

(*  PUSH  REAL  DATA  ONTO  TRANSACTION  STACK 


ENTJCIND 

TRANS_STACK 

TOKEN 

TOKEN  VALUE 
TOKEN  LOCATION 
TOKEN  LENGTH 
RE PORT 1 


RET_REC ; 

INTEGER; 

TRANSPTR; 

T.TOKEN; 

T_TOKEN_VALUE; 

INTEGER; 

INTEGER; 

TEXT); 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  IF  BASIC  TYPE  IS  STRING  THEN  *) 

(*  GET  STRING  PRECISION  *) 

(*  PUSH  STRING  DATA  ONTO  TRANSACTION  STACK  *) 

(*  IF  BASIC  TYPE  IS  LOGICAL  THEN  *) 

(*  PUSH  LOGICAL  DATA  ONTO  TRANSACTION  STACK  *) 

(*  IF  BASIC  TYPE  IS  ARRAY  THEN  *) 

(*  DEFINE  ARRAY  *) 

(*  IF  BASIC  TYPE  IS  POINTER  THEN  *) 

(*  DEFINE  POINTER  *) 

(*  WRITE  APPROPRIATE  ERROR  MESSAGES  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . .  .  .  *) 

(*  *) 

(*END . . - . - . . *) 

(*  END  %INCLUDE  DEFBAS  *) 
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(*  %INCLUDE  DEFCLS  *) 


VAR  TRANS_STACK  :  TRANSPTR; 

VAR  TOKEN  :  T.TOKEN; 

VAR  TOKEN_VALUE  :  T_TOKEN_VALUE; 
VAR  TOKEN_LOCATION  :  INTEGER; 

VAR  TOKEN_LENGTH  :  INTEGER; 

VAR  $UBSCHEMA_FLAG  :  BOOLEAN; 

VAR  SUB_ENT_HEAD  :  ENTITY  LIST_PTR; 
VAR  SUB_ENT_LIST  :  ENT I T Y_L I ST_PTR ; 


VAR  CLS_ENT_LIST  :  ENTITY_LIST_PTR; 

VAR  REPORT1  :  TEXT); 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  Batch  Interface  routine  that  processes  a  class  definition.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  TRANS.STACK  I/O  TRANSACTION  STACK  *) 

(*  TOKEN  I/O  TOKEN  FROM  BATCH  INPUT  *) 

(*  TOKEN_VALUE  I/O  TOKEN  VALUE  FROM  BATCH  INPUT  *) 

(*  TOKEN_LOCATION  I/O  LOCATION  OF  TOKEN  IN  INPUT  LINE  *) 

(*  TOKEN.LENGTH  I/O  LENGTH  OF  TOKEN  *) 

(*  SUBSCHEMA_FLAG  I/O  INDICATES  IF  ENTITIES  OR  CLASSES  ARE  *) 

(*  DEFINED  WITHIN  A  SUBSCHEMA  *) 

(*  SUB_ENT_HEAD  I/O  POINTS  TO  LIST  OF  SUBSCHEMA  ENTITIES  *) 

(*  SUB_ENT_LI$T  I/O  POINTS  TO  CURRENT  ENTITY  IN  LIST  OF  *) 

(*  SUBSCHEMA  ENTITIES  *) 

(*  CLASS.FLAG  I/O  INDICATES  IF  ENTITIES  OR  CLASSES  ARE  *) 

(*  DEFINED  WITHIN  A  CLASS  *) 

(*  CLS_ENT_HEAD  I/O  POINTS  TO  LIST  OF  CLASS  ENTITIES  *) 

(*  CLS_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  LIST  OF  *) 

(*  CLASS  ENTITIES  *) 

(*  RE PORT 1  I/O  OUTPUT  FILE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 
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(*  SEXECLTION  PROCEDURE:  *) 

{*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  INITIALIZE  VARIABLES  *) 

(*  GET  CLASS  NAME  AND  KIND  NUMBER  *) 

(*  VERIFY  UNIQUENESS  OF  CLASS  NAME  AND  KIND  NUMBER  *) 

(*  IF  THE  NEXT  TOKEN  IS  AN  IDENTIFIER  OR  AN  INTEGER,  THEN  WE  KNOW  *) 

(*  THAT  WE  WILL  BE  GETTING  A  LISi  OF  ENTITIES  AND  CLASSES  THAT  *) 

(*  ARE  TO  BE  MEMBERS  OF  THE  CLASS.  IF  THE  SUBSCHEMA  FLAG  OR  *) 

(*  CLASS  FLAG  IS  SET,  THEN  ADD  THE  CLASS  NAME  TO  THE  APPROPRIATE  *) 

(*  LIST (S) .  PUSH  THE  CLASS  NAME  AND  KIND  NUMBER  ONTO  THE  PRO-  *) 

(* 

(*  DETERMINE  IF  THE  ENTITY  OR  CLASS  EXISTS  *) 

(*  IF  WE  HAVE  AN  ENTITY  OR  CLASS  KEY  THEN  WE  VERIFY  THAT  THE  *) 

(*  ENTITY  OR  CLASS  IS  NOT  ALREADY  A  MEMBER  OF  THE  CLASS.  IF  *) 

(*  IT  IS  NOT  A  MEMBER,  WE  ATTACH  THE  KEY  TO  THE  LIST  AND  PUSH  *) 

(*  A  TRANSACTION  ONTO  THE  STACK.  *) 

(*  IF  THE  ENTITY  OR  CLASS  CONSTITUENT  DOES  NOT  ALREADY  EXIST,  *) 

(*  CREATE  AN  UNRESOLVED  ENTITY  AND  MAKE  IT  A  CONSTITUENT  OF  *) 

(*  THE  CLASS.  IF  THE  ENTITY  OR  CLASS  CONSTITUENT  IS  LATER  *) 

(*  CREATED,  THEll  IT  WILL  REPLACE  THE  UNRESOLVED  ENTITY  IN  THE  *) 

(*  CLASS  CONSTITUENT  LIST.  *) 

(*  IF  WE  HAVE  READ  IN  ALL  OF  THE  ENTITY  AND  CLASS  NAMES,  WE  PUSH  *) 
(*  THE  FINAL  CLASS  TRANSACTION  ONTO  THE  STACK  AND  PROCESS  THE  *) 

(*  TRANSACTION  STACK.  *) 

(*  IF  WE  HAVE  ENCOUNTERED  AN  ENTITY  OR  CLASS  DEFINITION,  THEN  WE  *) 

(*  SET  A  FLAG  TO  INDICATE  THAT  AFTER  MODELING  THESE  ENTITIES  *) 

(*  AND  CLASSES,  WE  MUST  THEN  MODEL  THE  CLASS.  *) 

(*  ADD  THE  CLASS  TO  THE  SUBSCHEMA  AND  CLASS  LIST,  AS  NECESSARY  *) 

(*  WRITE  APPROPRIATE  ERROR  MESSAGES  *) 

(*  *) 

(*  $COMMENTS:  *) 

(*  *) 

(*  $CHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* -  *) 

(*  *) 

(*END - - *) 

(*  END  %INCLUDE  DEFCLS  *) 
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(*  %INCLUDE  DEFDEF  *) 

(**) 

PROCEDURE  DEFDEF (VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 

SUBPROGRAM; 

(**) 

(* . 

(* 

(*  JFUNCTION: 

(*  Batch  Interface  routine  that  processes  a  defined  type 

(*  reference. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

(* 

TOKEN 

I/O 

TOKEN  FROM  BATCH  INPUT 

(* 

TOKEN  VALUE 

I/O 

TOKEN  VALUE  FROM  BATCH  INPUT 

(* 

TOKEN  LOCATION 

I 

LOCATION  OF  TOKEN  IN  INPUT  LINE 

(* 

TOKEN  LENGTH 

I 

LENGTH  OF  TOKEN 

(* 

(* 

(* 

(* 

(* 

RE PORT 1 

I/O 

OUTPUT  FILE 

SCOMMONS: 

SENVIRONMENT : 

(* 

LANGUAGE:  IBM 

PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  INITIALIZE  THE  VARIABLES 

(*  DETERMINE  IF  THE  DEFINED  TYPE  EXISTS 

(*  IF  DEFINED  TYPE  EXISTS  THEN  PUT  DEFINED  TYPE  TRANSACTION  ONTO 

I*  tuc  TRAKKArTTHN 

(*  BUILD  POINTER  REFERENCING  EXISTING  ENTITY  OR  CLASS  OR  BUILD 
(*  UNRESOLVED  ENTITY. 

(*  WRITE  APPROPRIATE  ERROR  MESSAGES 

(* 


IRC 

TRANS_STACK 

TOKEN 

TOKEN_VALUE 

TOKEN.LOCATION 

TOKEN.LENGTH 

REPORT1 


RET.REC; 

TRANSPTR; 

T_TOKEN; 

T_TOKEN_VALUE; 

INTEGER; 

INTEGER; 

TEXT); 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* .  . --*) 

(*  *) 

(*END . - . - . *) 


(*  END  %INCLUDE  DEFDEF  *) 
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(*  %INCLUDE  DEFENM  *) 

(**) 

PROCEDURE  DEFENM(VAR  IRC 

VAR  ENTJCIND 
VAR  TRANS.STACK 
VAR  TOKEN 
VAR  TOKEN.VALUE 
VAR  TOKEN.LOCATION 
VAR  TOKEN_LENGTH 
VAR  RE PORT 1 

SUBPROGRAM; 


RET.REC; 

INTEGER; 

TRANSPTR; 

T_TOKEN; 

T_TOKEN_VALUE; 

INTEGER; 

INTEGER; 

TEXT); 


(**) 

(* 

(* 

(*  {FUNCTION: 

(*  Batch  Interface  routine  that  processes  an  enumeration 

(*  definition. 

(* 

(*  {DESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

==== 

=  =  = 

(* 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

ENT  KIND 

I 

THE  KIND  OF  ENTITY  BEING  CONSTRUCTED 

(* 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

(* 

TOKEN 

I/O 

TOKEN  FROM  BATCH  INPUT 

(* 

TOKEN  VALUE 

I/O 

TOKEN  VALUE  FROM  BATCH  INPUT 

(* 

TOKEN  LOCATION 

I/O 

LOCATION  OF  TOKEN  IN  INPUT  LINE 

(* 

TOKEN  LENGTH 

I/O 

LENGTH  OF  TOKEN 

(* 

(* 

(* 

(* 

(* 

REPORT 1 

{COMMONS : 

{ENVIRONMENT: 

I/O 

OUTPUT  FILE 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  {EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  {PROCESSING  DESCRIPTION: 

(* 

(*  INITIALIZE  VARIABLES 

(*  PUSH  ENUMERATION  TRANSACTION  ONTO  THE  STACK 

(*  GET  EACH  ENUMERATION  ITEM 

(*  VERIFY  THE  UNIQUENESS  OF  EACH  ENUMERATION  ITEM  NAME  AMONG  THE 
(*  ENTITIES  CURRENTLY  MODELED  AND  THOSE  ON  THE  STACK 
(*  IF  THE  ENUMERATION  ITEM  NAME  IS  UNIQUE  THEN  PUSH  A  TRANSACTION 
(*  ONTO  THE  STACK 
(*  WRITE  APPROPRIATE  ERROR  MESSAGES 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . - . - . - .  *) 

(*  *) 

(*END . - . . . *) 


(*  END  %INCLUDE  DEFENM  *) 
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(*  %INCLUDE  DEFENT  *) 

(**) 

PROCEDURE  DEFENT (VAR  IRC  :  RET.REC; 

VAR  TRANS_STACK  :  TRANSPTR; 

VAR  TOKEN  :  T_TOKEN ; 

VAR  TOKEN.VALUE  :  T_TOKEN_VALUE; 
VAR  TOKEN_LOCATION  :  INTEGER; 

VAR  TOKEN_LENGTH  :  INTEGER; 

VAR  SUBSCHEMA.FLAG  :  BOOLEAN; 

VAR  SUB_ENT_HEAD  :  ENTITY_LIST_PTR; 
VAR  SUB_ENT_LIST  ;  ENT I TY_L I ST_PTR ; 
VAR  CLASS.FLAG  :  BOOLEAN; 

VAR  CLS_ENT_HEAD  :  ENTITY  LIST_PTR; 
VAR  CLS_ENT_LIST  :  ENTITY_LIST_PTR; 
VAR  REPORT1  :  TEXT); 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION:  *) 

Batch  Interface  routine  that  processes  an  entity  definition*) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

=  =  =  =  =  =  ss  bsssss  =  :ss=  *  J 

IRC  0  INTERNAL  RETURN  CODE  *) 

TRANS_STACK  I/O  TRANSACTION  STACK  *) 

TOKEN  I/O  TOKEN  FROM  BATCH  INPUT  *) 

'  TOKEN.VALUE  I/O  TOKEN  VALUE  FROM  BATCH  INPUT  *) 

TOKEN_LOCATION  I/O  LOCATION  OF  TOKEN  IN  INPUT  LINE  *) 

TOKEN.LENGTH  I/O  LENGTH  OF  TOKEN  *) 

SUBSCHEMA  FLAG  I/O  INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN  *) 

THE  SUBSCHEMA  *) 

SUB_ENT_HEAD  I/O  POINTS  TO  LIST  OF  SUBSCHEMA  ENTITIES  *) 

SUB_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  LIST  OF  *) 

SUBSCHEMA  ENTITIES  *) 

CLASS.FLAG  I/O  INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN  *) 

THE  CLASS  *) 

CLS_ENT_HEAD  I/O  POINTS  TO  LIST  OF  CLASS  ENTITIES  *) 

CLS_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  LIST  OF  *) 

CLASS  ENTITIES  *) 

REPORT1  I/O  OUTPUT  FILE  *) 

*) 

SCOMMONS:  *) 

*) 

$ ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 
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(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

(*  *) 

(*  SPR0CESSIN6  DESCRIPTION:  *) 

(*  *) 

(*  INITIALIZE  VARIABLES  *) 

(*  GET  THE  ENTITY  NAME  AND  KIND  NUMBER  *) 

(*  VERIFY  THE  UNIQUENESS  OF  THE  ENTITY  NAME  AND  KIND  NUMBER  AMONG  *) 

(*  MODELED  ENTITIES  AND  THOSE  ON  THE  STACK  *) 

(*  IF  THE  ENTITY  NAME  AND  KIND  NUMBER  ARE  UNIQUE  THEN  CHECK  IF  THE  *) 
(*  SUBSCHEMA  FLAG  OR  CLASS  FLAG  ARE  SET.  IF  SO,  ADD  THE  ENTITY  *) 

(*  NAME  TO  THE  APPROPRIATE  LIST(S).  PUSH  ENTITY  TRANSACTION  ON-  *) 

(*  TO  THE  STACK.  *) 

(*  DEFINE  EACH  ATTRIBUTE  OF  THE  ENTITY  *) 

(*  WHEN  THE  END  OF  THE  ENTITY  IS  ENCOUNTERED,  THEN  PUSH  FINAL  *) 

(*  ENTITY  TRANSACTION  ONTO  THE  TRANSACTION  STACK  AND  PROCESS  *) 

(*  THE  STACK.  *) 

(*  WRITE  ERROR  MESSAGES  AS  APPROPRIATE  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . -*) 

(*  *) 

(*END- . . . *) 

(*  END  %INCLUDE  DEFENT  *) 
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(*  %INCLUDE  DEFGBL  *) 

(**) 

PROCEDURE  DEFGBL (VAR  IRC  :  RET.REC; 

VAR  TRANS_STACK  :  TRANSPTR; 

VAR  TOKEN  :  T_TOKEN; 

VAR  TOKEN_VALUE  :  T_TOKEN_VALUE; 
VAR  TOKEN_LOCATION  :  INTEGER; 

VAR  TOKEN_LENGTH  :  INTEGER; 

VAR  SUBSCHEMA  FLAG  :  BOOLEAN; 

VAR  SUB_ENT_HEAD  :  ENTITY_LIST_PTR; 
VAR  SUB_ENT_LIST  :  ENTITY_LIST_PTR; 
VAR  CLASS.FLAG  :  BOOLEAN; 

VAR  CLS_ENT_HEAD  :  ENT I T Y_L I ST_PTR ; 
VAR  CLS_ENT_LIST  :  ENTITY_LIST_PTR; 
VAR  RE PORT 1  :  TEXT); 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{FUNCTION:  *) 

Batch  Interface  routine  that  processes  a  global  attribute  *) 
definition.  *) 

*) 

{DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

IRC  0  INTERNAL  RETURN  CODE  *) 

TRANS_STACK  I/O  TRANSACTION  STACK  *) 

TOKEN  I/O  TOKEN  FROM  BATCH  INPUT  *) 

TOKEN.VALUE  I/O  TOKEN  VALUE  FROM  BATCH  INPUT  *) 

TOKEN_LOCATION  I/O  LOCATION  OF  TOKEN  IN  INPUT  LINE  *) 

TOKEN_LENGTH  I/O  LENGTH  OF  TOKEN  *) 

SUBSCHEMA_FLAG  I/O  INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN  *) 

THE  SUBSCHEMA  *) 

SUB_ENT_HEAD  I/O  POINTS  TO  LIST  OF  SUBSCHEMA  ENTITIES  *) 

SUB_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  LIST  OF  *) 

SUBSCHEMA  ENTITIES  *) 

CLASS_FLAG  I/O  INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN  *) 

THE  CLASS  *) 

CLS_ENT_HEAD  I/O  POINTS  TO  LIST  OF  CLASS  ENTITIES  *) 

CLS_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  LIST  OF  *) 

CLASS  ENTITIES  *) 

REPORT1  I/O  OUTPUT  FILE  *) 

*) 

{COMMONS:  *) 

*) 

{ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 
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(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  PERFORM  INITIALIZATIONS 

(*  GET  GLOBAL  ATTRIBUTE  NAME 

(*  PUSH  INITIAL  GLOBAL  ATTRIBUTE  TRANSACTION  ONTO  THE  STACK 

(*  DEFINE  THE  GLOBAL  ATTRIBUTE 

(*  IF  GLOBAL  ATTRIBUTE  ACCEPTED,  THEN  PUSH  FINAL  GLOBAL  ATTRIBUTE 
(*  TRANSACTION  ONTO  THE  STACK  AND  PROCESS.  IF  THE  GLOBAL  ATTRI- 
(*  BUTE  NOT  ACCEPTED  THEN  RECOVER. 

(*  WRITE  APPROPRIATE  ERROR  MESSAGES 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  ORIGINATED:  05/15/87  C.  H.  MOHME  DBMA 

(* 

(* 

(* 

(*END  . - . 

(*  END  %INCLUDE  DEFGBL  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  DEFPRE  *) 
(**) 

PROCEDURE  DEFPRE (VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 

SUBPROGRAM; 


ENTJCIND 

TRANS_STACK 

TOKEN 

TOKEN_VALUE 

TOKEN_LOCATION 

TOKEN_LENGTH 

DATA 

PRECISION 
REPORT 1 


RET.REC; 

INTEGER; 

TRANSPTR; 

T_TOKEN; 

T_TOKEN_VALUE; 

INTEGER; 

INTEGER; 

TRANSACTION; 

INTEGER; 

TEXT); 


(**) 

(*-  — 

(* 

(*  SFUNCTION: 

(*  Batch  Interface  routine  that  processes  an  integer  precision, 

(*  real  precision,  or  string  length. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

ENT  KIND 

I 

THE  KIND  OF  ENTITY  BEING  CONSTRUCTED 

(* 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

(* 

TOKEN 

I/O 

TOKEN  FROM  BATCH  INPUT 

(* 

TOKEN  VALUE 

I/O 

TOKEN  VALUE  FROM  BATCH  INPUT 

(* 

T0KENJ.0CATI0NI/0 

LOCATION  OF  TOKEN  IN  INPUT  LINE 

(* 

TOKEN  LENGTH 

I/O 

LENGTH  OF  TOKEN 

(* 

DATA 

I/O 

CONTAINS  TRANSACTION  INFORMATION 

(* 

PRECISION 

0 

INTEGER  PRECISION,  REAL  PRECISION,  OR 

(* 

STRING  LENGTH 

(* 

(* 

(* 

(* 

(* 

REPORT1 

I/O 

OUTPUT  FILE 

SCOMMONS: 

SENVIRONMENT: 

(* 

LANGUAGE:  IBM 

PASCAL 

{*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  INITIALIZE  VARIABLES 

(*  GET  THE  PRECISION,  IF  PRESENT 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  IF  THE  PRECISION  IS  SPECIFIED,  THEN  VERIFY  THAT  IT  IS  IN  THE  *) 


(*  PROPER  RANGE.  *) 

(*  IF  THE  PRECISION  IS  NOT  SPECIFIED,  THEN  ASSIGN  THE  DEFAULT  *) 
(*  PRECISION.  *) 

(*  WRITE  APPROPRIATE  ERROR  MESSAGES  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* .  .  .  . *) 

(*  *) 

(*END . . . - . . *) 

(*  END  %INCLUDE  DEFPRE  *) 
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(*  %INCLUDE  DEFPTR  *) 

(**) 

PROCEDURE  DEFPTR(VAR  IRC  :  RET.REC; 

VAR  ENT_KIND  :  INTEGER; 

VAR  TRANS.STACK  :  TRANSPTR; 

VAR  TOKEN  :  T_TOKEN; 

VAR  TOKEN.VALUE  :  T_TOKEN_VALUE; 
VAR  TOKEN.LOCATION  :  INTEGER; 

VAR  TOKEN_LENGTH  :  INTEGER; 

VAR  RE PORT 1  :  TEXT); 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

*) 

5FUNCTION:  *) 

Batch  Interface  routine  that  processes  a  pointer  definition*) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

IRC  0  INTERNAL  RETURN  CODE  *) 

ENT  KIND  I  THE  KIND  OF  ENTITY  BEING  CONSTRUCTED  *) 

TRANS_STACK  I/O  TRANSACTION  STACK  *) 

TOKEN  I/O  TOKEN  FROM  BATCH  INPUT  *) 

TOKEN_VALUE  I/O  TOKEN  VALUE  FROM  BATCH  INPUT  *) 

TOKEN_LOCATION  I/O  TOKEN  VALUE  FROM  BATCH  INPUT  *) 

TOKEN_LENGTH  I/O  TOKEN  VALUE  FROM  BATCH  INPUT  *) 

RE PORT 1  I/O  OUTPUT  FILE  *) 

*) 

SCOMMONS:  *) 

*) 

$ ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

*) 

INITIALIZE  VARIABLES  *) 

PUSH  INITIAL  POINTER  TRANSACTION  ONTO  THE  TRANSACTION  STACK  *) 

GET  EACH  POINTER  CONSTITUENT  NAME  OR  KIND  NUMBER.  *) 

DETERMINE  IF  V'Z  ENTITY  OR  CLASS  EXISTS  *) 

VERIFY  THAT  THE  ENTITY  OR  CLASS  IS  NOT  ALREADY  A  CONSTITUENT.  *) 
IF  IT  IS  NOT,  THEN  PUSH  ENTITY  KEY  TRANSACTION  ONTO  THE  *) 
TRANSACTION  STACK.  *) 

IF  THE  POINTER  REFERENCES  AN  ENTITY  THAT  IS  NOT  DEFINED,  THEN  *) 
CREATE  AN  UNRESOLVED  ENTITY.  IF  THE  UNDEFINED  ENTITY  IS  *) 

LATER  DEFINED,  IT  WILL  REPLACE  THE  UNRESOLVED  ENTITY  IN  THE  *) 
POINTER'S  CONSTITUENT  LIST.  *) 
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(*  PUSH  THE  FINAL  POINTER  TRANSACTION  ONTO  THE  TRANSACTION  STACK  *) 
(*  WRITE  APPROPRIATE  ERROR  MESSAGES  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*-- .  .  *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  DEFPTR  *) 
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(*  %INCLUDE  DEFQUERY  *) 
(**) 

PROCEDURE  DEFQUERY (VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


IRC 

IDENTIFIER 
KIND 
ENTJGND 
DEFINITION  KEY 


RET.REC; 
T_NAME ; 
INTEGER; 
INTEGER; 
ENTKEY) ; 


(**) 

(* 

(* 

(*  SFUNCTION: 

(*  Batch  Interface  routine  that  determines  if  a  neHy  modeled 

(*  entity  satisfies  any  unresolved  entity  references  on  the 

(*  backpatch  list. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(* 

(*  IRC 

(*  IDENTIFIER 

(*  KIND 

(*  ENTJCIND 

(* 

(*  DEFINITION_KEY 

(* 

(* 

(*  $COMMONS: 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  INITIALIZE  VARIABLES 

(*  DETERMINE  IF  ANY  BACKPATCH  ENTITIES  EXIST  IN  THE  MODEL 

(*  IF  BACKPATCH  ENTITIES  EXIST,  DETERMINE  IF  ONE  MATCHES  THE  NAME 

(*  OR  KIND  OF  THE  NEWLY  CREATED  ENTITY. 

(*  IF  A  MATCH  HAS  BEEN  FOUND,  THEN  WE  CAN  RESOLVE  EACH  REFERENCE 
(*  OF  THE  BACKPATCH  ENTITY. 

(*  IF  THE  NEWLY  CREATED  ENTITY  IS  A  DEFINED  TYPE,  THEN  WE  REPLACE 
(*  THE  CONSTITUENT  OF  THE  REFERENCE  KEY  WITH  THE  KEY  OF  THE 

(*  NEWLY  DEFINED  ENTITY. 

(*  IF  THE  REFERENCE  KEY  IS  A  CONSTITUENT  OF  A  CLASS,  THEN  WE  PUT 
(*  THE  KEY  OF  THE  NEWLY  DEFINED  ENTITY  IN  THE  CLASS'  CONSTITU- 

(*  ENT  LIST  IN  PLACE  OF  THE  REFERENCE  KEY. 


0  INTERNAL  RETURN  CODE 
I  NAME  OF  ENTITY,  CLASS,  OR  DEFINED  TYPE 
I  KIND  NUMBER  OF  ENTITY  OR  CLASS 
I  THE  KIND  OF  ENTITY  (DEFINED  TYPE,  ENTITY 
OR  CLASS) 

I  KEY  OF  "ENTITY"  WITH  UNRESOLVED 
REFERENCE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


IF  THE  REFERENCE  KEY  IS  A  CONSTITUENT  OF  A  SUBSCHEMA,  THEN  WE  *) 
PUT  THE  KEY  OF  THE  NEWLY  DEFINED  ENTITY  IN  THE  SUBSCHEMA'S  *) 

CONSTITUENT  LIST  IN  PLACE  OF  THE  REFERENCE  KEY.  *) 

IF  THE  REFERENCE  KEY  IS  A  CONSTITUENT  OF  A  POINTER,  THEN  WE  *) 
PUT  THE  KEY  OF  THE  NEWLY  DEFINED  ENTITY  IN  THE  POINTER'S  *) 

CONSTITUENT  LIST  IN  PLACE  OF  THE  REFERENCE  KEY.  *) 

IF  THE  NEWLY  DEFINED  ENTITY  IS  NOT  A  DEFINED  TYPE  AND  IF  THE  *) 

REFERENCE  KEY  IS  NOT  A  CONSTITUENT  OF  A  SUBSCHEMA,  CLASS  OR  *) 
POINTER  THEN  WE  BUILD  A  POINTER  (WHICH  REFERENCES  THE  *) 

NEWLY  DEFINED  ENTITY)  AND  MAKE  IT  A  CONSTITUENT  OF  THE  *) 

REFERENCE  KEY.  *) 

DELETE  THE  BACKPATCH  ENTITY  AND  READ  THE  NEXT  ONE  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  04/22/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* .  . *) 

(*  *) 

(*END . - . --*) 


(*  END  %INCLUDE  DEFQUERY  *) 
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(*  %I NCLUDE  DEFSTC  *) 

(**) 

PROCEDURE  DEFSTC(VAR  IRC  :  RET_REC; 

VAR  TRANS_STACK  :  TRANSPTR; 

VAR  TOKEN  :  T.TOKEN; 

VAR  TOKEN_VALUE  :  T_TOKEN_VALUE; 
VAR  TOKEN.LOCATION  :  INTEGER; 

VAR  TOKEN_LENGTH  :  INTEGER; 

VAR  SUBSCHEMA_FLAG  :  BOOLEAN; 

VAR  SUB  ENT.HEAD  :  ENTITY_LIST_PTR; 
VAR  SUB_ENT_LIST  :  ENTITY_LIST_PTR; 
VAR  CLASS_FLAG  :  BOOLEAN; 

VAR  CLS_ENT_HEAD  :  ENT ITY_L I ST_PTR ; 
VAR  CLS_ENT_LIST  :  ENTITY_LIST_PTR; 
VAR  REPORT1  :  TEXT); 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

Batch  Interface  routine  that  processes  a  structure 
definition. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


IRC  0  INTERNAL  RETURN  CODE 

TRANS_STACK  I/O  TRANSACTION  STACK 

TOKEN  I/O  TOKEN  FROM  BATCH  INPUT 

TOKEN_VALUE  I/O  TOKEN  VALUE  FROM  BATCH  INPUT 

TOKEN.LOCATION  I/O  LOCATION  OF  TOKEN  IN  INPUT  LINE 
TOKEN_LENGTH  I/O  LENGTH  OF  TOKEN 

SUBSCHEMA_FLAG  I/O  INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN 

THE  SUBSCHEMA 

SUB_ENT_HEAD  I/O  POINTS  TO  LIST  OF  SUBSCHEMA  ENTITIES 

SUB_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  LIST  OF 

SUBSCHEMA  ENTITIES 

CLASS.FLAG  I/O  INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN 

THE  CLASS 

CLS_ENT_HEAD  I/O  POINTS  TO  LIST  OF  CLASS  ENTITIES 

CLS_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  LIST  OF 

CLASS  ENTITIES 


I/O  OUTPUT  FILE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMONS : 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 

(*  SPROCESSING  DESCRIPTION: 

(* 

(*  PERFORM  INITIALIZATIONS 

(*  PUSH  INITIAL  STRUCTURE  TRANSACTION  ONTO  THE  STACK 
(*  DEFINE  STRUCTURE  ATTRIBUTES 

(*  RECOVER  FROM  ERROR,  AS  NECESSARY 

(*  PUSH  FINAL  STRUCTURE  TRANSACTION  ONTO  THE  STACK  AND  GET  NEXT 
(*  TOKEN 

(*  WRITE  APPROPRIATE  ERROR  MESSAGES 
(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  ORIGINATED:  05/18/87  C.  H.  MOHME  DBMA 

(* 

(* 

(* 

(♦END . - . 

(*  END  %INCLUDE  DEFSTC  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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(*  %INCLUDE  DEFSUB  *) 

(**) 

PROCEDURE  DEFSUB(VAR  IRC 

VAR  TRANS.STACK 
VAR  TOKEN 
VAR  TOKEN_VALUE 
VAR  TOKEN_LOCATION 
VAR  TOKEN.LENGTH 
VAR  SUBSCHEMA_FLAG 
VAR  SUB_ENT_HEAD 
VAR  SUB_ENT_LIST 
VAR  CLASS.FLAG 
VAR  CLS_ENT_HEAD 
VAR  CLS_F.NT_LIST 
VAR  REPORT 1 

SUBPROGRAM; 


RET_REC; 

TRANSPTR; 

T_TOKEN; 

T_TOKEN_VALUE; 

INTEGER; 

INTEGER; 

BOOLEAN; 

ENTITY_LIST_PTR; 
ENT ITY_L I ST_PTR ; 
BOOLEAN; 

ENT I TY_L I ST_PTR ; 
ENTITY_LIST_PTR; 
TEXT); 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


.  *) 

*) 

SFUNCTION:  *) 

Batch  Interface  routine  that  processes  a  subschema  definition.*) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 


NAME 

I/O 

DESCRIPTION 

*) 

*) 

*) 

IRC 

0 

INTERNAL  RETURN  CODE 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

*) 

TOKEN 

I/O 

TOKEN  FROM  BATCH  INPUT 

*) 

TOKEN  VALUE 

I/O 

TOKEN  VALUE  FROM  BATCH  INPUT 

*) 

TOKEN  LOCATION 

I/O 

LOCATION  OF  TOKEN  IN  INPUT  LINE 

*) 

TOKEN  LENGTH 

I/O 

LENGTH  OF  TOKEN 

*) 

SUBSCHEMA.FLAG 

I/O 

INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN 

*) 

THE  SUBSCHEMA 

*) 

SUB  ENT  HEAD 

I/O 

POINTS  TO  THE  LIST  OF  SUBSCHEMA  ENTITIES 

*) 

SUB_ENT_LIST 

I/O 

POINTS  TO  THE  CURRENT  ENTITY  IN  THE  LIST 

*) 

OF  SUBSCHEMA  ENTITIES 

*) 

CLASS_FLAG 

I/O 

INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN 

*) 

THE  CLASS 

*) 

CLS  ENT  HEAD 

I/O 

POINTS  TO  THE  LIST  OF  CLASS  ENTITIES 

*) 

CLS_ENT_LIST 

I/O 

POINTS  TO  THE  CURRENT  ENTITY  IN  THE  LIST 

*) 

OF  CLASS  ENTITIES 

*) 

REPORT1 

I/O 

OUTPUT  FILE 

*) 

*) 

*) 

*) 

*) 

SCOMMONS : 

$ ENVIRONMENT: 

LANGUAGE:  IBM 

PASCAL 

*) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 
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(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  INITIALIZE  VARIABLES  *) 

(*  GET  SUBSCHEMA  NAME  AND  VERIFY  ITS  UNIQUENESS  *) 

(*  IF  SUBSCHEMA  NAME  IS  UNIQUE  THEN  GET  NEXT  MEANINGFUL  TOKEN  *) 

(*  IF  THE  TOKEN  IS  AN  IDENTIFIER  OR  AN  INTEGER,  THEN  WE  KNOW  THAT  *) 

(*  WE  WILL  BE  GETTING  A  LIST  OF  ENTITIES  AND  CLASSES  THAT  ARE  TO  *) 

(*  BE  MEMBERS  OF  THE  SUBSCHEMA.  PUSH  THE  SUBSCHEMA  NAME  ONTO  *) 

(*  THE  PROCESSING  STACK.  *) 

(*  DETERMINE  IF  THE  IDENTIFIER  IS  AN  ENTITY  OR  A  CLASS  *) 

(*  IF  WE  HAVE  AN  ENTITY  OR  CLASS  KEY,  THEN  WE  VERIFY  THAT  IT  IS  *) 

(*  NOT  ALREADY  A  MEMBER  OF  THE  SUBSCHEMA.  IF  IT  IS  NOT,  THEN  *) 

(*  WE  ATTACH  THE  ENTITY  KEY  TO  THE  LIST  AND  PUSH  A  TRANS-  *) 

(*  ACTION  ONTO  THE  TRANSACTION  STACK.  *) 

(*  IF  THE  SUBSCHEMA'S  CONSTITUENT  IS  NOT  YET  DEFINED,  CREATE  AN  *) 
(*  UNRESOLVED  ENTITY.  WHEN  THE  CONSTITUENT  IS  LATER  DEFINED,  *) 

(*  IF  WILL  REPLACE  THE  UNRESOLVED  ENTITY  IN  THE  CONSTITUENT  *) 

(*  LIST  OF  THE  SUBSCHEMA.  *) 

(*  IF  WE  HAVE  READ  IN  ALL  OF  THE  ENTITY  AND  CLASS  NAMES,  WE  PUSH  *) 
(*  THE  FINAL  SUBSCHEMA  TRANSACTION  ONTO  THE  STACK  AND  PROCESS  *) 

(*  THE  TRANSACTION  STACK.  *) 

(*  IF  WE  HAVE  ENCOUNTERED  AN  ENTITY  OR  CLASS  DEFINITION,  THEN  WE  *) 

(*  SET  A  FLAG  TO  INDICATE  THAT  AFTER  MODELING  THESE  ENTITIES  *) 

(*  AND  CLASSES,  WE  MUST  THEN  MODEL  THE  SUBSCHEMA.  *) 

(*  WRITE  APPROPRIATE  ERROR  MESSAGES.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

.  .  — *) 

(*  *) 

(*END . - . - . . . *) 

(*  END  %INCLUDE  DEFSUB  *) 
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(*  %I NCLUDE  DEFSUP  *) 

(**) 

PROCEDURE  DEFSUP (VAR  IRC 

VAR  TRANS_STACK 
VAR  TOKEN 
VAR  TOKEN.VALUE 
VAR  TOKEN_LOCATION 
VAR  TOKEN.LENGTH 
VAR  SUBSCHEMA_FLAG 
VAR  SUB_ENT_HEAD 
VAR  SUB_ENT_LIST 
VAR  CLASS.FLAG 
VAR  CLS_ENT_HEAD 
VAR  CLS_ENT_LIST 
VAR  REPORT1 

SUBPROGRAM; 


RET  REC; 

TRANS PTR; 
T.TOKEN; 
T_TOKEN_VALUE; 
INTEGER; 

INTEGER; 

BOOLEAN; 

ENT I T Y_L I ST_PTR ; 
ENTITY_LIST_PTR; 
BOOLEAN; 

ENTITY_LIST_PTR; 
ENT I TY_L I ST_PTR ; 
TEXT); 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

*) 

SFUNCTION:  *) 

Batch  Interface  routine  that  processes  a  supertype  definition.*) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

IRC  0  INTERNAL  RETURN  CODE  *) 

TRANS_STACK  I/O  TRANSACTION  STACK  *) 

TOKEN  I/O  TOKEN  FROM  BATCH  INPUT  *) 

TOKEN_VALUE  I/O  TOKEN  VALUE  FROM  BATCH  INPUT  *) 

TOKEN_LOCATION  I/O  LOCATION  OF  TOKEN  IN  INPUT  LINE  *) 

TOKEN_LENGTH  I/O  LENGTH  OF  TOKEN  *) 

SUBSCHEMA_FLAG  I/O  INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN  *) 

THE  SUBSCHEMA  *) 

SUB_ENT_HEAD  I/O  POINTS  TO  LIST  OF  SUBSCHEMA  ENTITIES  *) 

$UB_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  LIST  OF  *) 

SUBSCHEMA  ENTITIES  *) 

CLASS.FLAG  I/O  INDICATES  IF  ENTITIES  ARE  DEFINED  WITHIN  *) 

THE  CLASS  *) 

CLS_ENT_HEAD  I/O  POINTS  TO  LIST  OF  CLASS  ENTITIES  *) 

CLS_ENT_LIST  I/O  POINTS  TO  CURRENT  ENTITY  IN  LIST  OF  *) 

CLASS  ENTITIES  *) 

REPORT 1  I/O  OUTPUT  FILE  *) 

*) 

SCOMMONS:  *) 

*) 

$ ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUT ION  PROCEDURE:  *) 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

*) 
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(*  JPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  INITIALIZE  VARIABLES  *) 

(*  GET  THE  ENTITY  NAME  AND  KIND  NUMBER  *) 

(*  VERIFY  THE  UNIQUENESS  OF  THE  ENTITY  NAME  AND  KIND  NUMBER  AMONG  *) 

(*  MODELED  ENTITIES  AND  THOSE  ON  THE  STACK  *) 

(*  IF  THE  ENTITY  NAME  AND  KIND  NUMBER  ARE  UNIQUE  THEN  CHECK  IF  THE  *) 
(*  SUBSCHEMA  FLAG  OR  CLASS  FLAG  ARE  SET.  IF  SO,  ADD  THE  ENTITY  *) 

(*  NAME  TO  THE  APPROPRIATE  LIST(S) .  PUSH  ENTITY  TRANSACTION  ON-  *) 

(*  TO  THE  STACK.  *) 

(*  DEFINE  EACH  ATTRIBUTE  OF  THE  ENTITY  *) 

(*  WHEN  THE  END  OF  THE  ENTITY  IS  ENCOUNTERED,  THEN  PUSH  FINAL  *) 

(*  ENTITY  TRANSACTION  ONTO  THE  TRANSACTION  STACK  AND  PROCESS  *) 

(*  THE  STACK.  *) 

(*  WRITE  ERROR  MESSAGES  AS  APPROPRIATE  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  09/29/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* .  *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  DEFSUP  *) 
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(*  %INCLUDE  DEFTYP  *) 

(**) 

PROCEDURE  DEFTYP(VAR  IRC 

VAR  TRANS.STACK 
VAR  TOKEN 
VAR  TOKEN_VALUE 
VAR  TOKEN.LOCATION 
VAR  TOKEN_LENGTH 
VAR  SUBSCHEMA.FLAG 
VAR  SUB_ENT_HEAD 
VAR  SUB_ENT_LIST 
VAR  CLASS_FLAG 
VAR  CLS_ENT_HEAD 
VAR  CLS_ENT_LIST 
VAR  REPORT1 

SUBPROGRAM; 


RET.REC; 

TRANSPTR; 

T.TOKEN; 

T_TOKEN_VALUE; 

INTEGER; 

INTEGER; 

BOOLEAN; 

ENTITY_LIST_PTR; 
ENT ITY_L I ST_PTR ; 
BOOLEAN; 

ENTITY_LIST_PTR; 

ENTITY_LIST_PTR; 

TEXT); 


(**) 
* _ 


( 
(* 
(* 
(* 
(* 
(* 
(* 


(* 

(* 

(* 


SFUNCTION: 

Batch  Interface 
definition. 


routine  that  processes  a  defined  type 


SDESCRIPTION  OF  ARGUMENTS: 


SCOMMONS: 


*) 

*) 

*) 

*) 

*) 


(* 

NAME 

I/O 

DESCRIPTION 

*) 

(* 

===== 

=  =  = 

=========== 

*) 

(* 

IRC 

0 

INTERNAL  RETURN  CODE 

*) 

(* 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

*) 

(* 

TOKEN 

I/O 

TOKEN  FROM  BATCH  INPUT 

*) 

(* 

TOKEN  VALUE 

I/O 

TOKEN  VALUE  FROM  BATCH  INPUT 

*) 

(* 

TOKEN.LOCATION  I/O 

LOCATION  OF  TOKEN  IN  INPUT  LINE 

*) 

(* 

TOKEN  LENGTH 

I/O 

LENGTH  OF  TOKEN 

*) 

(* 

SUBSCHEMA_FLAG 

I/O 

INDICATES  IF  ENTITIES  ARE  DEFINED 

WITHIN 

*) 

(* 

THE  SUBSCHEMA 

*) 

(* 

SUB  ENT  HEAD 

I/O 

POINTS  TO  LIST  OF  SUBSCHEMA  ENTITIES 

*) 

(* 

SUB_ENT_LIST 

I/O 

POINTS  TO  CURRENT  ENTITY  IN  LIST 

OF 

*) 

(* 

SUBSCHEMA  ENTITIES 

*) 

(* 

CLASS_FLAG 

I/O 

INDICATES  IF  ENTITIES  ARE  DEFINED 

WITHIN 

*) 

(* 

THE  CLASS 

*) 

(* 

CLS  ENT  HEAD 

I/O 

POINTS  TO  LIST  OF  CLASS  ENTITIES 

*) 

(* 

CLS_ENT_LIST 

I/O 

POINTS  TO  CURRENT  ENTITY  IN  LIST 

OF 

*) 

(* 

CLASS  ENTITIES 

*) 

(* 

RE PORT 1 

I/O 

OUTPUT  FILE 

*) 

*) 

*) 

*) 
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(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  INITIALIZE  VARIABLES  *) 

(*  GET  THE  DEFINED  TYPE  NAME  AND  VERIFY  ITS  UNIQUENESS  AMONG  *) 

(*  ENTITIES  IN  THE  MODEL  AND  ON  THE  STACK  *) 

(*  IF  THE  DEFINED  TYPE  NAME  IS  UNIQUE,  THEN  PUSH  DEFINED  TYPE  *) 

(*  TRANSACTION  ONTO  THE  TRANSACTION  STACK.  *) 

(*  GET  THE  TYPE  DEFINITION.  THE  TYPE  MAY  BE  AN  ENUMERATION,  A  *) 

(*  BASIC  TYPE,  OR  A  DEFINED  TYPE.  *) 

(*  IF  THE  TYPE  DEFINITION  IS  ENUMERATION  THEN  *) 

(*  DEFINE  ENUMERATION  *) 

(*  ELSE  *) 

(*  IF  THE  TYPE  DEFINITION  IS  STRUCTURE  THEN  *) 

(*  DEFINE  STRUCTURE  *) 

(*  ELSE  *) 

(*  IF  THE  TYPE  DEFINITION  IS  A  BASICA  TYPE  THEN  *) 

(*  DEFINE  BASIC  TYPE  *) 

(*  ELSE  *) 

(*  IF  THE  TYPE  DEFINITION  IS  A  DEFINED  TYPE  THEN  *) 

(*  DEFINED  DEFINED  TYPE  *) 

(*  PROCESS  THE  TRANSACTION  STACK  *) 

(*  WRITE  APPROPRIATE  ERROR  MESSAGES  *) 

(*  GET  NEXT  DEFINED  TYPE  NAME  IF  PRESENT  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*'  — -  - -  - -  *) 

(*  *) 

(*END . . - . . . - . . . - - - *) 

(*  END  %INCLUDE  DEFTYP  *) 
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(*  %INCLUDE  DISPLIST  *) 

(**) 

PROCEDURE  DISPLIST (VAR  HESS  :  MESSAGE; 

VAR  MEMBERLIST  :  T  ARRAY23; 


VAR  NEXT_OP  ;  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  DISPLAYS  A  LIST  OF  ENTI1.ES.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  RECEIVED  FROM  MAINLINE  *) 

(*  MEMBERLIST  I  THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM  *) 

(*  MAX_ARRAYSIZE  I  THE  SIZE  OF  THE  ARRAY  OF  MEMBERS  *) 

(*  NAME  0  THE  MEMBER  SELECTED  *) 

(*  NEXT.OP  0  TELLS  THE  MAINLINE  WHAT  PANEL  TO  CALL  *) 

(*  NEXT  *) 

(*  RR  0  TELLS  THE  MAINLINE  IF  THERE  IS  AN  ERROR  *) 

(*  AND  IN  WHAT  ROUTINE  IT  OCCURS  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  DISPLAY  LIST  PANEL  (DISPLIST)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  THE  MEMBER  SELECTED  IS  RETURNED  TO  THE  CALLING  PRO-  *) 

(*  CEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  ENTCLS  *) 

(**) 

PROCEDURE  ENTCLS (VAR  IRC  :  RET_REC ; 

VAR  DATA_REC  :  BLKDATA) ; 

SUBPROGRAM; 

(**) 

(*  — -*) 
(*  *) 

(*  SFUNCTION:  *) 

(*  Batch  Interface  routine  that  determines  if  a  specified  *) 

(*  identifier  is  a  modeled  entity  or  class.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  DATA_REC  I/O  CONTAINS  ENTITY  DATA  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  INITIALIZE  VARIABLES  *) 

(*  DETERMINE  IF  THE  NAME  IS  AN  ENTITY.  IF  IT  IS,  GET  THE  KEY.  *) 

(*  IF  THE  NAME  IS  NOT  AN  ENTITY,  DETERMINE  IF  IT  IS  A  CLASS.  IF  *) 

(*  IT  IS,  GET  THE  KEY.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

.  .  .  .  *) 

(*  *) 

(*END- . - - - *) 

(*  END  %INCLUDE  ENTCLS  *) 
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(*  %INCLUDE  ERRMSG  *) 

(**) 

PROCEDURE  ERRMSG (VAR  ENTJCIND  :  INTEGER; 

VAR  REPORT 1  ;  TEXT); 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  Batch  Interface  routine  that  writes  appropriate  error  *) 

(*  messages  to  the  report  file.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENT  KIND  I  THE  KIND  OF  ENTITY  BEING  CREATED  *) 

(*  REPORT1  I/O  THE  BATCH  OUTPUT  FILE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  WRITE  APPROPRIATE  ERROR  MESSAGES  FOR  THE  SUBSCHEMA,  CLASS,  *) 
(*  ENTITY,  SUPERTYPE,  DEFINED  TYPE,  STRUCTURE,  AND  GLOBAL  *) 

(*  ATTRIBUTE  KINDS.  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  12/12/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  *) 

(*  *) 

(*END-- - *) 

(*  END  %INCLUDE  ERRMSG  *) 
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(*  %INCLUDE  ERRREC  *) 
(**) 

PROCEDURE  ERRREC(VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 
VAR 

SUBPROGRAM; 


ENTJCIND 

TRANS_STACK 

SUBSCHEMA_FLAG 

SUB_ENT_HEAD 

SUB_ENT_LIST 

CLASS.FLAG 

CLS_ENT_HEAD 

CLS  ENT  LIST 


RET_REC ; 

INTEGER; 

TRANSPTR; 

BOOLEAN; 

ENT I TY_L I ST_PTR ; 
ENT I TY_L I ST_PTR ; 
BOOLEAN; 

ENT I TY_L I ST_PTR ; 
ENTITY_LIST_PTR) ; 


(**) 


(* 

(*  SFUNCTION: 

(*  Batch  Interface  routine  that  performs  the  necessary  actions 

(*  to  recover  from  an  input  error. 

(* 

(*  $DESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

I/O 

INTERNAL  RETURN  CODE 

(* 

ENT  KIND 

I 

KIND  OF  ENTITY 

(* 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

(* 

SUBSCHEMA_FLAG 

I/O 

INDICATES  IF  ENTITIES 

ARE  DEFINED  WITHIN 

(* 

THE  SUBSCHEMA 

(* 

SUB  ENT  HEAD 

I/O 

POINTS  TO  THE  LIST  OF 

SUBSCHEMA  ENTITIES 

(* 

SUB_ENT_LIST 

I/O 

POINTS  IG  THE  CURRENT 

ENTITY  IN  THE  LIST 

(* 

OF  SUBSCHEMA  ENTITIES 

(* 

CLASS_FLAG 

I/O 

INDICATES  IF  ENTITIES 

ARE  DEFINED  WITHIN 

(* 

THE  CLASS 

(* 

CLS  ENT  HEAD 

I/O 

POINTS  TO  THE  LIST  OF 

CLASS  ENTITIES 

(* 

(* 

(* 

(* 

(* 

(* 

CLS_ENT_LIST 

I/O 

POINTS  TO  THE  CURRENT 
OF  SUBSCHEMA  ENTITIES 

ENTITY  IN  THE  LIST 

SCOMMONS: 

$ ENVIRONMENT: 

(* 

LANGUAGE:  IBM 

PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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SPROCESSING  DESCRIPTION: 

INITIALIZE  VARIABLES 
CLEAR  TRANSACTION  STACK 
CASE  TYPE  OF  RECOVERY  OF 

SUBSCHEMA  :  DISCARD  TOKENS  UNTIL  END.SCHEMA  ENCOUNTERED 
CLASS  :  DISCARD  TOKENS  UNTIL  END_CLASS  ENCOUNTERED 
IF  CLASS  IS  IN  ANOTHER  CLASS,  DISCARD  TOKENS 
UNTIL  END.CLASS  IS  ENCOUNTERED 
IF  CLASS  IS  IN  A  SUBSCHEMA,  DISCARD  TOKENS  UNTIL 
END.SCHEMA  ENCOUNTERED 

ENTITY  :  DISCARD  TOKENS  UNTIL  END_ENTITY  ENCOUNTERED 
IF  ENTITY  IS  IN  A  CLASS,  DISCARD  TOKENS  UNTIL 
END.CLASS  ENCOUNTERED 

IF  ENTITY  IS  IN  A  SUBSCHEMA,  DISCARD  TOKENS 
UNTIL  END_SCHEMA  ENCOUNTERED 

DEFINED 

TYPE  :  DISCARD  TOKENS  UNTIL  SEMICOLON  ENCOUNTERED 

IF  DEFINED  TYPE  IS  IN  SUBSCHEMA  DISCARD  TOKENS 
UNTIL  END.SCHEMA  ENCOUNTERED 
SET  FLAGS  TO  FALSE 

SCOMMENTS: 

SCHANGE  CONTROL: 

ORIGINATED:  03/20/87  C.  H.  MOHME  DBMA 


(*END 


END  %INCLUDE  ERRREC 


*) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  BEGIN  %INCLUDE  GETDD  ***********************************************) 

(*  *) 
PROCEDURE  GETDD  (  CONST  KIND  :  INTEGER; 

CONST  MAXJWAIL  :  INTEGER; 

CONST  ATTRIBUTE.ORDER  :  CHAR; 

VAR  USER_ARRAY  :  T_USER_ARRAY ; 

VAR  MAX  ACTUAL  :  INTEGER; 

VAR  RETURN  CODE  :  INTEGER  ); 


CONST 

VAR 

VAR 

VAR 

EXTERNAL; 


INTEGER; 

INTEGER; 

CHAR; 

T_USER_ARRAY ; 
INTEGER; 
INTEGER  ); 


SFUNCTION: 

READ  THE  DATA  DICTIONARY  INTO  THE  APPLICATION  PROGRAM. 


SDESCRIPTION  OF  ARGUMENTS: 


KIND 

MAX  ACTUAL 


MAX  AVAIL 


USER_ARRAY 
RETURN  CODE 


DESCRIPTION 

A  KIND  NUMBER  OF  ENTITY 
AN  ACTUAL  NUMBER  OF  RECORDS  IN 
ENTITY  DEFINITION 
A  NUMBER  OF  80  CHARACTER  RECORDS 
AVAILABLE  IN  CALLER  TO  HOLE 
ENTITY  DEFINITION 
AN  ENTITY  DEFINITION 
RETURN  CODE 

-1  =  ACTUAL  SIZE  GREATER  THAN 
SPACE  AVAILABLE 
0  =  SUCCESS 

1  =  KIND  NOT  IN  DATA  DICTIONARY 


SCOMMONS: 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

SPROCESSING  DESCRIPTION: 

LOOP  THROUGH  DATA  DICTIONARY  INDEX  FILE 
IF  KIND  IN  DATA  DICTIONARY  THEN 
GET  ENTITY  DEFINITION  FROM  DDFILE 
FILL  UP  THE  ARRAY  OF  ENTITY  DEFINITIONS  UP  TO  NUMBER 
OF  RECORDS  AVAILABLE  IN  CALLER 
END  IF 
END  LOOP 

SCOMMENTS: 


SCHANGE  CONTROL: 
ORIGINATED: 

END  “/.INCLUDE  GETDD 


23  MARCH  1987,  M.  H.  CHOI,  DBMA 


************************************************ i 
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(*  BEGIN  %INCLUDE  LEXICAL  *********************************************) 

(*  *) 
PROCEDURE  LEXICAL  (  VAR  TOKEN  :  T.TOKEN; 

VAR  TOKENJfALUE  :  T_TOKEN_VALUE ; 

VAR  TOKEN_LOCATION  :  INTEGER; 

VAR  TOKEN.LENGTH  :  INTEGER; 

VAR  REPORT1  ;  TEXT); 

SUBPROGRAM; 


(*  *) 

(*  {FUNCTION:  *) 

(*  LOCATE  THE  LONGEST  POSSIBLE  LEXEME  FROM  WHICH  A  TOKEN  MAY  *) 

(*  BE  DETERMINED.  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  TOKEN  I/O  INPUT  =  TOKEN  TYPE  FROM  PREVIOUS  CALL  *) 

(*  OR  INITIALIZATION  FLAG  *) 

(*  OUTPUT  =  CURRENT  TOKEN  TYPE  *) 

(*  TOKEN_VALUE  0  CURRENT  TOKEN  VALUE  *) 

(*  TOKEN_LOCATION  0  START  LOCATION  OF  TOKEN  IN  REPORT  LINE  *) 

(*  TOKEN_LENGTH  0  LENGTH  OF  TOKEN  IN  REPORT  LINE  *) 

(*  RE PORT 1  I/O  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  {ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  SEGMENT  SUBPROGRAM  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  SOURCE  :  THE  INPUT  STREAM  OF  CHARACTERS  *) 

(*  REP0RT1  :  FORMATTED  REPORT  OF  THE  INPUT  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  ?  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  ?  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  18  MAR  87,  G.  A.  WHITE  *) 

(*  *) 

(*  REVISED:  7  DEC  87,  G.  A.  WHITE,  ADD  PARAMETERS  FOR  *) 

(*  LOCATION  AND  LENGTH  OF  TOKEN  IN  REPORT  LINE.  *) 

(*  *) 


(*  END  %INCLUDE  LEXICAL  ***********************************************} 
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(*  %INCLUDE  LMEM23  *) 

(**) 

PROCEDURE  LMEM23(VAR  MESS  :  MESSAGE; 

VAR  MEMBERS  :  T_ARRAY23; 

VAR  SIZE  :  INTEGER; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  FUNCTION: 

(*  DISPLAYS  THE  LIST  MEMBERS  (LMEM23)  PANEL 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

MEMBERS 

I 

THE  ARRAY  OF  MEMBERS  TO  DISPLAY 

(* 

SIZE 

I 

THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 

(* 

NEXT  OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

(* 

OPERATION 

(* 

(* 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

SCOMMONS: 

(* 

(* 

(* 

NONE 

$ ENVIRONMENT: 

(* 

LANGUAGE: 

IBM  PASCAL 

(* 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

(* 

DDNAMES  USED  WITH 

STANDARD  FILES: 

(* 

(* 

(* 

NONE 

SEXECUTION  PROCEDURE: 

(* 

SCHEMA  EXECUTIVE 

MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  LIST  MEMBERS  PANEL  (LMEM23)  BY  MAKING  ISPLNK 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 

(*  TYPE. 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 
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(*  %INCLUDE  MCREATE  *) 

(**) 

PROCEDURE  MCREATE (VAR  MESS 

VAR  NEXT.OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 

OPERATIONS; 

RET_REC); 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


.  . *) 

*) 

JFUNCTION:  *) 

THIS  PROCEDURE:  *) 

DISPLAYS  THE  CREATE  MENU  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

OPERATION  *) 

RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

*) 

SCOMMONS:  *) 

NONE  *) 

*) 

$ ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

DDNAMES  USED  WITH  STANDARD  FILES:  *) 

NONE  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

DISPLAY  THE  CREATE  PANEL  (MCREATE)  BY  MAKING  ISPLNK  CALLS.  *) 
THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  TYPE.  *) 

*) 

SCOMMENTS:  *) 

NONE  *) 

*) 

SCHANGE  CONTROL:  *) 

*) 

REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

*) 

REVISED:  09/28/87  C.  H.  MOHME  DBMA  *) 

INCORPORATED  THE  SUPERTYPE  DATA  TYPE.  *) 

*) 
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(*  ORIGINATED:  08/13/87  C.  H.  MOHME 

(* 

(* 

(* 

(♦END . 

(*  END  %INCLUDE  MCREATE  *) 


DBMA  *) 

*) 

. --*) 

*) 

- *) 
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(*  %INCLUDE  HFILMOD  *) 

(**) 

PROCEDURE  MFILMOD(VAR  MESS  :  MESSAGE; 

VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET.REC); 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  THIS  PROCEDURE:  *) 

(*  DISPLAYS  THE  FILE/RETRIEVE  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  FILE  MODEL  PANEL  (MFILMOD)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  *) 

(*  *) 

(*  $COMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  MINCLUD  *) 

(**) 

PROCEDURE  MINCLUD(VAR  MESS  :  MESSAGE; 

VAR  REPORT.TYPE  :  OPERATIONS; 

VAR  MEMBERS  :  T_ARRAY23; 


VAR  NEXT_OP  ;  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*  -*) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  LIST  OF  SUBSCHEMAS  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *j 

(*  REPORT_TYPE  I  THE  TYPE  OF  REPORT  TO  BE  GENERATED  *) 

(*  MEMBERS  I  THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM  *) 

(*  SIZE  I  THE  SIZE  OF  THE  ARRAY  OF  MEMBERS  *) 

(*  MEMBER  0  THE  MEMBER  SELECTED  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  SUBSCHEMA  PANEL  (MINCLUD)  (FROM  WHICH  A  SUB-  *) 

(*  SCHEMA  MAY  BE  SELECTED)  BY  MAKING  ISPLNK  CALLS.  THE  OPTION  *) 

(*  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  MMAIN  *) 

(**) 

PROCEDURE  MMAIN (VAR  MESS  :  MESSAGE; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET.REC); 

SUBPROGRAM; 

(**) 

(*  ""*) 
(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  PROCEDURE:  *) 

(*  DISPLAYS  THE  MAIN  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  $PROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  MAIN  MENU  PANEL  (MMAIN)  BY  MAKING  ISPLNK  CALLS.  *) 

(*  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  TYPE.  *) 

(*  *) 

(*  $COMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  MNEWMOD  *) 

(**) 

PROCEDURE  MNEWMOD (VAR  MESS  :  MESSAGE; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  PROCEDURE:  *) 

(*  DISPLAYS  THE  FILE/RETRIEVE  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  $ COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  $PROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  NEW  MODEL  PANEL  (MNEWMOD)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  BEGIN  %INCLUDE  MQBHALL  *********************************************) 

(*  *) 

PROCEDURE  MQBHALL  (  CONST  NO_OF_KINDS  :  INTEGER; 

VAR  NO_OF_ENTRY  :  INTEGER  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  PRINT  ALL  ENTITIES  IN  THE  MODEL  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  NO_OF_KINDS  I  NUMBER  OF  KINDS  IN  THE  MODEL  *) 

(*  NO_OF_ENTRY  I/O  NUMBER  OF  ENTITIES  PRINTED  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  LOOP  THROUGH  LIST  OF  ENTITIES  IN  THE  MODEL  *) 

(*  PRINT  ENTITY  *) 

(*  END  LOOP  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  10  DECEMBER,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  MQBHALL  ***********************************************) 
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(*  BEGIN  %INCLUDE  MQBHATT 
(* 

PROCEDURE  MQBHATT  (  CONST  KIND 

CONST  INST_NO 
VAR  NO_OF_ENTRY 
SUBPROGRAM; 


******************************************** j 

*) 


INTEGER; 
INTEGER; 
INTEGER  ); 


SFUNCTION: 

PRINT  INDIVIDUAL  INSTANCES  OF  A  SPECIFIC  KIND 
SDESCRIPTION  OF  ARGUMENTS: 


NAME 

KIND 
INST_NO 
NO  OF  ENTRY 


SCOMMONS: 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  END  %INCLUDE  MQBHATT 


I/O  DESCRIPTION 

I  A  KIND  NUMBER  OF  ENTITY 
I  INSTANCE  NUMBER 
I/O  NUMBER  OF  ENTITIES  PRINTED 


$COMMENTS: 

SCHANGE  CONTROL: 

REVISED:  (DATE,  NAME,  GROUP, 
ORIGINATED:  10  DECEMBER,  M. 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

***★***********************★*************★*****> 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

SPROCESSING  DESCRIPTION: 

PRINT  ADB,  CONSTITUENT  LIST,  AND  USER  LIST. 


REASON/DESCRIPTION) 
H.  CHOI,  DBM A 
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(*  BEGIN  %INCLUDE  MQBHATTS  ******************************************** 

(*  * 
PROCEDURE  MQBHATTS  (  CONST  KIND  :  INTEGER; 

VAR  NO_OF_ENTRY  :  INTEGER  ); 

SUBPROGRAM; 


(*  * 
(*  {FUNCTION:  * 

(*  PRINT  ALL  ENTITIES  OF  A  SPECIFIC  KIND  * 

(* 

(*  {DESCRIPTION  OF  ARGUMENTS:  * 

(*  NAME  I/O  DESCRIPTION  * 

(*  KIND  I  A  KIND  NUMBER  OF  ENTITY  * 

(*  NO_OF_ENTRY  I/O  NUMBER  OF  ENTITIES  PRINTED  * 

(* 

(*  {COMMONS:  * 

(* 

(*  {ENVIRONMENT:  * 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  * 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  * 

(* 

(*  {EXECUTION  PROCEDURE:  * 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  * 

(* 

(*  {PROCESSING  DESCRIPTION:  * 

(*  LOOP  THROUGH  LIST  OF  ENTITIES  OF  A  SPECIFIC  KIND  * 

(*  PRINT  ADB,  CONSTITUENT  LIST,  AND  USER  LIST 

(*  END  LOOP  * 


(* 

(*  {COMMENTS:  * 

(* 

(*  {CHANGE  CONTROL:  * 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  * 

(*  ORIGINATED:  10  DECEMBER,  M.  H.  CHOI,  DBMA  * 

(* 

(*  END  %INCLUDE  MQBHATTS  ********************************************** 


) 

) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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(*  BEGIN  %INCLUDE  MQBHENT  ********************************************) 


(*  *) 

PROCEDURE  MQBHENT  (  CONST  MEMBER  :  T_CHAR56; 

VAR  NO_OF_ENTRY  :  INTEGER; 

VAR  ACTION  :  OPERATIONS  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  DISPLAY  BATCH  ENTITY  MENU  (  SELECT  TO  PRINT  ALL  ENTITIES  OF  *) 

(*  A  SPECIFIC  KIND  OR  TO  PRINT  INDIVIDUAL  INSTANCES  OF  A  *) 

(*  SPECIFIC  KIND  )  *) 

(*  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MEMBER  I  ENTITY  OF  A  SPCIFIC  KIND  *) 

(*  NO_OF_ENTRY  I/O  NUMBER  OF  ENTITIES  PRINTED  *) 

(*  ACTION  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  BATCH  ENTITY  MENU  *) 

(*  SELECT  TO  PRINT  ALL  ENTITIES  OF  A  SPECIFIC  KIND  OR  *) 

(*  TO  PRINT  INDIVIDUAL  INSTANCES  OF  A  SPECIFIC  KIND  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  $CHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  10  DECEMBER,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  MQBHENT  ***********************************************) 
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(*  begin  %INCLUDE  MQBHMAIN  ********************************************) 

(*  *) 
PROCEDURE  MQBHMAIN  (  CONST  MEMBERLIST  :  T.MEMBER; 


SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  DISPLAY  BATCH  MAIN  MENU  (  SELECT  TO  PRINT  ALL  ENTITIES  IN  *) 

(*  THE  MODEL  OR  TO  PRINT  ALL  ENTITIES  OF  A  SPECIFIC  KIND  )  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MEMBERLIST  I  LIST  OF  ENTITIES  IN  THE  MODEL  *) 

(*  NO_OF_KINDS  I  NUMBER  OF  KINDS  IN  THE  MODEL  *) 

(*  ACTION  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  BATCH  MAIN  MENU  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  $CHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  10  DECEMBER,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  MQBHMAIN  **********************************************j 
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(*  BEGIN  %INCLUDE  MQCLMU  *********************************************) 


(*  *) 

PROCEDURE  MQCLMU  (  CONST  LIST_OF_CNSTS  :  LISTKEY; 

CONST  CL_NAME  :  T_CL_NAME; 

CONST  NO_OF_CL  :  INTEGER; 

VAR  MEMBER  :  T_CHAR56; 

VAR  ACTION  :  OPERATIONS  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  DISPLAY  A  LIST  OF  CONSTITUENTS  FOR  A  SPECIFIC  KIND  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  LIST_OF_CNSTS  I  POINTER  TO  CONSTITUENT  LIST  *) 

(*  CL_NAME  I  POINTER  ATTRIBUTE  NAME  *) 

(*  NO_OF_CL  I  NUMBER  OF  CONSTITUENT  LIST  *) 

(*  MEMBER  0  SELECTED  CONSTITUENT  FOR  DEFINITIONS  *) 

(*  ACTION  0  ENUMERATED  TYPE  TO  INDICATE  THE  NEXT  *) 

(*  OPERATION  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  ?  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  10  DECEMBER,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  MQCLMU  ************************************************) 
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(*  BEGIN  %INCLUDE  MQGETVAL 
(* 

PROCEDURE  MQGETVAL  {  CONST  DATATYPE 

CONST  SIZE 

CONST  ATTRIBUTE_VALUE 
VAR  VAI 

SUBPROGRAM; 


********************************************  j 

*) 


INTEGER; 

INTEGER; 

T_ATTRIBUTE_VALUE; 
STRING (16)  ); 


SFUNCTION: 

CONVERT  ATTRIBUTE  VALUE  TO  A  STRING  VALUE 
SDESCRIPTION  OF  ARGUMENTS: 


NAME 

DATATYPE 

SIZE 

ATTRIBUTE_VALUE 

VAL 


SCOMMONS: 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  END  %INCLUDE  MQGETVAL 


I/O  DESCRIPTION 

I  TYPE  OF  THE  VALUE 

I  SIZE  OF  THE  VALUE 

I  DEPENDS  ON  THE  TYPE 

0  STRING  VALUE 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

SPROCESSING  DESCRIPTION: 

? 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION) 
ORIGINATED:  15  DECEMBER  1987,  M.  H.  CHOI,  DBMA 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


) 
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(*  BEGIN  %I NCLUDE  MQGTDEFN  ******************************************** ) 


(*  *) 
PROCEDURE  MQGTDEFN  (  CONST  KIND  :  INTEGER; 

CONST  ENTITYJCEY  :  ENTKEY; 

VAR  MEMBERLIST  :  T_MEMBERLIST; 

VAR  TOTAL_MEMBER  :  INTEGER; 

VAR  CL_NAME  :  T_CL_NAME; 

VAR  NO_OF_CL  :  INTEGER  ); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  GET  ENTITY  DEFINITIONS  OF  A  SPECIFIC  KIND  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KIND  I  A  KIND  NUMBER  OF  ENTITY  *j 

(*  ENTITYJCEY  I  POINTER  TO  ENTITY  INSTANCE  *) 

(*  MEMBERLIST  0  LIST  OF  ATTRIBUTE  NAMES  WITH  A  VALUE  *) 

(*  TOTAL_MEMBER  0  TOTAL  NUMBER  OF  MEMBERS  IN  THE  LIST  *) 

(*  CL.NAME  0  LIST  OF  ATTRIBUTE  NAMES  IN  THE  *) 

(*  CONSTITUENT  LIST  *) 

(*  NO_OF_CL  0  TOTAL  NUMBER  OF  CONSTITUENT  LIST  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *} 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  OBTAIN  ENTITY  DEFINITIONS  FROM  THE  DATA  DICTIONARY  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  10  DECEMBER,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %i NCLUDE  MQGTDEFN  **********************************************) 
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(*  BEGIN  %INCLUDE  MQIAATT  ********************************************* 

* 

PROCEDURE  MQIMTT  (  CONST  KIND  :  T_CHAR48; 

CONST  INST_NO  :  INTEGER; 

VAR  TEMP_MEMBER  :  T_CHAR56; 

VAR  ACTION  :  OPERATIONS  ); 

SUBPROGRAM; 


(*  * 
(*  $ FUNCTION:  * 

(*  PRINT  INDIVIDUAL  INSTANCES  OF  A  SPECIFIC  KIND  * 

* 

(*  SDESCRIPTION  OF  ARGUMENTS:  * 

(*  NAME  I/O  DESCRIPTION  * 

(*  KIND  I  A  KIND  NUMBER  OF  ENTITY  * 

(*  INST_NO  I  INSTANCE  NUMBER  * 

(*  TEMP_MEMBER  0  SELECTED  ENTITY  * 

(*  ACTION  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  * 

(*  OPERATION  * 

(* 

(*  SCOMMONS:  * 

(* 

(*  $ ENVIRONMENT :  * 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  * 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/438 1  * 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  NAME/VALUE  INTERFACE  * 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  * 

(* 

(*  SPROCESSING  DESCRIPTION:  * 


(*  ?  * 

(* 

(*  SCOMMENTS:  * 

(* 

(*  SCHANGE  CONTROL:  * 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  * 

(*  ORIGINATED:  15  DECEMBER  1987,  M.  H.  CHOI,  DBM A  * 

(* 

(*  END  %INCLUDE  MQIAATT  *********************************************** 


) 

) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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(*  BEGIN  %INCLUDE  MQIAENT  *********************************************) 

(*  *) 

PROCEDURE  MQIAENT  (  CONST  MEMBER  :  T.CHAR56; 

VAR  ACTION  :  OPERATIONS  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  DISPLAY  INTERACTIVE  ENTITY  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MEMBER  I  ENTITY  OF  A  SPECIFIC  KIND  *) 

(*  ACTION  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  ?  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  15  DECEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  MQIAENT  ***********************************************) 
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(*  BEGIN  %INCLUDE  MQIAMAIN  *******************************************) 


(*  *) 
PROCEDURE  MQIAMAIN  (  CONST  MEMBERLIST  :  T_MEM8ER; 


SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  DISPLAY  MAIN  INTERACTIVE  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MEMBERLIST  I  LIST  OF  ENTITIES  IN  THE  MODEL  *) 

(*  NO_OF_KINDS  I  NUMBER  OF  KINDS  IN  THE  MODEL  *) 

(*  ACTION  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  INTERACTIVE  MAIN  MENU  *) 

(*  SELECT  AN  ENTITY  FOR  THE  DEFINITIONS  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  15  DECEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  MQIAMAIN  **********************************************) 
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(*  BEG  I N  %INCLUDE  MQNCLMU  *********************************************) 

(*  *) 

PROCEDURE  MQNCLMU  (  VAR  ACTION  :  OPERATIONS  ); 

SUBPROGRAM; 

(*  *) 

(*  $FUNCTION:  *) 

(*  DISPLAY  A  MENU  INDICATING  NO  CONSTITUENTS  FOR  A  SPECIFIC  *) 

(*  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS;  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ACTION  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  ?  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  $CHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  15  DECEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  MQNCLMU  ***********************************************) 
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(*  BEGIN  %INCLUDE  MQNUSRMU  *******************************************) 

(*  *) 

PROCEDURE  MQNUSRMU  (  VAR  ACTION  :  OPERATIONS  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  DISPLAY  A  MENU  INDICATING  NO  USERS  FOR  A  SPECIFIC  ENTITY  *) 

(*  *) 

(*  5DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  *) 

(*  ACTION  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  ?  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  15  DECEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  MQNUSRMU  **********************************************) 


1-181 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  MQUDVR  *) 


(**) 

(*- 

*) 

(* 

*) 

(* 

SFUNCTION: 

*) 

(* 

THIS  IS  THE  MAINLINE  PROGRAM  WHICH  DRIVES  THE  MODEL  QUERY 

*) 

(* 

UTILITY  OF  THE  SCHEMA  MANAGER. 

*) 

(* 

*) 

(* 

SDESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

$ ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

DDNAMES  USED  WITH  STANDARD  FILES: 

*) 

(* 

DDFILE  =  THE  DATA  DICTIONARY  FILE  DEFINITIONS. 

*) 

(* 

*) 

(* 

DDINX  =  THE  DATA  DICTIONARY  FILE  INDEX. 

*) 

(* 

*) 

(* 

FT08F001  =  PART  MODEL  MASTER  FILE  (PID). 

*) 

(* 

*) 

(* 

SEXECUTION  PROCEDURE: 

*) 

(* 

*) 

(* 

*) 

(* 

SPROCESSING  DESCRIPTION: 

*) 

(* 

*) 

(* 

*) 

(* 

SCOMMENTS: 

*) 

(* 

*) 

(* 

SCHANGE  CONTROL: 

*) 

(* 

*) 

(* 

REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER 

GROUP_ID 

*) 

(* 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 

*) 

(* 

*) 

(* 

REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER 

GROUP_ID 

*) 

(* 

DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 

*) 

(* 

NARATION  ON  THE  NEXT  LINE. 

*) 

(* 

*) 

(* 

ORIGINATED:  M.  H.  CHOI 

DBMA 

*) 

(* 

*) 

(*- 

-*) 

(* 

*) 

(*  *) 

(*END . - . . . . . . . ----*) 

(*  END  %INCIUDE  MQUDVR  *) 
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(*  BEGIN  %INCLUDE  MQUSRMU  *********************************^-***********) 


(*  *) 
PROCEDURE  MQUSRMU  (  CONST  LIST_OF_USERS  :  LISTKEY; 


SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  DISPLAY  LIST  OF  USERS  FOR  A  SPECIFIC  ENTITY  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS;  *) 

(*  NAME  I/O  DESCRIPTION  *) 

LIST_OF_USERS  I  LIST  OF  USERS  FOR  A  SPECIFIC  ENTITY  *j 

(*  TEMP_MEMBER  0  SELECTED  USER  FOR  THE  DEFINITIONS  *) 

(*  ACTION  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  *) 

(*  SCOMMONS;  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  ?  *) 

(*  *) 

(*  $COMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  15  DECEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  MQUSRMU  ***********************************************) 
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(*  %INCLUDE  MREPORT  *) 

(**) 

PROCEDURE  MREPORT (VAR  MESS  :  MESSAGE; 

VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET.REC); 

SUBPROGRAM; 

(**) 

(*--- .  — .  .  . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  PROCEDURE:  *) 

(*  DISPLAYS  THE  REPORT  MENU  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  S ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *} 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  REPORT  MENU  (MREPORT)  BY  MAKING  ISPLNK  CALLS.  *) 

(*  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  MREVIEW  *) 

(**) 

PROCEDURE  MREVIEW(VAR  MESS  :  MESSAGE; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*-- .  .  . 

(* 

(*  JFUNCTION: 

(*  THIS  PROCEDURE: 

(*  DISPLAYS  THE  REVIEW  MENU 

(* 

(*  5DESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

==  =  =  = 

=== 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  $ COMMONS : 

(*  NONE 
(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  REVIEW  PANEL  (MREVIEW)  BY  MAKING  ISPLNK  CALLS. 

(*  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  TYPE. 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  09/28/87  C.  H.  MOHME  DBMA 

(*  INCORPORATED  THE  SUPERTYPE  DATA  TYPE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  08/14/87  C.  H.  MOHME 

(* 

(* 

(* 

(*END . . . . 

(*  END  %INCLUDE  MREVIEW  *) 


DBMA  *) 

*) 

- *) 

*) 

. . *) 
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(*  %INCLUDE  MUPDATE  *) 

(**) 

PROCEDURE  MUPDATE (VAR  MESS  :  MESSAGE; 

VAR  NEXT_0P  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  THIS  PROCEDURE: 

(*  DISPLAYS  THE  UPDATE  MENU 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

NEXT.OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

(* 

OPERATION 

(* 

(* 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

SCOMMONS: 

(* 

(* 

(* 

NONE 

SENVIRONMENT: 

(* 

LANGUAGE: 

IBM  PASCAL 

(* 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

(* 

DDNAMES  USED  WITH 

STANDARD  FILES: 

(* 

NONE 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  UPDATE  PANEL  (MUPDATE)  BY  MAKING  ISPLNK  CALLS. 

(*  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  TYPE. 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  09/28/87  C.  H.  MOHME  DBMA 

(*  INCORPORATED  THE  SUPERTYPE  DATA  TYPE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  08/13/87 
(* 

(* 

(* 

(*END- . . 

(*  END  %INCLUDE  MUPDATE  *) 


C.  H.  MOHME 


DBMA  *) 

*) 

. *) 

*) 

. *) 
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(*  BEGIN  %INCLUDE  NVRTVRS  *********************************************) 


(*  *) 

PROCEDURE  NVRTVRS  (  CONST  KIND  :  INTEGER; 

VAR  RUNTIME  ;  T_RUN_TIME; 

VAR  RUNTIME_SIZE  :  INTEGER; 

VAR  RETURN_CODE  :  INTEGER  ); 

SUBPROGRAM; 

(*  *) 

(*  $  FUNCTION:  *) 

(*  RETRIEVE  ENTITY  DEFINITIONS  FROM  THE  FILE  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KIND  I  THE  KIND  NUMBER  OF  THE  ENTITY  *) 

(*  DEFINITION  TO  BE  READ  *) 

(*  RUNTIME  0  RUN-TIME  SUBSCHEMA  WHICH  CONTAINS  *) 

(*  THE  ENTITY  DEFINITION,  ALONG  WITH  *) 

(*  ANY  ENUMERATION  VALUES,  ANY  ARRAY  *) 

(*  INFORMATIONS,  AND  CONSTITUENT  LIST  *) 

(*  INFORMATIONS,  IN  A  COMPACTED  FORM.  *) 

(*  RUNTIME_SIZE  0  THE  NUMBER  OF  BYTES  ACTUALLY  REQUIRED  *) 

(*  FOR  THE  COMPACTED  RUN-TIME  SUBSCHEMA.  *) 

(*  RETURN_CODE  0  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  LOOP  THROUGH  INXFILE  *) 

(*  IF  KIND  FOUND  IN  INXFILE  THEN  *) 

(*  LOOP  THROUGH  DATAFILE  *) 

(*  IF  KIND  FOUND  IN  DATAFILE  THEN  *) 

(*  STORE  ENTITY  DEFINITION  IN  TEMPORARY  WORK  AREA  *) 

(*  END  IF  *) 

(*  END  IF  *) 

(*  END  LOOP  *) 

(*  STORE  ENTITY  DEFINITION  INTO  RUN-TIME  SUBSCHEMA  *) 

(*  STORE  SIZE  OF  ENTITY  DEFINITION  INTO  RUN-TIME  SUBSCHEMA  *) 

(*  *) 
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(*  SCOHMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  21  OCTOBER  1986,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  NVRTVRS  ***********************************************) 
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(*  BEGIN  %INCLUDE  PHALFLD  ********************************************* 
(* 

PROCEDURE  PHALFLD  (  VAR  FIELD.KEY  :  ENTKEY; 

CONST  OFFSET.LIST  :  T_OFFSET_LIST ; 

CONST  OFFS ET_L I ST.COUNT  :  INTEGER; 

VAR  ARRAY_T ABLE_POSITION  :  INTEGER; 

VAR  CL.POSITION  :  INTEGER; 

VAR  ENUM_TABLE_POS IT I ON  :  INTEGER; 

VAR  IRC  :  RET_REC  ); 

SUBPROGRAM; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

PHYSICALIZE  THE  ATTRIBUTE  OF  AN  ENTITY 
(  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  ) 


SDESCRIPTION  OF  ARGUMENTS: 


NAME  I/O 

ses:=s  rss 

FIELDJCEY  I 

OFFSET.LIST  I 

OFFSET_LIST_COUNT  I 
ARRAY_TABLE_POSIT  0 
CL_POSITION  0 

ENUM_TABLE_POSIT  0 
IRC  0 


SCOMMONS: 


DESCRIPTION  * 

FIELD  KEY  TO  BE  PHYSICALIZE  * 

LIST  OF  ATTRIBUTES  OF  AN  ENTITY  * 

ACCORDING  TO  BOUNDARY  ALIGNMENT  * 

NUMBER  OF  ATTRIBUTES  IN  THE  LIST  * 

NUMBER  OF  ARRAYS  * 

NUMBER  OF  POINTERS  * 

NUMBER  OF  ENUMERATIONS  * 

RETURN_CODE  * 

* 

* 


S ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SEXECUTION  PROCEDURE:  * 

* 


SPROCESSING  DESCRIPTION:  * 

LOOP  THROUGH  ATTRIBUTES  IN  THE  LIST  OF  BOUNDARY  ALIGNMENT  * 
IF  ATTRIBUTE  NAME  IS  IN  THE  LIST  THEN  * 

OBTAIN  SIZE  AND  OFFSET  FROM  THE  LIST  * 

PHYSICALIZE  THE  ATTRIBUTE  * 

END  IF  * 

END  LOOP  * 


SCOMMENTS:  * 

* 


SCHANGE  CONTROL:  * 

ORIGINATED:  26  NOVEMBER  1986,  M.  H.  CHOI,  DBMA  * 

* 


END  %INCLUDE  PHALFLD  *********************************************** 


) 

) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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(*  BEGIN  %INCLUDE  PHBYFPOS 
(* 

PROCEDURE  PHBYFPOS 


( 


VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

VAR 


SFUNCTION: 

PHYSICALIZE  THE  ATTRIBUTES  THAT  SPECIFIED  THE  FIELD 
POSITION  ORDER  (  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  ) 


SDESCRIPTION  OF  ARGUMENTS: 


NAME 

ORDER_INDEX 

ORDER.REC 

ARRAY_TABLE_POS 

ENUM_TABLE_POSR 

CL_POSITION 

OFFSET_LI ST_COUNT 

OFFSET_LIST 

IRC 


SUBPROGRAM; 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  END  %I NC LUDE  PHBYFPOS 


********************************************j 

*) 

ORDER_INDEX  :  INTEGER; 

ORDER_REC  ;  T_GLOBAL_FIELD; 

ARRAY_TABL E_POS IT I ON  ;  INTEGER; 
ENUM_TABLE_POSITION  :  INTEGER; 

CL_POSITION  :  INTEGER; 

OFFSET_LIST_COUNT  :  INTEGER; 

OFFSET.LIST  :  T_OFFSET_L I ST ; 

IRC  :  RET_REC  ); 


I/O  DESCRIPTION 


I 


0 

0 

0 

0 

0 

0 


SCOMMONS: 

SENVIRONMENT: 

LANGUAGE: 

HARDWARE 


IBM  PASCAL 
SYSTEM:  IBM 


NUMBER  OF  ATTRIBUTES  THAT  SPECIFIED 
THE  ORDER 

LIST  OF  ATTRIBUTES  THAT  SPECIFIED 

THE  ORDER 

NUMBER  OF  ARRAYS 

NUMBER  OF  ENUMERATIONS 

NUMBER  OF  POINTERS 

NUMBER  OF  ATTRIBUTES  IN  THE  LIST 

LIST  OF  ATTRIBUTES  OF  AN  ENTITY 

RETURN  CODE 


(SEGMENT  SUBPROGRAM) 
360/370/4341/4381 


SEXECUTION  PROCEDURE: 

SPROCESSING  DESCRIPTION: 

SORT  ATTRIBUTES  BY  THE  FIELD  POSITION  NUMBER 
LOOP  THROUGH  THE  ORDER  LIST 
PHYSICALIZE  THE  ATTRIBUTE 
END  LOOP 


SCOMMENTS: 

SCHANGE  CONTROL: 
ORIGINATED: 


14  OCTOBER  1986,  M.  H.  CHOI,  DBMA 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


********************************************** 


) 
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(*  BEGIN  %INCLUDE  PHDECBYT 
(* 

PROCEDURE  PHDECBYT  ( 


******************************************** j 

*) 


(* 

(* 

(* 

(* 

(* 

(* 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


CONST  CNST  ADB 

ENTBLOCK; 

CONST  NAME 

T  NAME; 

CONST  ARRAY  LENGTH 

INTEGER; 

VAR  DW  ROOT 

T  DW  POINTER; 

VAR  FW  ROOT 

T  FW  POINTER; 

VAR  HW  ROOT 

T  HW  POINTER; 

VAR  BY  ROOT 

T  BY  POINTER; 

VAR  PNTR  ROOT 

T  PNTR  POINTER; 

VAR  IRC 

RET  REC  ); 

SUBPROGRAM; 

SFUNCTION: 

TRANSLATE  DECIMAL  DIGIT  PRECISION  INTO  BYTE  PRECISION  AND 
BUILD  A  LIST  OF  ATTRIBUTES  OF  AN  ENTITY  ACCORDING  TO 
BOUNDARY  ALIGNMENT. 


*) 

*) 

*) 

*) 

*) 

*) 


(* 

SDESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

(* 

(* 

sxaxs 

SB  =5  = 

===3======= 

*) 

CNST  ADB 

I 

ADB  OF  CONSTITUENT 

*) 

(* 

NAME 

I 

ATTRIBUTE  NAME 

*) 

(* 

ARRAY  LENGTH 

I 

NUMBER  OF  ARRAY  DIMENSIONS 

*) 

(* 

(* 

DW_ROOT 

0 

LIST  OF  ATTRIBUTES  WHICH  REQUIRE 
DOUBLE  WORD  ALIGNMENT 

FOR 

*) 

*) 

(* 

(* 

FW_ROOT 

0 

LIST  OF  ATTRIBUTES  WHICH  REQUIRE 
FULL  WORD  ALIGNMENT 

FOR 

*) 

*) 

(* 

(* 

HW_ROOT 

0 

LIST  OF  ATTRIBUTES  WHICH  REQUIRE 
HALF  WORD  ALIGNMENT 

FOR 

*) 

*) 

(* 

(* 

BY_ROOT 

0 

LIST  OF  ATTRIBUTES  WHICH  REQUIRE 
BYTES 

FOR 

*) 

*) 

(* 

PNTR  ROOT 

0 

LIST  OF  POINTER  ATTRIBUTES 

*) 

(* 

IRC 

0 

RETURN  CODE 

*) 

SCOMMONS : 

SENVIRONMENT : 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

SPROCESSING  DESCRIPTION: 

CASE  ATTRIBUTE  TYPE  OF 

INTEGER  :  CASE  DECIMAL  DIGIT  OF  INTEGER  SIZE  OF 

1,  2 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

BYTES_PREC I  SION  =  1  *) 

SIZE  =  BYTES_PREC I SION  *  ARRAY_LENGTH*) 
BY_ALIGNMENT,  PROCEDURE  (4)  *) 

*) 
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(*  3,  4  :  BYTES.PRECISION  =  2  *) 

(*  SIZE  =  BYTES.PRECISION  *  ARRAY.LENGTH*) 

(*  HW.ALIGNMENT,  PROCEDURE  (3)  *) 

(*  *) 

(*  5,  6,:  BYTES.PRECISION  =4  *) 

(*  7,  8,  SIZE  =  BYTES.PRECISION  *  ARRAY_LENGTH*) 

(*  9  FW_ALIGNMENT,  PROCEDURE  (2)  *) 

(*  *) 

(*  REAL  :  CASE  DECIMAL  DIGIT  OF  REAL  SIZE  OF  *) 

(*  1,2,3:  BYTES.PRECISION  =4  *) 

(*  4,5,6  SIZE  =  BYTES_PRECISION  *  ARRAY.LENGTH*) 

(*  7  FW.ALIGNMENT,  PROCEDURE  (2)  *) 

(*  *) 

(*  8,  9,  10,  11,  *) 

(*  12,  13,  14,  15,  *) 

(*  16  :  BYTES_PRECISION  =8  *) 

(*  SIZE  =  BYTES_PREC IS ION  *  ARRAY_LENGTH  *) 

(*  DW.ALIGNMENT,  PROCEDURE  (1)  *) 

(*  *) 

(*  STRING  :  BYTES_PRECISION  =  DECIMAL  SIZE  OF  STRING  *) 

(*  SIZE  «  BYTES.PRECISION  *  ARRAY_LENGTH  *) 

(*  BY_ALIGNMENT,  PROCEDURE  (4)  *) 

(*  *) 

(*  LOGICAL,  *) 

(*  ENUMERATION  :  BYTES_PR£CISION  -  1  *) 

(*  SIZE  -  BYTES.PRECISION  *  ARRAY_LENGTH  *) 

(*  BY_ALIGNMENT,  PROCEDURE  (4)  *) 

(*  *) 

(*  POINTER  :  BYTES_PRECISION  =0  *) 

(*  SIZE  =BYTES_PRECISION  *  ARRAY_LENGTH  *) 

(*  PNTR_ALIGNMENT,  PROCEDURE  (5)  *) 

(*  *) 

(*  END  CASE  *) 

(*  PROCEDURE  (1)  :  DW.ALIGNMENT  *) 

(*  BUILD  A  LIST  OF  ATTRIBUTES  (  NAME  AND  SIZE  )  OF  AN  ENTITY  *) 

(*  REQUIRE  FOR  DOUBLE  WORD  ALIGNMENT  *) 

(*  *) 

(*  PROCEDURE  (2)  :  FW.ALIGNMENT  *) 

(*  BUILD  A  LIST  OF  ATTRIBUTES  (  NAME  AND  SIZE  )  OF  AN  ENTITY  *) 

(*  REQUIRE  FOR  FULL  WORD  ALIGNMENT  *) 

(*  *) 

(*  PROCEDURE  (3)  :  HW_ALIGNMENT  *) 

(*  BUILD  A  LIST  OF  ATTRIBUTES  (  NAME  AND  SIZE  )  OF  AN  ENTITY  *) 

(*  REQUIRE  FOR  HALF  WORD  ALIGNMENT  *) 

(*  *) 

(*  PROCEDURE  (4)  :  BY_ALIGNMENT  *) 

(*  BUILD  A  LIST  OF  ATTRIBUTES  (  NAME  AND  SIZE  )  OF  AN  ENTITY  *) 

(*  REQUIRE  FOR  BYTES  *) 

(*  *) 
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(*  PROCEDURE  (5)  :  PNTR_ALIGNMENT  *) 

(*  BUILD  A  LIST  OF  POINTER  ATTRIBUTES  OF  AN  ENTITY  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  25  AUGUST  1986,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  PHDECBYT  ********************************************** j 
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(*  BEGIN  %INCLUDE  PHENTITY  ********************************************) 

(*  *) 
PROCEDURE  PHENTITY  (  VAR  ENTITY.KEY  :  ENTKEY; 

VAR  ARRAY_TABLE_POSITION  :  INTEGER; 

VAR  ENUM_TABLE_POSITION  :  INTEGER; 

VAR  OPPOSITION  ;  INTEGER; 

VAR  OFFSET_LIST_COUNT  ;  INTEGER; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


VAR  OFFSET.LIST  :  T  OFFSET  LIST; 

VAR  IRC  :  RET_REC  J; 

SUBPROGRAM; 

*) 

SFUNCTION:  *) 

PHYSICALIZE  THE  ENTITY  DEFINITIONS  OF  THE  SUBSCHEMA  *) 

(  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  )  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

ENTITY_KEY  I  ENTITY  KEY  OF  DEFINITION  TO  BE  *) 

PHYSICALIZE  *) 

ARRAY_T ABL E_POS I T  0  NUMBER  OF  ARRAYS  *) 

ENUM_TABLE_POSIT  0  NUMBER  OF  ENUMERATIONS  *) 


CL_TABLE_POSIT  0  NUMBER  OF  POINTERS  *) 

OFFSET_LIST  COUNT  0  NUMBER  OF  ATTRIBUTES  IN  THE  LIST  *) 

OFFSET.LIST  0  LIST  OF  ATTRIBUTES  OF  AN  ENTITY  *) 

NEW_SIZE  0  SIZE  DIFFERENCE  BETWEEN  THE  PREVIOUS  *) 

TOTAL  GLOBAL  SIZE  AND  THE  NEW  TOTAL  *) 

GLOBAL  SIZE  *) 

IRC  0  RETURN.CODE  *) 

*) 

5COMMONS:  *) 

*) 

SENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

LOOP  THROUGH  THE  ATTRIBUTES  THAT  SPECIFIED  THE  ORDER  *) 

PHYSICALIZE  THE  ATTRIBUTES  *) 

END  LOOP  *) 

LOOP  THROUGH  THE  ATTRIBUTES  THAT  DID  NOT  SPECIFIED  THE  ORDER*) 

PHYSICALIZE  THE  ATTRIBUTES  *) 

END  LOOP  *) 

*) 

SCOMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

ORIGINATED:  4  SEPTEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

*) 

END  %INCLUDE  PHENTITY  ********************************************** ) 
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(*  BEGIN  %INCLUDE  PHGLOBAL  *******************************-************ 

(*  * 
PROCEDURE  PHGLOBAL  (  VAR  LIST_OF_GLOBALS  :  LISTKEY; 

VAR  ARRAY.TABLE  POSITION  :  INTEGER; 

VAR  ENUM.TABLE  POSITION  :  INTEGER; 

VAR  C L_T AB  L  E_POS I T I ON  :  INTEGER; 

VAR  OFFSET_LIST_COUNT :  INTEGER; 

VAR  OFFSET_LIST  :  T_OFFSET_LIST ; 

VAR  IRC  :  RET.REC  ); 

SUBPROGRAM; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


S FUNCTION: 

PHYSICALIZE  THE  GLOBAL  FIELDS  OF  THE  SCHEMA 
(  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  ) 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


SUBSCHEMA.KEY  I  SUBSCHEMA  KEY 

ARRAY_TABLE_POSIT  0  NUMBER  OF  ARRAYS 

ENUM_TABLE_POSIT  0  NUMBER  OF  ENUMERATIONS 

CL_TABLE_POSIT  0  NUMBER  OF  POINTERS 

OFFSET_LIST_COUNT  0  NUMBER  OF  ATTRIBUTES  IN  THE  LIST 
OFFSET_LIST  0  LIST  OF  ATTRIBUTES  OF  AN  ENTITY 

ACCORDING  TO  BOUNDARY  ALIGNMENT 
IRC  0  RETURN.CODE 


SCOMMONS: 


* 

* 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SEXECUTION  PROCEDURE:  * 

* 


SPROCESSING  DESCRIPTION: 

IF  THERE  ARE  ANY  GLOBAL  FIELDS  THEN 
LOOP  THROUGH  EACH  GLOBAL  FIELDS 

DETERMINE  THE  FIELD  POSITION  NUMBER 
END  LOOP 

LOOP  THROUGH  THE  FIELDS  WITH  FIELD  POSITION 

PHYSICALIZE  THE  FIELD  BY  FIELD  POSITION  NUMBER 
END  LOOP 

LOOP  THROUGH  THE  FIELDS  WITHOUT  THE  FIELD  POSITION 
PHYSICALIZE  THE  FIELD  BY  BOUNDARY  ALIGNMENT 
END  LOOP 


) 

) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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(*  BEGIN  %INCLUDE  PHGLOBAL  ********************************************) 


(*  *) 
PROCEDURE  PHGLOBAL  (  VAR  LIST_OF_GLOBALS  :  LISTKEY; 

VAR  ARRA Y_T ABL E_POS I T I ON  :  INTEGER; 

VAR  ENUM_TABLE_POSITION  :  INTEGER; 

VAR  CL_TABLE_POSITION  :  INTEGER; 

VAR  OFFSET_LIST_COUNT :  INTEGER; 

VAR  OFFSET_LIST  :  T_OFFSET_LIST; 

VAR  IRC  :  RET_REC  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  PHYSICALIZE  THE  GLOBAL  FIELDS  OF  THE  SCHEMA  *) 

(*  (  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  )  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  SUBSCHEMA_KEY  I  SUBSCHEMA  KEY  *) 

(*  ARRAY_T ABL E_POS I T  0  NUMBER  OF  ARRAYS  *) 

(*  ENUM_TABLE_POSIT  0  NUMBER  OF  ENUMERATIONS  *) 

(*  CL_TABLE_POSIT  0  NUMBER  OF  POINTERS  *) 

(*  OFFSET_LIST_COUNT  0  NUMBER  OF  ATTRIBUTES  IN  THE  LIST  *) 

(*  OFFSET_LIST  0  LIST  OF  ATTRIBUTES  OF  AN  ENTITY  *) 

(*  ACCORDING  TO  BOUNDARY  ALIGNMENT  *) 

(*  IRC  0  RETURN_CODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  IF  THERE  ARE  ANY  GLOBAL  FIELDS  THEN  *) 

(*  LOOP  THROUGH  EACH  GLOBAL  FIELDS  *) 

(*  DETERMINE  THE  FIELD  POSITION  NUMBER  *) 

(*  END  LOOP  *) 

(*  LOOP  THROUGH  THE  FIELDS  WITH  FIELD  POSITION  *) 

(*  PHYSICALIZE  THE  FIELD  BY  FIELD  POSITION  NUMBER  *) 

(*  END  LOOP  *) 

(*  LOOP  THROUGH  THE  FIELDS  WITHOUT  THE  FIELD  POSITION  *) 

(*  PHYSICALIZE  THE  FIELD  BY  BOUNDARY  ALIGNMENT  *) 

(*  END  LOOP  *) 

(*  *) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  25  NOVEMBER  1986,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  PHGLOBAL  **********************************************) 
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(*  BEGIN  %INCLUDE  PHGTFLD  ********************************************* 
(* 


PROCEDURE  PHGTFLD  (  CONST  FIELD_KEY 


VAR 

DW  ROOT 

VAR 

FW  ROOT 

VAR 

HW  ROOT 

VAR 

BY  ROOT 

VAR 

PNTR  ROOT 

VAR 

OFFSET  LIST 

VAR 

OFFSET  LIST 

VAR 

IRC 

SUBPROGRAM; 


:  ENTKEY; 

:  T_DW_PO INTER; 

:  T_FW_PO INTER; 

:  T_HW_PO INTER; 

:  T_BY_POINTER; 

:  T_PNTR_POINTER; 
:  T_OFFSET_LIST ; 
COUNT  ;  INTEGER; 

:  RET_REC  ); 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

SDESCRIPTION  OF  ARGUMENTS: 


NAME  I/O 

FIELDJCEY  I 
STARTING_OFFSET  0 
DW_ROOT  0 
FW_ROOT  0 
HW_ROOT  0 
BY_ROOT  0 
IRC  0 


SCOMMONS: 


★ 

★ 

* 

★ 

DESCRIPTION  * 

★ 

★ 

* 

★ 

★ 

* 

RETURN_CODE  * 

* 

* 

* 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

SPROCESSING  DESCRIPTION: 


SCOMMENTS:  * 

* 

SCHANGE  CONTROL:  * 

ORIGINATED:  26  NOVEMBER  1986,  M.  H.  CHOI,  DBMA  * 

* 

END  ^INCLUDE  PHGTFLD  *********************************************** 


) 

) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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(*  BEGIN  %INCLUDE  PHPOSITN  ******************************************** 
(* 

PROCEDURE  PHPOSITN  (  CONST  L I ST_OF_F I  ELDS  :  LISTKEY; 

VAR  ORDER_INDEX  :  INTEGER; 

VAR  ORDER_REC  :  T_GLOBAL_FIELD; 

VAR  UNORDER.LIST  ;  LISTKEY; 

VAR  IRC  :  RET.REC  ); 

SUBPROGRAM; 


) 

) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

{FUNCTION:  *) 

DETERMINE  THE  FIELD  POSITION  ORDER  *) 

*) 

{DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

LIST_OF_FIELDS  I  FIELDS  TO  DETERMINE  THE  FIELD  *) 

POSITION  ORDER  *) 

ORDER_INDEX  0  NUMBER  OF  ATTRIBUTES  THAT  SPECIFIED  *) 

THE  FIELD  POSITION  NUMBER  *) 


ORDER_REC  0  LIST  OF  ATTRIBUTES  THAT  SPECIFIED 

THE  FIELD  POSITION  NUMBER 

UNORDER_LIST  0  LIST  OF  ATTRIBUTES  THAT  DID  NOT 

SPECIFIED  THE  ORDER 
IRC  0  RETURN.CODE 

{COMMONS: 

{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

{PROCESSING  DESCRIPTION: 

LOOP  THROUGH  THE  ATTRIBUTES 

IF  ATTRIBUTE  DID  NOT  SPECIFIED  THE  POSITION  THEN 
ATTACH  TO  THE  UNORDER  LIST 
ELSE 

ATTACH  TO  THE  ORDER  LIST 
END  LOOP 

{COMMENTS: 

{CHANGE  CONTROL: 

ORIGINATED:  14  OCTOBER  1986,  M.  H.  CHOI,  DBMA 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

t 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


END  % INCLUDE  PHPOSITN  **********************************************) 
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(*  BEGIN  %INCLUDE  PHSRTFLD 
(* 

PROCEDURE  PHSRTFLD  ( 


******************************************** J 

*) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SUBPROGRAM; 

$FUNCTION: 

DETERMINE  THE  LOCATION 
TO  BOUNDARY  ALIGNMENT. 

SDESCRIPTION  OF  ARGUMENTS: 


VAR 

DW  ROOT 

T  DW  POINTER; 

VAR 

FW  ROOT 

T  FW  POINTER; 

VAR 

HW  ROOT 

T  HW  POINTER; 

VAR 

BY  ROOT 

T  BY  POINTER; 

VAR 

PNTR  ROOT 

T  PNTR  POINTER; 

VAR 

OFFSET  LIST 

T  OFFSET  LIST; 

VAR 

TOTAL  COUNT 

INTEGER  ); 

OF  ATTRIBUTES  OF  AN  ENTITY  ACCORDING 


NAME 

DW_ROCT 

FW_ROOT 

HW_ROOT 

BY_ROOT 

PNTR_ROOT 

OFFSET_LIST 

TOTAL  COUNT 


I/O  DESCRIPTION 


I 


I 

0 


SCOMMONS: 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 
HARDWARE  SYSTEM:  IBM 

SEXECUTION  PROCEDURE: 


LIST  OF  ATTRIBUTES  WHICH 
DOUBLE  WORD  ALIGNMENT 
LIST  OF  ATTRIBUTES  WHICH 
FULL  WORD  ALIGNMENT 
LIST  OF  ATTRIBUTES  WHICH 
HALF  WORD  ALIGNMENT 
LIST  OF  ATTRIBUTES  WHICH 
BYTES 

LIST  OF  POINTER  ATTRIBUTES 
LIST  OF  ATTRIBUTES  OF  AN  ENTITY 
ACCORDING  TO  BOUNDARY  ALIGNMENT 
NUMBER  OF  ENTRIES  IN  THE  LIST 


(SEGMENT  SUBPROGRAM) 
360/370/4341/4381 


SPROCESSING  DESCRIPTION: 

LOOP  THROUGH  EACH  LIST  OF  ALIGNMENTS  TABLE  ACCORDING  TO 
BOUNDARY  ALIGNMENT 

OF  DOUBLE  WORD  ALIGNMENT 
OF  FULL  WORD  ALIGNMENT 
OF  HALF  WORD  ALIGNMENT 
OF  BYTE  ALIGNMENT 


(1) 

(2) 

(3) 

(4) 

STORE  ATTRIBUTE 
TABLE 


LIST 

LIST 

LIST 

LIST 


NAME  AND  SIZE  INTO  LIST  OF  OFFSET-LIST 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

REQUIRE  FOR  *) 
*) 

REQUIRE  FOR  *) 
*) 

REQUIRE  FOR  *) 
*) 

REQUIRE  FOR  *) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
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(*  IF  ATTRIBUTE  NAME  AND  SIZE  ARE  THE  FIRST  ONE  TO  STORE  *) 

(*  OFFSET  =  12  *) 

(*  ELSE  *) 

(*  OFFSET  =  PREVIOUS  OFFSET  +  PREVIOUS  SIZE  *) 

(*  INCREMENT  NUMBER  OF  ENTRIES  IN  THE  TABLE  *) 

(*  END  LOOP  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  18  SEPTEMBER  1986,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  PHSRTFLD  *********************************************j 
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(*  BEGIN  %INCLUDE  PHSRTORD  ********************************************) 

(*  *) 

PROCEDURE  PHSRTORD  (  CONST  ORDER.INDEX  :  INTEGER; 

VAR  ORDER_REC  :  T_GLOBAL_FIELD  ); 

SUBPROGRAM; 

(*  *) 

(*  $  FUNCTION:  *) 

(*  SORT  ATTRIBUTES  BY  THE  FIELD  POSITION  NUMBER  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ORDER_INDEX  I  NUMBER  OF  ATTRIBUTES  THAT  SPECIFIED  *) 

(*  THE  FIELD  POSITION  NUMBER  *) 

(*  ORDER.REC  0  LIST  OF  ATTRIBUTES  THAT  SPECIFIED  *) 

(*  THE  FIELD  POSITION  NUMBER  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  *) 

(*  {ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  LOOP  THROUGH  LIST  OF  ATTRIBUTES  THAT  SPECIFIED  THE  FIELD  *) 

(*  POSITION  NUMBER  AND  PUT  THEM  IN  ASCENDING  ORDER.  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  ORIGINATED:  18  NOVEMBER  1986,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  PHSRTORD  **********************************************) 
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(*  BEGIN  %I NC LUDE  PHSUBTYP  ********************************************) 

(*  *) 
PROCEDURE  PHSUBTYP  (  CONST  SUBTYPEJCEY  :  ENTKEY; 

VAR  ARRAY_TABLE  POSITION  :  INTEGER; 

VAR  ENUM_T ABL E_POS I T I ON  :  INTEGER; 

VAR  CL_POSITION  :  INTEGER; 

VAR  OFFSET_LIST  COUNT  :  INTEGER; 

VAR  OFFSET_LIST  :  T_OFFSET_L 1ST ; 


VAR  IRC  :  RET_REC  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  PHYSICALIZE  THE  SUPER  TYPES  *) 

(*  (  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  )  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  * ) 

(*  SUBSCHEMA_KEY  I  SUBSCHEMA  KEY  OF  THE  ENTITY  *) 

(*  DEFINITIONS  TO  BE  PHYSICALIZE  *) 

(*  ARRA Y_T AB L E_POS I T  0  NUMBER  OF  ARRAYS  *) 

(*  ENUM_TABLE_POSIT  0  NUMBER  OF  ENUMERATIONS  *) 

(*  CL_TABLE_POSIT  0  NUMBER  OF  POINTERS  *) 

(*  OFFSET_LIST_COUNT  0  NUMBER  OF  ATTRIBUTES  IN  THE  LIST  *) 

(*  OFFSET_LIST  0  LIST  OF  ATTRIBUTES  OF  AN  ENTITY  *) 

(*  NEW_SIZE  0  SIZE  DIFFERENCE  BETWEEN  THE  PREVIOUS  *) 

(*  TOTAL  GLOBAL  SIZE  AND  THE  NEW  TOTAL  *) 

(*  GLOBAL  SIZE  *) 

(*  IRC  0  RETURN_CODE  *) 

(*  *) 

(*  $COMMONS:  *) 

(*  *) 

(*  SENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

*(*  PHYSICALIZE  THE  ATTRIBUTES  WITHIN  THE  SUPERTYPE  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  4  SEPTEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUPr  PHSUBTYP  **********************************************) 
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(*  BEGIN  %INCLUDE  PHWOFPOS  ******************************************** j 

(*  *) 
PROCEDURE  PHWOFPOS  (  VAR  UNORDER_LIST  :  LISTKEY: 

VAR  ARRA Y_T ABLE_POSITION  :  INTEGER; 

VAR  ENUM_TABLE_POS IT ION  :  INTEGER; 

VAR  OPPOSITION  :  INTEGER; 

VAR  OFFSET_LI ST_COUNT  :  INTEGER; 

VAR  OFFSET.LIST  :  T_OFFSET_LIST; 

VAR  IRC  :  RET.REC  ); 

SUBPROGRAM; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

SFUNCTION:  *) 

PHYSICALIZE  THE  ATTRIBUTES  THAT  DID  NOT  SPECIFIED  THE  *) 

FIELD  POSITION  NUMBER  (  DETERMINE  ATTRIBUTE  SIZE  AND  *) 

LOCATION  )  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

UNORDER_LIST  0  LIST  OF  ATTRIBUTES  WITHOUT  THE  FIELD  *) 

POSITION  NUMBER  *) 

ARRAY_TABLE_POS  0  NUMBER  OF  ARRAYS  *) 

ENUM_TABLE_POSR  0  NUMBER  OF  ENUMERATIONS  *) 

CL_POSITION  0  NUMBER  OF  POINTERS  *) 

OFFSET_LIST_COUNT  0  NUMBER  OF  ATTRIBUTES  IN  THE  LIST  *) 

OFFSET_LIST  0  LIST  OF  ATTRIBUTES  OF  AN  ENTITY  *) 

IRC  0  RETURN.CODE  *) 

*) 

SCOMMONS:  *) 

*) 

SENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

LOOP  THROUGH  THE  ATTRIBUTES  THAT  DID  NOT  SPECIFIED  THE  *) 

FIELD  POSITION  NUMBER  *) 

PHYSICALIZE  THE  ATTRIBUTE  *) 

END  LOOP  *) 

*) 

^COMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

ORIGINATED:  14  OCTOBER  1986,  M.  H.  CHOI,  DBMA  *) 

*) 


END  %I NCLUDE  PHWOFPOS  **********************************************) 
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(*  BEGIN  %INCLUDE  PHYSICAL  ********************************************) 

(*  *) 

PROCEDURE  PHYSICAL  (  VAR  SUBSCHEMAJCEY  :  ENTKEY; 

VAR  IRC  :  RET_REC  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  PHYSICALIZE  THE  ENTITY  DEFINITIONS  OF  THE  SUBSCHEMA  *) 

(*  (  DETERMINE  ATTRIBUTE  SIZE  AND  LOCATION  )  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  SUBSCHEMAJCEY  I  SUBSCHEMA  KEY  OF  THE  ENTITY  *j 

(*  DEFINITIONS  TO  BE  PHYSICALIZE  *) 

(*  IRC  0  RETURN  J)ODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  PHYSICALIZE  THE  GLOBAL  FIELDS  *) 

(*  CREATE  A  LIST  OF  ENTITIES  INCLUSIVELY  BY  ENTITY  KIND  FOR  *) 

(*  SPECIFIC  SUBSCHEMA  *) 

(*  LOOP  THROUGH  LIST  OF  ENTITIES  *) 

(*  IF  ENTITY  IS  NOT  PHYSICALIZED  THEN  *) 

(*  LOOP  THROUGH  EACH  ATTRIBUTES  *) 

(*  IF  ATTRIBUTES  DID  NOT  SPECIFIED  THE  POSITION  THEN  *) 

(*  ATTACH  TO  THE  UNORDER  LIST  *) 

(*  ELSE  *) 

(*  ATTACH  TO  ORDER  LIST  *) 

(*  END  LOOP  *) 

(*  IF  ORDER  LIST  IS  NOT  EMPTY  THEN  *) 

(*  SORT  ORDER  LIST  :  PROCEDURE  SRTORDER;  *) 

(*  LOOP  THROUGH  THE  ORDER  LIST  *) 

(*  PHYSICALIZE  THE  ATTRIBUTE  *) 

(*  END  IF  *) 

(*  IF  UNORDER  LIST  IS  NOT  EMPTY  THEN  *) 

(*  PHYSICALIZE  THE  UNORDER  LIST  *) 

(*  END  IF  *) 

(*  END  IF  *) 

(*  ELSE  *) 

(*  IF  TOTAL  SIZE  OF  THE  GLOBAL  FIELDS  HAS  BEEN  CHANGED  *) 

(*  RECALCULATE  THE  OFFSET  OF  EACH  ATTRIBUTES  *) 

(*  END  IF  *) 
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END  LOOP 


(*  SCOMMENTS:  * 
(*  ) 

(*  SCHANGE  CONTROL:  *) 
(*  ORIGINATED:  14  0CT08ER  1986,  M.  H.  CHOI,  DBMA  *) 
(*  *) 
(*  END  %INCLUDE  PHYSICAL  **********************************************) 
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0£QJN  %INCLUDE  PSORDER  ********************************************* J 

(*  *) 
PROCEDURE  PSORDER  (  CONST  RUNTIME  :  T_RUN_TIME; 

VAR  PS_ORDER  :  T_PS_ORDER  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  DETERMINE  THE  PHYSICAL  SCHEMA  ORDER  OF  ENTITY  DEFINITION  *) 

(*  BY  ITS  OFFSET.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  RUNTIME  I  CONTAINS  THE  ENTITY  DEFINITION  *j 

(*  P$_ORDER  0  LIST  OF  ATTRIBUTES  IN  PHYSICAL  *) 

(*  ORDER  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  LOOP  THROUGH  THE  NUMBER  OF  ATTRIBUTES  IN  THE  DEFINITION  *) 

(*  INSERT  THE  OFFSET  IN  THE  PHYSICAL  SCHEMA  ORDER  TABLE  *) 

(*  END  LOOP  *) 

(*  LOOP  THROUGH  THE  NUMBER  OF  ATTRIBUTES  IN  THE  DEFINITION  *) 

(*  IF  CURRENT  OFFSET  GREATER  THAN  NEXT  OFFSET  THEN  *) 

(*  SWITCH  CURRENT  OFFSET  WITH  NEXT  OFFSET  *) 

(*  END  IF  *) 

(*  END  LOOP  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  JCHANGE  CONTROL:  *) 

(*  ORIGINATED:  09  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  enq  %l NCLUDE  PSORDER  ***********************************************) 
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(*  BEGIN  %INCLUDE  PSRABNDS  ********************************************) 


V 

PROCEDURE  PSRABNDS  (  VAR  PSRDATA  :  TEXT; 

CONST  NO_OF_DIMEN  :  INTEGER; 

CONST  STARTING.ARRAY  POSITION  :  INTEGER; 

VAR  POINTER  :  T  VARIANT_POINTER; 

CONST  ENUM  INDEX  :  INTEGER  ); 


') 


SUBPROGRAM; 

SFUNCTION: 

WRITE  LOW-BOUND  AND  UPPER-BOUND  FOR  THE  ARRAY  ATTRIBUTE 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


PSRDATA 
NO_OF  DIMENS 
STARTING.ARRAY 
POINTER 


SCOMMONS: 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  END  %INCLUDE  PSRABNDS 


*) 

*) 

*) 

*) 

*) 

*) 


PO 


0 

I 

I 

I 


PHYSICAL  SCHEMA  REPORT  SEQUENTIAL  FILE*) 


NUMBER  OF  ARRAY  DIMENSIONS 
STARTING  POSITION  IN  THE  ARRAY  TABLE 
POINTER  TO  ARRAY  INFORMATION  TABLE 


SCHANGE  CONTROL: 

ORIGINATED:  24  MARCH  1987,  M. 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

********************************************** \ 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

SPROCESSING  DESCRIPTION: 

LOOP  THROUGH  THE  NUMBER  OF  DIMENSIONS 
WRITE  LOW-BOUND  AND  UPPER-BOUND 
END  LOOP 

SCOMMENTS: 


H.  CHOI,  DBMA 
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(*  BEGIN  ^INCLUDE  PSRADB  **********************************************) 


(*  *) 
PROCEDURE  PSRADB  (  VAR  PSRDATA  :  TEXT; 

CONST  RUNTIME  :  T_RUN_TIME; 


SUBPROGRAM; 

(*  *) 

(*  {FUNCTION:  *) 

(*  WRITE  THE  BASIC  RECORD  OF  AN  ENTITY  TO  A  PHYSICAL  SCHEMA  *) 

(*  REPORT  FILE  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  — -  . . -  *) 

(*  PSRDATA  0  PHYSICAL  SCHEMA  REPORT  SEQUENTIAL  FILE*) 

(*  RUNTIME  I  CONTAINS  THE  ENTITY  DEFINITION  *) 

(*  ENTRY  I  ENTRY  ORDER  IN  THE  DEFINITION  *) 

(*  PS_ORDER  I  LIST  OF  ATTRIBUTES  IN  PHYSICAL  ORDER  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  WRITE  THE  BASIC  ATTRIBUTES  (  INTEGER,  REAL,  STRING,  LOGICAL)*) 

(*  *) 

(*  {COMMENTS:  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  ORIGINATED:  09  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  ^INCLUDE  PSRADB  ************************************************) 
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(*  BEGIN  ^INCLUDE  PSRARRAY  ********************************************) 

(*  *) 
PROCEDURE  PSRARRAY  (  VAR  PSRDATA  :  TEXT; 

CONST  RUNTIME  :  T_RUN_TIME; 

CONST  ENTRY  :  INTEGER; 

VAR  CL_HEADING_FLAG  :  BOOLEAN; 

VAR  ENUM_H EAD I NG_F LAG  ;  BOOLEAN; 

CONST  PS.ORDER  :  T_PS_ORDER  ); 

SUBPROGRAM; 


(*  *) 
(*  SFUNCTION:  *) 

(*  WRITE  THE  ARRAY  ATTRIBUTE  OF  AN  ENTITY  TO  A  SEQUENTIAL  FILE  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  PSRDATA  0  PHYSICAL  SCHEMA  REPORT  TEXT  FILE  *j 

(*  RUNTIME  I  CONTAINS  THE  ENTITY  DEFINITION  *) 

(*  ENTRY  I  ENTRY  ORDER  IN  THE  DEFINITION  *) 

(*  CL_HEADING_FLAG  I  FLAG  TO  DETERMINE  WHETHER  THE  HEADING  *) 

(*  HAS  BEEN  WRITTEN  *) 

(*  PS_ORDER  I  LIST  OF  ATTRIBUTES  IN  PHYSICAL  ORDER  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  OBTAIN  THE  NUMBER  OF  DIMENSIONS  *) 

(*  OBTAIN  THE  STARTING  POSITION  OF  ARRAY  TABLE  *) 

(*  CASE  DATA  TYPE  OF  *) 

(*  IN-ADB  :  WRITE  BASIC  DEFINITION  *) 

(*  PSRABNDS  (  EXTERNAL  SUBPROGRAM  TO  WRITE  LOW-BOUND*) 

(*  AND  UPPER-BOUND  )  *) 

(*  IN-CL  :  WRITE  BASIC  DEFINITION  *) 

(*  PSRCL  (  EXTERNAL  SUBPROGRAM  FOR  CONSTITUENT  LIST)*) 

(*  PSRABNDS  (  EXTERNAL  SUBPROGRAM  TO  WRITE  LOW-BOUND*) 

(*  AND  UPPER-BOUND  )  *) 

(*  END  CASE  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  09  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  PSRARRAY  *******^**************************************j 
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(*  BEGIN  %I NCLUDE  PSRCL  ***********************************************) 

(*  *) 
PROCEDURE  PSRCL  (  VAR  PSRDATA  :  TEXT; 

CONST  RUNTIME  :  T_RUN_TIME; 

CONST  ENTRY  :  INTEGER; 

VAR  CL_HEADING_FLAG  :  BOOLEAN; 

CONST  NO_OF_DIMEN  :  INTEGER; 

CONST  ST  ART I NG_POS I T I ON  :  INTEGER; 

VAR  ARRAY.PO INTER  :  T_VAR I ANT_PO I NT  E  R  ); 

SUBPROGRAM; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

4>(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

SFUNCTION:  *) 

WRITE  THE  CONSTITUENT  REFERENCES  OF  AN  ENTITY  TO  A  *) 

SEQUENTIAL  FILE  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

PSRDATA  0  PHYSICAL  SCHEMA  REPORT  TEXT  FILE  *) 

RUNTIME  I  CONTAINS  THE  ENTITY  DEFINITION  *) 

ENTRY  I  ENTRY  ORDER  IN  THE  DEFINITION  *) 

CL_HEADING_FLAG  I  FLAG  TO  DETERMINE  WHETHER  THE  HEADING  *) 

HAS  BEEN  WRITTEN  *) 

NO_OF_DIMEN  I  NUMBER  OF  ARRAY  DIMENSIONS  *) 

STARTING_ARRAY_PO  I  STARTING  POSITION  IN  THE  ARRAY  TABLE  *) 

ARRAY_POINTER  I  POINTER  TO  ARRAY  TABLE  *) 

*) 

SCOMMONS:  *) 

*) 

SENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

IF  NOT  ARRAY  ATTRIBUTE  THEN  *) 

WRITE  BASIC  DEFINITION  *) 

END  IF  *) 

OBTAIN  THE  NUMBER  OF  ELIGIBLE  KINDS  *) 

OBTAIN  STARTING  POSITION  OF  CONSTITUENT  LIST  TABLE  *) 

LOOP  THROUGH  THE  NUMBER  OF  ELIGIBLE  KINDS  *) 

WRITE  ELIGIBLE  KIND  IN  THE  CONSTITUENT  LIST  TABLE  *) 

END  LOOP  *) 

*) 
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(* 

SCOMMENTS: 

* 

*) 

(* 

*) 

(* 

SCHANGE  CONTROL: 

*) 

(* 

ORIGINATED: 

09  MARCH  1987,  M.  H.  CHOI,  DBMA 

*) 

(* 

*) 

(* 

END  %INCLUDE  PSRCL 

************************************************* ^ 
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(*  BEGIN  %INCLUDE  PSRENUM  *********************************************) 


(*  *) 
PROCEDURE  PSRENUM  (  VAR  PSRDATA  :  TEXT; 

CONST  RUNTIME  :  T_RUN_TIME; 

CONST  ENTRY  :  INTEGER; 

CONST  PS.ORDER  :  T_PS_ORDER; 

VAR  ENUM_H EAD I NG_F LAG  :  BOOLEAN; 

CONST  ENUM_TABLE_INDEX  :  INTEGER; 

CONST  NO_OF_VALUES  :  INTEGER  ); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  WRITE  THE  ENUMERATION  ATTRIBUTE  OF  AN  ENTITY  TO  A  *) 

(*  SEQUENTIAL  FILE  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  PSRDATA  0  PHYSICAL  SCHEMA  REPORT  SEQUENTIAL  FILE*) 

(*  RUNTIME  I  CONTAINS  THE  ENTITY  DEFINITION  *) 

(*  ENTRY  I  ENTRY  ORDER  IN  THE  DEFINITION  *) 

(*  PS_ORDER  I  LIST  OF  ATTRIBUTES  IN  PHYSICAL  ORDER  *) 

(*  ENUM_H EAD I NG_F LAG  I  FLAG  TO  DETERMINE  WHETHER  THE  HEADING  *) 

(*  HAS  BEEN  WRITTEN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  WRITE  BASIC  DEFINITION  *) 

(*  OBTAIN  THE  NUMBER  OF  ENUMERATION  VALUES  *) 

(*  OBTAIN  THE  STARTING  POSITION  OF  ENUMERATION  VALUE  TABLE  *) 

(*  LOOP  THROUGH  THE  NUMBER  OF  ENUMERATION  VALUES  *) 

(*  WRITE  THE  ENUMERATION  VALUE  FROM  THE  TABLE  *) 

(*  END  LOOP  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  09  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  PSRENUM  ***********************************************) 
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(*  BEGIN  %INCLUDE  PSREPORT  ********************************************) 


(*  *) 

PROCEDURE  PSREPORT  (  VAR  SUBSCHEMA.KEY  :  ENTKEY; 

VAR  IRC  :  RET_REC  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  FILE  PHYSICAL  SCHEMA  REPEORT  TO  SEQUENTIAL  FILE  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ==  ===  =  =  =  :s»»us::  *) 

(*  SUBSCHEMA_KEY  I  *) 

(*  IRC  0  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  09  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  % INCLUDE  PSREPORT  ********************************************** j 
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(*  BEGIN  % I NC LUD E  PSRHEAD  *********************************************) 

(*  *) 

PROCEDURE  PSRHEAD  (  VAR  PSRDATA  :  TEXT; 

CONST  RUNTIME  :  T_RUN_TIME; 

CONST  PAGE.NO  :  INTEGER  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  WRITE  THE  PHYSICAL  SCHEMA  REPORT  HEADING  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  PSRDATA  0  PHYSICAL  SCHEMA  REPORT  SEQUENTIAL  FILE*) 

(*  RUNTIME  I  CONTAINS  THE  ENTITY  DEFINITION  *) 

(*  PAGE_NO  I  NUMBER  OF  PAGE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  WRITE  THE  HEADING  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  09  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  PSRHEAD  ***********************************************) 
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(*  BEGIN  %INCLUDE  PSRINDEX 
(* 

PROCEDURE  PSRINDEX  (  VAR 


SUBPROGRAM; 


******************************************** j 

*) 

:  TEXT; 

;  INTEGER; 

;  T_ENTITY_INDEX; 

:  LISTKEY  ); 


PSRDATA 
CONST  PAGE_NO 
CONST  ENTITY_INDEX 
CONST  LIST  OF  ENTITIES 


SFUNCTION: 

WRITE  THE  TABLE  OF  CONTENTS  FOR  THE  PHYSICAL  SCHEMA  REPORT 
SDESCRIPTION  OF  ARGUMENTS: 


NAME 

PSRDATA 
PAGE_NO 
ENTITY.INDEX 
LIST  OF  ENTITIES 


0 

I 

I 

I 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  SPROCESSING  DESCRIPTION: 


I/O  DESCRIPTION 


PHYSICAL  SCHEMA  REPORT  TEXT  FILE 
PAGE  NUMBER 

ENTITY  NAME  AND  THE  KIND  NUMBER 
LIST  OF  ENTITY  KEYS  TO  SORT  LATER 
BY  THE  ENTITY  NAME 


SCOMMONS : 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 


WRITE  THE  TABLE  OF  CONTENTS  IN  ORDER  OF  ENTITY  KIND 
WRITE  THE  TABLE  OF  CONTENTS  IN  ORDER  OF  ENTITY  NAME 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  END  %INCLUDE  PSRINDEX 


SCOMMENTS: 

SCHANGE  CONTROL: 

ORIGINATED:  09  MARCH  1987,  M.  H.  CHOI, 


DBMA 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


********************************************** 


) 
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(*  %INCLUDE  REARRAY  *) 

(**) 

PROCEDURE  REARRAY (VAR  MESS  :  MESSAGE; 

VAR  LBND  :  CHAR8 ; 

VAR  HBND  :  CHAR8 ; 

VAR  FTYPE  :  CHARI 2; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET.REC); 

SUBPROGRAM; 

(**) 

(* . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  REVIEW  ARRAY  PANEL.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  =====  ===  ===========  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  LBND  I  THE  LOWER  BOUND  OF  THE  ARRAY  *) 

(*  HBND  I  THE  UPPER  BOUND  OF  THE  ARRAY  *) 

(*  FTYPE  I  THE  ARRAY  TYPE  *) 

(*  NEXT.OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  5COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

*(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  REVIEW  ARRAY  PANEL  (REARRAY)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  RECLASS  *) 

(**) 

PROCEDURE  RECLASS (VAP  MESS 
VA<  NAME 


VAP  KNUM 
VAR  CLAS 
VAR  ARRAY_SIZE 
VAR  MEMBER 
VAR  NEXT.OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 
T_NAME ; 
CHAR8 ; 
T.ARRAY23; 
INTEGER; 
T_NAME ; 
OPERATIONS; 
RET.REC); 


(**) 

(* .  . 

(* 

(*  SFUNCTION: 

(*  THIS  FUNCTION: 

(*  DISPLAYS  THE  REVIEW  CLASS  PANEL 

(* 


(* 

SDESCRIPTION  OF 

ARGUMENTS: 

(* 

NAME 

I/O 

DESCRIPTION 

(* 

*  =  =  = 

mss 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

NAME 

I 

THE  CLASS  NAME 

(* 

KNUM 

I 

THE  CLASS  KIND  NUMBER 

(* 

CLAS 

I 

THE  ARRAY  OF  MEMBERS 

(* 

ARRAY  SIZE 

I 

THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 

(* 

MEMBER 

0 

THE  MEMBER  SELECTED 

(* 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  ^COMMONS: 

(*  NONE 
(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  REVIEW  CLASS  PANEL  (RECLASS)  BY  MAKING  ISPLNK 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 

(*  TYPE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  (CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  REDEFTYP  *) 

(**) 

PROCEDURE  REDEFTYP(VAR  MESS  :  MESSAGE; 

VAR  NAME  :  CHARI 6; 

VAR  FTYPE  :  CHARI 2; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC); 

SUBPROGRAM; 

(**) 

(* .  .  . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  DEFINED  TYPE  REVIEW  PANEL  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ***  isssans****  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NAME  0  THE  NAME  OF  THE  DEFINED  TYPE  ENTERED  *) 

(*  FTYPE  0  TYPES  INTEGER, STRING, REAL. . .ETC.  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  REVIEW  DEFINED  TYPE  PANEL  (REDEFTYP)  BY  MAKING  *) 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  *) 

(*  ENUMERATED  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  REENTITY  *) 

(**) 

PROCEDURE  REENTITY (VAR  MESS 

VAR  NAME 
VAR  KNUM 
VAR  MEMBERS 
VAR  SIZE 
VAR  FNAME 
VAR  NEXT_OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 

T_NAME; 

CHAR8 ; 

T_ARRAY16; 

INTEGER; 

T.NAME; 

OPERATIONS; 

RET.REC); 


(**) 

(*  . 

(* 

(*  ^FUNCTION: 

(*  THIS  PROCEDURE  : 

(*  DISPLAYS  THE  REVIEW  ENTITY  MENU 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

Kacacas 

*** 

aBsaBXKaesssssssEs 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

NAME 

I 

THE  ENTITY  NAME 

(* 

KNUM 

I 

THE  ENTITY  KIND  NUMBER 

(* 

MEMBERS 

I 

THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM 

(* 

SIZE 

I 

THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 

(* 

FNAME 

0 

THE  MEMBER  SELECTED 

(* 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  SCOMMONS: 

(*  NONE 
(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  REVIEW  ENTITY  PANEL  (REENTITY)  BY  MAKING  ISPLNK 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 

(*  TYPE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMHENTS:  *) 
(*  NONE  *) 
(*  *) 
(*  SCHANGE  CONTROL:  *) 
(*  *) 
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(*  %INCLUDE  REENUM  *) 

(**) 

PROCEDURE  REENUM(VAR  MESS  :  MESSAGE; 

VAR  MEMBERS  :  T_ARRAY16; 


VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* .  -  - . - . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  REVIEW  ENUMERATION  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

|  if  3CCSCZ5  s*  —  *  _ SS  —  ass  —  3BS  i  j 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  MEMBERS  I  THE  ARRAY  OF  MEMBERS  TO  DISPLAY  *) 

(*  SIZE  I  THE  SIZE  OF  THE  ARRAY  OF  NUMBERS  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  $ PROCESSING  DESCRIPTION:  *) 

*(*  DISLAY  THE  REVIEW  ENUMERATION  MENU  (REENUM)  BY  MAKING  *) 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  *) 

(*  ENUMERATED  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  REFIELD  *) 
(**) 


PROCEDURE  REF I ELD (VAR  MESS 

MESSAGE; 

VAR  NAME 

T  NAME; 

VAR  POS 

CHAR8 ; 

VAR  PURP 

CHAR8 ; 

VAR  REQD 

CHAR8 ; 

VAR  DEPD 

CHARI 2; 

VAR  FTYPE 

CHARI 2; 

VAR  FLDT 

CHAR9 ; 

VAR  NEXT  OP 

OPERATIONS; 

VAR  RR 

RET  REC); 

SUBPROGRAM; 


(**) 

(*-- 

-*) 

(* 

*) 

(* 

SFUNCTION: 

*) 

(* 

THIS  PROCEDURE  : 

*) 

(* 

DISPLAYS  THE  REVIEW  FIELD  PANEL 

*) 

(* 

*) 

(* 

SDESCRIPTION  OF 

ARGUMENTS: 

*) 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

(* 

S3SS 

*) 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

*) 

(* 

NAME 

I 

THE  NAME  OF  THE  ARRAY 

*) 

(* 

PURP 

I 

THE  PURPOSE  OF  THE  ARRAY 

*) 

(* 

REQD 

I 

THE  REQUIREDNESS  OF  THE  ARRAY 

*) 

(* 

DEPD 

I 

THE  DEPENDENCE/INDEPENDENCE  OF  THE  ARRAY 

*) 

(* 

FTYPE 

I 

THE  TYPE  OF  ELEMENT  STORED  IN  THE  ARRAY 

*) 

(* 

FLDT 

I 

THE  TYPE  OF  ARRAY  (GLOBAL,  STRUCTURE, 

*) 

(* 

ENTITY) 

*) 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

*) 

(* 

OPERATION 

*) 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

*) 

(* 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

SENVIRONMENT: 

*) 

(* 

LANGUAGE: 

IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM: 

IBM  360/370/4341/4381 

*) 

(* 

DDNAMES  USED  WITH 

STANDARD  FILES: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

SEXECUTION  PROCEDURE: 

*) 

(* 

SCHEMA  EXE 

CUTIVE 

MENU  INTERFACE  ROUTINE 

*) 

(* 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{PROCESSING  DESCRIPTION: 

DISPLAY  THE  REVIEW  FIELD  PANEL  (REFIELD)  BY  MAKING  ISPLNK 
CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 
TYPE. 

{COMMENTS: 

NONE 

{CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  REFIELD1  *) 

(**) 

PROCEDURE  REFIELD1 (VAR  MESS 

VAR  FIELD.TYPE 
VAR  NAME 
VAR  KNUM 
VAR  MEMBERS 
VAR  SIZE 
VAR  FNAME 
VAR  NEXT_OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 

T.FIELDTYPE; 

T.NAME; 

CHAR8; 

T_ARRAYID; 

INTEGER; 

T_NAME ; 

OPERATIONS; 

RET  REC); 


(**) 

(* .  . 

(* 

(*  SFUNCTION: 

(*  THIS  PROCEDURE  : 

(*  DISPLAYS  THE  REVIEW  FIELD  A  MENU  OR  THE 

(*  REVIEW  FIELD  B  MENU 

(* 


(* 

SDESCRIPTION  OF  ARGUMENTS: 

(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

FIELD  TYPE 

I 

THE  TYPE  OF  FIELD  TO  BE  REVIEWED 

(* 

NAME 

I 

THE  ENTITY  NAME 

(* 

KNUM 

I 

THE  ENTITY  KIND  NUMBER 

(* 

MEMBERS 

I 

THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM 

(* 

SIZE 

I 

THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 

(* 

FNAME 

0 

THE  MEMBER  SELECTED 

(* 

NEXT.OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

(* 

OPERATION 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

(* 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  $COMMONS: 

(*  NONE 
(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  REVIEW  ENTITY  PANEL  (REFIELD1)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  09/28/87  C.  H.  MOHME  DBMA  *) 

(*  INCORPORATED  THE  SUPERTYPE  DATA  TYPE.  *) 

(*  *) 

(*  REVISED:  07/02/87  C.  H.  MOHME  DBMA  *) 

(*  CHANGED  CURSOR  POSITIONING.  *) 

(*  *) 

(*  ORIGINATED:  06/25/86  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  REFIELD1  *) 
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(*  ^INCLUDE  REFIELD2  *) 
(**) 


PROCEDURE  REFIELD2(VAR  MESS 

MESSAGE; 

VAR  NAME 

T  NAME; 

VAR  POS 

CHAR8 ; 

(*  VAR  PURP 

CHAR8 ;  *) 

VAR  REQD 

CHAR8 ; 

(*  VAR  DEPD 

CHARI 2;  *) 

VAR  COM 

CHAR50; 

VAR  FTYPE 

CHARI  2; 

VAR  FLDT 

CHAR9 ; 

VAR  NEXT  OP 

OPERATIONS; 

VAR  RR 

RET  REC); 

SUBPROGRAM; 


(**) 

(*- 

— 

-*) 

(* 

*) 

(* 

SFUNCTION: 

*) 

(* 

THIS  PROCEDURE  : 

*) 

(* 

DISPLAYS  THE  REVIEW  FIELD  PANEL 

*) 

(* 

*) 

(* 

SDESCRIPTION  OF 

ARGUMENTS: 

*) 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

(* 

=  =  =  == 

==  = 

sss&sssss&s 

*) 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

*) 

(* 

NAME 

I 

THE  NAME  OF  THE  ARRAY 

*) 

(* 

POS 

I 

THE  POSITION  OF  THE  FIELD  IN  THE  ADB 

*) 

(* 

PURP 

I 

THE  PURPOSE  OF  THE  ARRAY 

*) 

(* 

REQD 

I 

THE  REQUIREDNESS  OF  THE  ARRAY 

*) 

(* 

DEPD 

I 

THE  DEPENDENCE/INDEPENDENCE  OF  THE  ARRAY 

*) 

(* 

FTYPE 

I 

THE  TYPE  OF  ELEMENT  STORED  IN  THE  ARRAY 

*) 

(* 

FLDT 

I 

THE  TYPE  OF  ARRAY  (GLOBAL,  STRUCTURE, 

*) 

(* 

ENTITY) 

*) 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

*) 

(* 

OPERATION 

*) 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

*) 

(* 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

$ ENVIRONMENT: 

*) 

(* 

LANGUAGE: 

IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM: 

IBM  360/370/4341/4381 

*) 

(* 

DDNAMES  USED  WITH 

STANDARD  FILES: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

SEXECUTION  PROCEDURE: 

*) 

(* 

SCHEMA  EXECUTIVE 

MENU  INTERFACE  ROUTINE 

*) 

(* 

*) 
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(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  REVIEW  FIELD  PANEL  (REFIELD2)  BY  MAKING  ISPLNK 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 

(*  TYPE. 

(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  09/28/87  C.  H.  MOHME  DBMA 

(*  INCORPORATED  THE  SUPERTYPE  DATA  TYPE. 

(* 

(*  REVISED:  08/13/87  C.  H.  MOHME  DBMA 

(*  CHANGED  PANEL  OPTION  NUMBERS;  CHANGED  FIELD  ADB  DATA;  ADDED 

(*  LIST  AND  SET.  NOTE:  THE  LIST  AND  SET  DATA  TYPES  ARE  IMPLE- 

(*  MENTED  IN  THE  SOFTWARE  AS  AN  ARRAY.  A  FIELD  WAS  ADDED  TO  THE 

(*  ARRAY  ADB  TO  SPECIFY  WHETHER  THE  ARRAY  IS  A  CONCEPTUAL  ARRAY, 

(*  LIST,  OR  SET. 

(* 

(*  REVISED:  07/02/87  C.  H.  MOHME  DBMA 

(*  CHANGED  CURSOR  POSITIONING. 

(* 

(*  ORIGINATED:  07/07/86  C.  H.  MOHME  DBMA 

(* 

(* . 

(* 

(*END- . - . 

(*  END  %INCLUDE  REFIELD2  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 

*) 

-*) 
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(*  %INCLUDE  REFSUP  *) 

(**) 

PROCEDURE  REFSUP(VAR  IRC 

VAR  TRANS_STACK 
VAR  TOKEN.VALUE 

SUBPROGRAM; 

(**) 


RET_REC ; 

TRANS PTR; 
T_TOKEN_VALUE) ; 


(*- 
(* 

(* 

(* 

(* 

(* 

(*  {DESCRIPTION  OF  ARGUMENTS: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*\ 

> 

*) 

*) 

*) 

*> 

*) 

*) 

') 

*) 

*) 

*) 

*) 

.* 


(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(*- 


{FUNCTION: 

Batch  Interface  routine  that  attempts  to  resolve  a  reference 
to  a  supertype. 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

TRANS  STACK 

I/O 

TRANSACTION  STACK 

(* 

TOKEN  VALUE 

I/O 

TOKEN  VALUE  FROM  BATCH  INPUT 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  {PROCESSING  DESCRIPTION: 

(* 

INITIALIZE  VARIABLES 

DETERMINE  IF  THE  SUPERTYPE  HAS  ALREADY  BEEN  MODELED. 

IF  SUPERTYPE  MODELED,  PUSH  ITS  KEY  ONTO  THE  TRANSACTION  STACK. 
IF  SUPERTYPE  NOT  MODELED,  PUSH  UNRESOLVED  TRANSACTION  ONTO  THE 
TRANSACTION  STACK. 


{COMMONS: 

{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  BATCH  INPUT 


{COMMENTS: 

{CHANGE  CONTROL: 
ORIGINATED:  09/29/87 


C.  H.  MOHME 


DBMA 


) 
*) 
-*) 


(*  " 

(*END . 

(*  END  %I NCLUDE  REFSUP  *) 
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(*  %1NCLUDE  REINTGR  *) 

(**) 

PROCEDURE  REINTGR(VAR  MESS  :  MESSAGE; 

VAR  PREC  :  CHAR8; 

VAR  NEXT  OP  :  OPERATIONS; 

VAR  RR  :  RET.REC); 

SUBPROGRAM; 

(**) 

(* .  .  . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  REVIEW  INTEGER  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  mmmm  mmm  isssszzzsxc 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  PREC  0  THE  PRECISION  OF  THE  INTEGER  ENTERED  *) 

(*  NEXT  OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  JCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  REVIEW  INTEGER  PANEL  (REINTGR)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  RELIST  *) 

(**) 

PROCEDURE  RELIST (VAR  MESS  :  MESSAGE; 

VAR  MIN  :  CHAR8; 

VAR  MAX  ;  CHAR8 ; 

VAR  FTYPE  :  CHARI 2; 

VAR  NEXT_OP  :  OPERATIONS; 
VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 


(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  REVIEW  LIST  PANEL.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ===-  ===  ==*«B=a*=x*  * ) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  MIN  I  THE  MINIMUM  NUMBER  OF  OCCURRENCES  IN  THE  *) 

(*  LIST  *) 

(*  MAX  I  THE  MAXIMUM  NUMBER  OF  OCCURRENCES  IN  THE  *) 

(*  LIST  *) 

(*  FTYPE  I  THE  LIST  TYPE  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  REVIEW  LIST  PANEL  (RELIST)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  *) 
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(* 

(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  HADE. 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
(*  NARATION  ON  THE  NEXT  LINE. 

(* 

(*  REVISED:  MM/DD/YY  I.  M.  APERSON  GROUP_ID 

(*  DESCRIPTION  OF  THE  CHANGE  MADE 
(* 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA 

(* 

(* .  . 

(* 

(*END . 

(*  END  %INCLUDE  RELIST  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  REPNTR  *) 

(**) 

PROCEDURE  REPNTR(VAR  MESS  :  MESSAGE; 

VAR  MEMBERS  :  T_ARRAY23; 

VAR  ARRAY_SIZE  :  INTEGER; 

VAR  MEMBER  :  T_NAME ; 

VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET.REC); 

SUBPROGRAM; 

(**) 

(* .  .  . 

(* 

(*  SFUNCTION: 

(*  THIS  FUNCTION: 

(*  DISPLAYS  THE  REVIEW  POINTER  MENU 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(*  MEMBERS  I  THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM 

(*  ARRAY_SIZE  I  THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 

(*  MEMBER  0  THE  MEMBER  SELECTED 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT 

(*  OPERATION 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  $ COMMONS : 

(*  NONE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  REVIEW  POINTER  PANEL  (REPNTR)  BY  MAKING  ISPLNK 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 

(*  TYPE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  REREAL  *) 

(**) 

PROCEDURE  REREAL (VAR  MESS  :  MESSAGE; 

VAR  SIZE  :  CHAR8; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* .  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION;  *) 

(*  DISPLAYS  THE  REVIEW  REAL  PANEL  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  * ) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  SIZE  0  THE  SIZE  OF  THE  REAL  ENTERED  *) 

(*  NEXT.OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  {COMMONS;  *) 

(*  NONE  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  REVIEW  REAL  PANEL  (REREAL)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  NONE  *) 

(*  -  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  RESET  *) 

(**) 

PROCEDURE  RESET (VAR  MESS  :  MESSAGE; 

VAR  MIN  :  CHAR8 ; 

VAR  MAX  :  CHAR8; 

VAR  FTYPE  :  CHARI 2; 

VAR  NEXT_OP  :  OPERATIONS; 
VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 


(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  REVIEW  SET  PANEL.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  MIN  I  THE  MINIMUM  NUMBER  OF  OCCURRENCES  IN  THE  *) 

(*  LIST  *) 

(*  MAX  I  THE  MAXIMUM  NUMBER  OF  OCCURRENCES  IN  THE  *) 

(*  LIST  *) 

(*  FTYPE  I  THE  SET  TYPE  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  REVIEW  SET  PANEL  (RESET)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 
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(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  I.  M.  APERSON  GROUP_ID  *) 

(*  DESCRIPTION  OF  THE  CHANGE  MADE  *) 

(*  *) 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . - . *) 

(*  *) 

(*END . - . *) 

(*  END  %INCLUDE  RESET  *) 
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(*  %INCLUDE  RESTRING  *) 

(**) 

PROCEDURE  RESTRING(VAR  MESS  :  MESSAGE; 

VAR  SLEN  :  CHAR8 ; 

VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* . *) 

(*  *) 

(*  {FUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  REVIEW  STRING  PANEL  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  SIZE  0  THE  SIZE  OF  THE  STRING  ENTERED  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  REVIEW  STRING  PANEL  (RESTRING)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  RESTRUC  *) 

(**) 

PROCEDURE  RESTRUC (VAR  MESS 

VAR  MEMBERS 
VAR  SIZE 
VAR  MEMBER 
VAR  NEXT  OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 

T_ARRAY16; 

INTEGER; 

T_NAME; 

OPERATIONS; 

RET_REC) ; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


. . . *) 

*) 

SFUNCTION:  *) 

THIS  FUNCTION:  *) 

DISPLAYS  THE  REVIEW  STRUCTURE  PANEL  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 


NAME 

I/O 

DESCRIPTION 

*) 

=  =  ==  = 

=  =  = 

ii 

n 

ii 

ii 

ii 

ii 

ti 

n 

n 

ii 

ii 

*) 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

*) 

MEMBERS 

I 

THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM 

*) 

SIZE 

I 

THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 

*) 

MEMBER 

0 

THE  MEMBER  SELECTED 

*) 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

*) 

*) 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

*) 

*) 

*) 

SCOMMONS:  *) 

NONE  *) 

*) 

$ ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

DDNAMES  USED  WITH  STANDARD  FILES:  *) 

NONE  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

DISPLAY  THE  REVIEW  STRUCTURE  PANEL  (RESTRUC)  BY  MAKING  *) 

ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  *) 

ENUMERATED  TYPE.  *) 

*) 

SCOMMENTS:  *) 

NONE  *) 

*) 

SCHANGE  CONTROL:  *) 

*) 
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(*  %I NCLUDE  RESUBSCM  *) 

(**) 

PROCEDURE  RESUBSCM(VAR  MESS  :  MESSAGE; 

VAR  NAME  :  T_NAME; 

VAR  MEMBERS  :  T_ARRAY23; 


VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* . — . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  REVIEW  SUBSCHEMA  PANEL  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NAME  I  THE  SUBSCHEMA  NAME  *) 

(*  MEMBERS  I  THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM  *) 

(*  SIZE  I  THE  SIZE  OF  THE  ARRAY  OF  MEMBERS  *) 

(*  MEMBER  0  THE  MEMBER  SELECTED  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  $PROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  REVIEW  SUBSCHEMA  PANEL  (RESUBSCM)  BY  MAKING  *) 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  *) 

(*  ENUMERATED  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  $CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  RESUPTYP  *) 

(**) 

PROCEDURE  RESUPTYP (VAR  MESS 

VAR  NAME 
VAR  NEXT_OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 
T_NAME ; 
OPERATIONS; 
RET_REC) ; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

•  (* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  PROCEDURE  : 

DISPLAYS  THE  REVIEW  SUPERTYPE  MENU 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

NAME  I  THE  SUPERTYPE  NAME 

NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT 

OPERATION 

RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

SCOMMONS: 

NONE 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 

SEXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

DISPLAY  THE  REVIEW  SUPERTYPE  PANEL  (RESUPTYP)  BY  MAKING 
ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN 
ENUMERATED  TYPE. 

SCOMMENTS: 

NONE 

SCHANGE  CONTROL: 

REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  09/28/87  C.  H.  MOHME  DBMA  *) 

(*  INCORPORATED  THE  SUPERTYPE  DATA  TYPE.  *) 

(*  *) 

(*  REVISED:  07/02/87  C.  H.  MOHME  DBMA  *) 

(*  CHANGED  CURSOR  POSITIONING.  *) 

(*  *) 

(*  ORIGINATED:  06/25/86  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . --*) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  RESUPTYP  *) 
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(*  BEGIN  %INCLUDE  RSCPAI 
(* 

PROCEDURE  RSCPAI  (  VAR 


EXTERNAL 


i ********************************************** j 

*) 

VAR  OUT  PUT_VALUE  :  T_DATA_VALUE; 

CONST  INPUTJ/ALUE  :  T_ARRAY_INDEX; 

CONST  SIZE  OF_VALUE  :  INTEGER) ; 


SFUNCTION: 

COPY  THE  ARRAY  INDEX  TABLE  INFORMATION  INTO  THE  RUN-TIME 
SUBSCHEMA. 


SDESCRIPTION  OF  ARGUMENTS: 
NAME 

SSSS 

INPUT_VALUE 

OUTPUT.VALUE 

SIZE_OF_VALUE 

SCOMMONS: 


DESCRIPTION 

INPUT  VALUE  OF  ARBITRARY  SIZE 
OUTPUT  VALUE  OF  ARBITRARY  SIZE 
SIZE  OF  VALUE  TO  BE  COPIED 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

RUN-TIME  SUBSCHEMA 

SPROCESSING  DESCRIPTION: 

CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  ARRAY  TABLE  INFO 
SCOMMENTS: 

SCHANGE  CONTROL: 

ORIGINATED:  01  OCTOBER  1986,  M.  H.  CHOI,  DBMA 


END  %INCLUDE  RSCPAI  ************************************************j 


1-245 


PS  560130000A 
22  December  1987 


(*  BEGIN  %INCLUDE  RSCPAT  **********************************************) 

(*  *) 

PROCEDURE  RSCPAT  (  VAR  OUTPUT_VALUE  :  T_DATA_VALUE; 

CONST  INPUT.VALUE  :  T_ARRAY_LIST ; 

CONST  SIZE_OF_VALUE  :  INTEGER); 

EXTERNAL; 

(*  *) 

(*  SFUNCTION:  *) 

(*  COPY  THE  SIZE  AND  THE  LOWER  BOUND  OF  THE  ARRAY  INTO  THE  *) 

(*  RUN-TIME  SUBSCHEMA.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  INPUT_VALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  OUTPUT.VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  SIZE_OF_VALUE  I  SIZE  OF  VALUE  TO  BE  COPIED  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  RUN-TIME  SUBSCHEMA  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  THE  SIZE  AND  THE  *) 

(*  LOWER  BOUND  OF  THE  ARRAY  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  01  OCTOBER  1986,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  RSCPAT  ************************************************) 
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(*  BEGIN  %INCLUDE  RSCPCI  ********************************************** j 


(*  *) 

PROCEDURE  RSCPCI  (  VAR  OUTPUT_VALUE  :  T_DATA_VALUE; 

CONST  INPUT_VALUE  :  T_CL_INDEX; 

CONST  SIZE_OF_VALUE  :  INTEGER); 

EXTERNAL; 

(*  *) 

(*  SFUNCTION:  *) 

(*  COPY  THE  POINTER  INDEX  TABLE  INFORMATION  INTO  THE  *) 

(*  RUN-TIME  SUBSCHEMA.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  INPUT_VALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  OUTPUT.VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  SIZE  OF_VALUE  I  SIZE  OF  VALUE  TO  BE  COPIED  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  RUN-TIME  SUBSCHEMA  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  CL  INDEX  INFO  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  29  JANUARY  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  RSCPCI  ************************************************) 
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(*  BEGIN  %INCLUDE  RSCPCT  **********************************************) 

(*  *) 

PROCEDURE  RSCPCT  (  VAR  OUTPUT_VALUE  :  T_DATA_VALUE; 

CONST  INPUT.VALUE  :  T_CL_KINDS; 

CONST  SIZE_OF_VALUE  :  INTEGER); 

EXTERNAL; 

(*  *) 

(*  $FUNCTION:  *) 

(*  COPY  THE  KINDS  OF  POINTERS  INTO  THE  RUN-TIME  SUBSCHEMA.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MM  =  =  =  MMMMMS  *) 

(*  INPUT_VALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  OUTPUT_VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  SIZE_OF_VALUE  I  SIZE  OF  VALUE  TO  BE  COPIED  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $EXECUTION  PROCEDURE:  *) 

(*  RUN-TIME  SUBSCHEMA  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  KINDS  OF  POINTER  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  29  JANUARY  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  RSCPCT  ************************************************) 
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(*  BEGIN  %INCLUDE  RSCPEI  ********************************************** 


V 

PROCEDURE  RSCPEI  (  VAR  OUTPUT_VALUE 

CONST  INPUT_VALUE 
CONST  SIZE_OF_VALUE 

EXTERNAL; 


T_DATA_VALUE; 
T_ENUM_ INDEX; 
INTEGER); 


SFUNCTION: 

COPY  THE  ENUMERATION  INDEX  TABLE  INFORMATION  INTO  THE 
RUN-TIME  SUBSCHEMA. 


SDESCRIPTION  OF  ARGUMENTS: 
NAME 


INPUT_VALUE 
OUTPUT_VALUE 
SIZE  OF  VALUE 


SCOMMONS: 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  END  %INCLUDE  RSCPEI 


I/O  DESCRIPTION 

I  INPUT  VALUE  OF  ARBITRARY  SIZE 
0  OUTPUT  VALUE  OF  ARBITRARY  SIZE 
I  SIZE  OF  VALUE  TO  BE  COPIED 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

RUN-TIME  SUBSCHEMA 

SPROCESSING  DESCRIPTION: 

CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  ENUMERATION  INFO 
SCOMMENTS: 

SCHANGE  CONTROL: 

ORIGINATED:  01  OCTOBER  1986,  M.  H.  CHOI,  DBMA 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

•k 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


************************************************ 


) 

) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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(*  BEGIN  % INCLUDE  RSCPET  ********************************************** j 

(*  *) 

PROCEDURE  RSCPET  (  VAR  OUTPUT_VALUE  :  T_DATA_VALUE; 

CONST  INPUT_VALUE  :  ^ENUMERATION; 

CONST  SIZE_OF_VALUE  :  INTEGER); 

EXTERNAL; 

(*  *) 

(*  SFUNCTION:  *) 

(*  COPY  THE  ENUMERATION  VALUES  INTO  THE  RUN-TIME  SUBSCHEMA.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS;  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  INPUT_VALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  OUTPUT_VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  SIZE_OF_VALUE  I  SIZE  OF  VALUE  TO  BE  CC  I  ED  *) 

(*  *) 

(*  $COMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  RUN-TIME  SUBSCHEMA  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  ENUMERATION  TABLE  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  16  MAY  1986,  GEORGE  A.  WHITE,  FRMI ,  REORGANIZED  *) 

(*  GLOBAL  DECLARATIONS  INTO  'NVITYP'.  *) 

(*  ORIGINATED:  15  OCTOBER  1985,  G.  A.  WHITE,  FRMI  *) 

(*  *) 

(*  END  %INCLUDE  RSCPET  ************************************************) 
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(★  BEGIN  %INCLUDE  RSFILE  ********************************************** J 


(*  *) 

PROCEDURE  RSFILE  (  VAR  SUBSCHEMAJCEY  :  ENTKEY ; 

VAR  RETURN.CODE  :  EXT_RET_CODE  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  FILE  RUN-TIME  SUBSCHEMA  INTO  SEQUENTIAL  FILE  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  RTS_RETURN_CODE  0  RETURN  CODE  *j 

(*  =0  SUCCESS  *) 

(*  >0  CRITICAL  ERROR:  *) 

(*  1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  RUN-TIME  SUBSCHEMA  *) 

(*  CALLED  FROM  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  OPEN  DATAFILE  *) 

(*  OPEN  INXFILE  *) 

(*  LOOP  THROUGH  LIST  OF  SUBSCHEMA  *) 

(*  GET  RUN  TIME  SUBSCHEMA  (  RSGRSM  )  *) 

(*  WRITE  KIND,  RECORD  NO,  OFFSET,  RUNTIME_SIZE  INTO  INXFILE  *) 

(*  FOR  1  TO  RUNTIME.SIZE  *) 

(*  WRITE  RUNJTIME  SUBSCHEMA  INTO  DATAFILE  *) 

(*  END  LOOP  *) 

(*  CLOSE  DATAFILE  *) 

(*  CLOSE  INXFILE  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  27  JANUARY  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  RSFILE  ************************************************) 
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(*  BEGIN  %INCLUDE  RSGTSM  ********************************************** 
(*  * 


PROCEDURE  RSGTSM  (  CONST 

ENTITY  KEY 

ENTKEY; 

VAR 

RUN  TIME 

T  RUN  TIME; 

VAR 

RUN  TIME  SIZE 

INTEGER; 

VAR 

RTS  RETURN  CODE 

EXT  RET  CODE  ); 

SUBPROGRAM; 


) 

) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{FUNCTION: 

BUILD  RUN-TIME  SUBSCHEMA  FROM  SCHEMA  MODEL 


{DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


ENTITYJCEY  I 

RTS_RETURN_CODE  0 

RUNJfIME  0 

RUN  TIME  SIZE  0 


KEY  FROM  SCHEMA  MODEL  WHICH  THE 
TRANSLATION  WILL  BE  PERFORMED. 

RETURN  CODE 

=  0  SUCCESS 

>  0  CRITICAL  ERROR: 

1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA 
RUN-TIME  SUBSCHEMA  WHICH  CONTAINS  THE 
ENTITY  DEFINITION,  ALONG  WITH  ANY 
ENUMERATION  VALUES,  IN  A  COMPACTED  FORM. 
THE  NUMBER  OF  BYTES  ACTUALLY  REQUIRED 
FOR  THE  COMPACTED  RUN-TIME  SUBSCHEMA. 


{COMMONS: 

{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


{EXECUTION  PROCEDURE: 

RUN-TIME  SUBSCHEMA 

CALLED  FROM  THE  NAME/VALUE  INTERFACE 


{PROCESSING  DESCRIPTION: 

TRANSLATE  SCHEMA  MODEL  ENTRY  INTO  ENTITY  ATTRIBUTES 
AND  ENUMERATION  VALUES  AND  ARRAY  INFORMATION 

IF  THERE  WERE  ANY  ENUMERATION  ATTRIBUTES  THEN 

CALCULATE  THE  STARTING  POSITION  OF  THE  ENUMERATION 
INDEX  TABLE  AND  STORE  INTO  RUN-TIME  SUBSCHEMA 
DETERMINE  THE  ACTUAL  SIZE  OF  THE  ENUMERATION  INDEX  TABLE 
COPY  ENUMERATION  INDEX  TABLE  INFORMATION  INTO  RUN-TIME 

SUBSCHEMA 

END  IF 

IF  THERE  WERE  ANY  ENUMERATION  ATTRIBUTES  THEN 

CALCULATE  THE  STARTING  POSITION  OF  THE  ENUMERATION 
VALUE  TABLE  AND  STORE  INTO  RUN-TIME  SUBSCHEMA 
DETERMINE  THE  ACTUAL  SIZE  OF  THE  ENUMERATION  VALUE  TABLE 
COPY  THE  ENUMERATION  VALUES  INTO  THE  RUN-TIME  SUBSCHEMA 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ENDIF  *) 

(*  IF  THERE  WERE  ANY  ARRAY  ATTRIBUTES  THEN  *) 

(*  CALCULATE  THE  STARTING  POSITION  OF  THE  ARRAY  INDEX  TABLE  *) 

(*  AND  STORE  INTO  RUN-TIME  SUBSCHEMA  *) 

(*  DETERMINE  THE  ACTUAL  SIZE  OF  THE  ARRAY  INDEX  TABLE  *) 

(*  COPY  ARRAY  TABLE  INDEX  INFORMATION  INTO  RUN-TIME  SUBSCHEM*) 

(*  ENDIF  *) 

(*  IF  THERE  WERE  ANY  ARRAY  ATTRIBUTES  THEN  *) 

(*  CALCULATE  THE  STARTING  POSITION  OF  THE  ARRAY  LIST  TABLE  *) 

(*  AND  STORE  INTO  RUN-TIME  SUBSCHEMA  *) 

(*  DETERMINE  THE  ACTUAL  SIZE  OF  THE  ARRAY  LIST  TABLE  *) 

(*  COPY  ARRAY  LIST  INFORMATION  INTO  RUN-TIME  SUBSCHEMA  *) 

(*  ENDIF  *) 

(*  CALCULATE  THE  SIZE  OF  THE  RUN-TIME  SUBSCHEMA  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  11  AUGUST  1986,  M.  H.  CHOI,  FRMI  *) 

(*  *) 


(*  END  %INCLUDE  RSGTSM  ************************************************) 
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(*  BEGIN  %INCLUDE  RSMASKND  ********************************************j 


(*  *) 

PROCEDURE  RSMASKND  (  VAR  ENTITY  :  T.SCHEMA  ); 

SUBPROGRAM; 

(*  *) 

(*  SFUNCTION:  *) 

(*  INSERT  THE  MODEL  ACCESS  SOFTWARE (MAS)  ATTRIBUTES  (  KIND,  *) 

(*  LENGTH,  SYSUSE  )  INTO  A  RUN-TIME  SUBSCHEMA.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTITY  0  RUN-TIME  SUBSCHEMA  ENTITY  DEFINITION.*) 

(*  *) 

(*  SCOMMONS:  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  THE  NAME/VALUE  INTERFACE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  INSERT  KIND,  LENGTH,  SYSUSE  ATTRIBUTES  INTO  A  RUN-TIME  *) 

(*  SUBSCHEMA  ENTITY  DEFINITION.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  15  SEPTEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  RSMASKND  ********************************************** 
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(*  BEGIN  %INCLUDE  RSTRGF 
(* 

PROCEDURE  RSTRGF  (  CONST 

VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


********************************************** j 

*) 


ENTITYJCEY 

ENTITY 

ENUM 

ENUM_INDEX 
ARRAY_LIST 
ARRAY_INDEX 
CL_INDEX 
CL  LIST 


ENTKEY ; 

T_SCHEMA; 

T_ENUM_COMPACTOR; 

T_ENUM_INX_COMPACTOR; 

T_ARRAY_L I ST_COMPACTOR ; 

T_ARRAY_INX_COMPACTOR; 

T_CL_INX_COMPACTOR; 

T_CL_KINDS_COMPACTOR  ) ; 


SFUNCTION: 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


ENTITY  KEY 


RTS  RETURN  CODE  0 


RUN  TIME 


RUN  TIME  SIZE 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*  END  %INCLUDE  RSTRGF 


I 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


SCOMMONS: 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

RUN-TIME  SUBSCHEMA 

CALLED  FROM  THE  NAME/VALUE  INTERFACE 


KEY  FROM  SCHEMA  MODEL  WHICH  THE 
TRANSLATION  WILL  BE  PERFORMED. 

RETURN  CODE 
=  0  SUCCESS 
>0  CRITICAL  ERROR: 

1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA 
RUN-TIME  SUBSCHEMA  WHICH  CONTAINS  THE 
ENTITY  DEFINITION,  ALONG  WITH  ANY 
ENUMERATION  VALUES,  IN  A  COMPACTED  FORM.*) 

*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


THE  NUMBER  OF  BYTES  ACTUALLY  REQUIRED 
FOR  THE  COMPACTED  RUN-TIME  SUBSCHEMA. 


$PROCESSING  DESCRIPTION: 


SCOMMENTS: 

SCHANGE  CONTROL: 
ORIGINATED: 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


20  NOVEMBER  1986,  M.  H.  CHOI,  DBMA 
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(*  BEGIN  %INCLUDE  RSTRSM  ********************************************** 
(* 


PROCEDURE  RSTRSM  (  CONST 

ENTITY  KEY 

VAR 

ENTITY 

VAR 

ENUM 

VAR 

ENUM  INDEX 

VAR 

ARRAY  LIST 

VAR 

ARRAY  INDEX 

VAR 

CL  INDEX 

VAR 

CL  LIST 

VAR 

RTS  RETURN  I 

SUBPROGRAM; 

ENTKEY; 

T.SCHEMA; 
T_ENUM_COMPACTOR ; 
T_ENUM_INX_COMPACTOR; 
T_ARRAY_L I ST.COMPACTOR ; 
T_ARRAY_INX_COMPACTOR ; 
T_CL_INX_COMPACTOR; 

T_C  L_K I NDS_COMPACTOR ; 
INTEGER  ); 


) 

) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

'* 

V 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{FUNCTION: 

TRANSLATE  A  SCHEMA  MODEL  ENTRY  INTO  A  RUN-TIME  SUBSCHEMA 
ENTITY,  ENUMERATION  TABLE  AND  ARRAY  INFO  TABLE. 


{DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


ARRAY_INDEX 

ARRAY_LIST 

ENUM 

ENUM_INDEX 

ENTITY 

ENTITY_KEY 

RTS_RETURN_CODE 


0  RUN-TIME  SUBSCHEMA  ARRAY  TABLE  INDEX 
INFORMATION. 

0  RUN-TIME  SUBSCHEMA  ARRAY  TABLE 
AND  COMPACTION  INFORMATION. 

0  RUN-TIME  SUBSCHEMA  ENUMERATION  TABLE 
AND  COMPACTION  INFORMATION. 

0  RUN-TIME  SUBSCHEMA  ENUMERATION  TABLE 
INDEX  INFORMATION. 

0  RUN-TIME  SUBSCHEMA  ENTITY  DEFINITION. 

I  KEY  FROM  SCHEMA  MODEL  WHICH  THE 
TRANSLATION  WILL  BE  PERFORMED. 

0  RETURN  CODE 
=  0  SUCCESS 
>  0  CRITICAL  ERROR: 


{COMMONS: 

{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

{EXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

CALLED  FROM  THE  NAME/VALUE  INTERFACE 

{PROCESSING  DESCRIPTION: 

OBTAIN  ENTITY  NAME  AND  KIND  FROM  SCHEMA  MODEL 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  STORE  ENTITY  NAME  AND  KIND  INTO  RUN-TIME  SUBSCHEMA  *) 
(*  LOOP  THROUGH  SCHEMA  MODEL  ENTRIES  *) 
(*  OBTAIN  ATTRIBUTE  ENTRY  FROM  SCHEMA  MODEL  *} 
(*  CASE  DATA  TYPE  OF  *) 
(*  INTEGER,  REAL,  STRING,  LOGICAL  *) 


(*  :  APPL I CAT ION_DATA_BLOCK_ATTRI BUTE ,  PROCEDURE  (1)  *) 
(*  POINTER  :  CONST I TUENT_L I ST_ATTR I BUTE ,  PROCEDURE  (2)  *) 
(*  ARRAY  :  ARRAY_ATTRIBUTE,  PROCEDURE  (3)  *) 
(*  DEFINED_TYPE  :  DEFINED_TYPE_ATTRIBUTE,  PROCEDURE  (4)  *) 
(*  OTHERWISE  :  ERROR  MESSAGE  =  'UNKNOWN  ATTRIBUTE  TYPE'  *) 


(*  ENDCASE  *) 

(*  ENDLOOP  *) 

%PAGE 

(*  PROCEDURE  (1)  :  APPL I CAT I ON_DATA  BLOCK_ATTRIBUTE  *) 

(*  STORE  ATTRIBUTE  DEFINITION  FOR  TYPE  IN  SCHEMA  MODEL  ENTRY  *) 

(*  *) 

(*  PROCEDURE  (2)  :  CONSTITUENT^ I ST_ATTRI BUTE  *) 

(*  OBTAIN  CONSTITUENT  LIST  POSITION  FROM  SCHEMA  MODEL  *) 

(*  STORE  ATTRIBUTE  DEFINITION  FOR  TYPE  IN  SCHEMA  MODEL  ENTRY  *) 

(*  *) 

(*  PROCEDURE  (3)  :  ARRAY_ATTRIBUTE  *) 

(*  DETERMINE  THE  NUMBER  OF  ARRAY  DIMENSIONS  *) 

(*  STORE  ARRAY  INFORMATION  INTO  RUN-TIME  SUBSCHEMA  *) 

(*  STORE  TABLE  INDEX  POSITION  FOR  ARRAY  LIST  TABLE  AND  THE  *) 

(*  NUMBER  OF  DIMENSIONS  INTO  ARRAY  INDEX  TABLE  *) 

(*  CALCULATE  TOTAL  SIZE  OF  THE  ARRAY  AND  STORE  INTO  ARRAY  *) 

(*  INDEX  TABLE  *) 

(*  FOR  THE  NUMBER  OF  ARRAY  DIMENSIONS  *) 

(*  CALCULATE  THE  SIZE  OF  EACH  ARRAY  *) 

(*  STORE  SIZE  AND  LOW-BOUND  INTO  ARRAY  LIST  TABLE  *) 

(*  END  LOOP  *) 

(*  *) 

(*  PROCEDURE  (4)  :  DEFINED_TYPE_ATTRIBUTE  *) 

(*  OBTAIN  DATA  TYPE  FOR  DEFINED  TYPE  ATTRIBUTE  IN  SCHEMA  MODEL  *) 

(*  CASE  DATATYPE  OF  *) 

(*  INTEGER,  REAL,  STRING,  LOGICAL  *) 


(*  :  APPLICATION_DATA_BLOCK_ATTRIBUTE,  PROCEDURE  (1)  *) 
(*  ENUMERATION  :  ENUMERAT ION_ATTR I BUTE ,  PROCEDURE  (5)  *) 
(*  POINTER  :  CONSTITUENT  LIST_ATTRIBUTE,  PROCEDURE  (2)  *) 
(*  ARRAY  :  ARRAY_ATTRIBUTE,  PROCEDURE  (3)  *) 
(*  OTHERWISE  :  ERROR  MESSAGE  =  'UNKNOWN  ATTRIBUTE  TYPE'  *) 


(*  ENDCASE  *) 

(*  *) 
(*  PROCEDURE  (5)  :  ENUMERAT I ON_ATTR I BUTE  *) 

(*  STORE  ATTRIBUTE  DEFINITION  FOR  ENUMERATION  TYPE  *) 

(*  OBTAIN  NUMBER  OF  ENUMERATION  VALUES  FROM  SCHEMA  MODEL  *) 

(*  STORE  NUMBER  OF  ENUMERATION  VALUE  IN  ENUMERATION  INDEX  TABLE*) 

(*  STORE  ENUMERATION  VALUE  TABLE  INDEX  POSITION  IN  ENUMERATION  *) 

(*  INDEX  TABLE  *) 
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(*  LOOP  THROUGH  ENUMERATION  VALUES  *) 

(*  OBTAIN  ENUMERATION  VALUE  FROM  SCHEMA  MODEL  *) 

(*  STORE  ENUMERATION  VALUE  IN  ENUMERATION  VALUE  TABLE  *) 

(*  END  LOOP  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  06  AUGUST  1986,  M.  H.  CHOI,  FRMI  *) 

(*  *) 


(*  END  % INCLUDE  RSTRSM  ************************************************ J 
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(*  BEGIN  %INCLUDE  RSTRST  ********************************************** 

* 


PROCEDURE  RSTRST  (  CONST 

SUBTYPE  KEY 

VAR 

ENTITY 

VAR 

ENUM 

VAR 

ENUM  INDEX 

VAR 

ARRAY  LIST 

VAR 

ARRAY  INDEX 

VAR 

CL  INDEX 

VAR 

CL  LIST 

VAR 

IRC 

SUBPROGRAM; 

ENTKEY; 

T_SCHEMA; 
T_ENUM_COMPACTOR; 
T_ENUM_INX_COMPACTOR; 
T_ARRAY_L I ST.COMPACTOR ; 
T_ARRAY_INX_COMPACTOR; 
T_CL_INX_COMPACTOR; 
T_CL_KINDS_COMPACTOR ; 
RET_REC  ); 


(* 

(*  SFUNCTION: 

(*  TRANSLATE  SUPER  TYPE  INTO  A  RUN-TIME  SUBSCHEMA 

(* 

(*  $DESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

* 

* 

SUBTYPE  KEY 

I 

KEY  FROM  SCHEMA  MODEL  WHICH  THE 

* 

(* 

TRANSLATION  WILL  BE  PERFORMED. 

★ 

(* 

>  0  CRITICAL  ERROR: 

* 

(* 

ENTITY 

0 

RUN-TIME  SUBSCHEMA  WHICH  CONTAINS  THE 

* 

(* 

ENTITY  DEFINITION 

* 

(* 

ENUM 

0 

ENUMERATION  VALUES 

* 

(* 

ENUM  INDEX 

0 

ENUMERATION  INDEX  TABLE 

* 

(* 

ARRAY  LIST 

0 

LOWER  BOUND  AND  ARRAY  SIZE 

* 

(* 

ARRAY  INDEX 

0 

ARRAY  INDEX  TABLE 

* 

(* 

CL  INDEX 

0 

CONSTITUENT  INDEX  TABLE 

* 

(* 

CL  LIST 

0 

CONSTITUENT  KINDS 

* 

(* 

IRC 

0 

RETURN  CODE 

★ 

(* 

=  0  SUCCESS 

* 

(* 

(* 

(* 

(* 

* 

$ COMMONS: 

* 

* 

$ ENVIRONMENT: 

* 

(* 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

★ 

(* 

(* 

(* 

HARDWARE  SYSTEM 

:  IBM  360/370/4341/4381 

★ 

* 

SEXECUTION  PROCEDURE 

; 

* 

(* 

RUN-TIME  SUBSCHEMA 

* 

(* 

(* 

(* 

CALLED  FROM  THE  NAME/VALUE  INTERFACE 

★ 

* 

SPROCESSING  DESCRIPTION: 

* 

(* 

MAKE  A  LIST  OF 

SUPER  TYPE 

* 

(* 

LOOP  THROUGH  A 

LIST 

OF  SUPER  TYPE 

* 

(* 

TRANSLATE  SUPER 

TYPE  INTO  A  RUN-TIME  SUBSCHEMA 

* 

(* 

* 

) 

) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  $CHANGE  CONTROL:  *) 

(*  ORIGINATED:  9  SEPTEMBER  1987,  M.  H.  CHOI,  DBM A  *) 

(*  *) 


(*  END  %INCLUDE  RSTRST  ************************************************ j 
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(*  BEGIN  %INCLUDE  RS1100  **********************************************) 
(*  *) 


PROCEDURE  RSI  100  (  CONST 

SUBSCHEMA  KEY 

:  ENTKEY; 

VAR 

RUN  TIME 

:  T  RUN  TIME; 

VAR 

RUN  TIME  SIZE 

:  INTEGER; 

VAR 

IRC 

:  RET  REC  ); 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SUBPROGRAM; 

SFUNCTION: 

STORE  ARRAY_ENT ITY (1100)  IN  THE  DATA  DICTIONARY  AND 
THE  RUN-TIME  SUBSCHEMA 

SDESCRIPTION  OF  ARGUMENTS: 


NAME 

RUN  TIME 


I/O  DESCRIPTION 


RUN_TIME_SIZE 

IRC 


RUN-TIME  SUBSCHEMA  WHICH  CONTAINS 
THE  ENTITY  DEFINITION,  ALONG  WITH 
ANY  ENUMERATION  VALUES,  CONSTITUENT 
LIST,  AND  ARRAY  INFORMATION,  IN  A 
COMPACTED  FORM. 

THE  NUMBER  OF  BYTES  ACTUALLY  REQUIRED*) 
FOR  THE  COMPACTED  RUN-TIME  SUBSCHEMA.*) 
RETURN  CODE 
=  0  SUCCESS 
>  0  CRITICAL  ERROR: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


SCOMMONS: 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

CALLED  FROM  THE  NAME/VALUE  INTERFACE 

SPROCESSING  DESCRIPTION: 

OBTAIN  ENTITY  NAME  AND  KIND  FROM  SCHEMA  MODEL 
STORE  ENTITY  NAME  AND  KIND  INTO  RUN-TIME  SUBSCHEMA 
STORE  GLOBAL  ATTRIBUTES 
STORE  CL.ENTITIES  ATTRIBUTE 

SCOMMENTS: 


SCHANGE  CONTROL: 

REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION) 

ORIGINATED:  20  AUGUST  1987,  M.  H.  CHOI,  DBMA 

(*  *) 
END  %INCLUDE  RSI  100  **********■**************************■**********'** j 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCALFSRT  *) 
(**) 

PROCEDURE  SCALFSRT (CONST 

CONST 

VAR 

VAR 

VAR 

SUBPROGRAM; 


CURRENT 

NEXT 

FLIP 

RRC 

PROC 


ENTBLOCK; 

ENTBLOCK; 

BOOLEAN; 

EXT_RET_CODE; 

ROUTINE); 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


^FUNCTION: 

THIS  ROUTINE  IS  THE  ORDER  FUNCTION  CALLED  BY  MALSRT 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


CURRENT 

NEXT 

FLIP 

RRC 


XRC 


I  THE  ADB  OF  THE  CURRENT  ENTITY 

I  THE  ADB  OF  THE  NEXT  ENTITY 

0  INDICATES  IF  THE  ENTITIES  SHOULD  BE 
FLIPPED 

0  THE  ROUTINE'S  RETURN  CODE 
=  0  OK 
<>  0  ERROR 

0  EXTERNAL  RETURN  CODE  FROM  MAS 
=  0  OK 
>=  10  ERROR 


SCOMMONS: 

NONE 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 


SPROCESSING  DESCRIPTION: 

THIS  ROUTINE  IS  CALLED  BY  THE  MAS  ROUTINE  MALSRT.  THE 
TWO  ENTITIES  ARE  COMPARED  AND  IF  THEY  ARE  OUT  OF  ALPHA¬ 
BETICAL  ORDER  THE  FLIP  FLAG  IS  SET  TO  TRUE  OTHERWISE  THE 
FLAG  REMAINS  FALSE.  IF  THE  FLAG  IS  TRUE  THE  ENTITIES  ARE 
SWAPPED  OTHERWISE  THEY  ARE  NOT. 


SCOMMENTS: 
SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCARYCR  *) 

(**) 

PROCEDURE  SCARYCR(VAR  IRC  :  RET_REC ; 

VAR  TRANS.STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE 

(*  ARRAY  ENTITY  AND  PUSHES  THE  DATA  ON  THE  TRANSACTION 

(*  STACK. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

==  =  =  = 

=  =  = 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

(* 

IRC 

0 

THE  RETURN  CODE 

(* 

TRANS_STACK 

I/O 

THE  TRANSACTION  STACK 

(* 

(*  $COMMONS: 

(*  REF 

(*  INSIDE  I/O  INDICATES  IF  THE  EXIT  OR  RETURN  OPTION 

(*  IS  CHOSEN  WITHIN  ANOTHER  ROUTINE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  $ PROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  CRARRAY 

(*  TO  DISPLAY  THE  PANEL.  THE  DATA  ENTERED  ON  THE  PANEL  IS 

(*  VERIFIED  AND  IF  IT  IS  OK  IT  IS  PUSHED  ON  THE  TRANSACTION 

(*  STACK  OR  THE  APPROPRIATE  ACTION  IS  TAKEN.  IF  ANY  OF  THE 

(*  DATA  ENTERED  IS  INVALID  THEN  THE  PANEL  IS  REDISPLAYED 

(*  WITH  AN  ERROR  MESSAGE. 

(* 

(*  $COMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCARYUP  *) 

(**) 

PROCEDURE  SCARYUP (VAR  IRC  :  RET  REC; 

VAR  TRANS.STACK  :  TRANS PTR; 

VAR  ARRAYJCEY  :  ENTKEY; 

VAR  NUMBER_OF_USERS  :  LISTKEY; 

VAR  DELETE.LIST  :  LISTKEY; 

VAR  NEW_KEYS_LIST  :  LISTKEY); 

SUBPROGRAM; 

(**) 

(* . - . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  AN  ARRAY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

RETURN  CODE 

(* 

TRANS  STACK 

I/O 

POINTS  TO  THE  TRANSACTION  STACK 

(* 

ARRAY  KEY 

I/O 

KEY  OF  THE  ARRAY  TO  BE  UPDATED 

(* 

NUMBER  OF  USERS 

I/O 

THE  NUMBER  OF  USERS  OF  THE  ARRAY 

(* 

DELETE  LIST 

I/O 

LIST  OF  ENTITIES  TO  BE  DELETED 

(* 

(* 

(* 

NEW_KEYS_LIST 

I/O 

LIST  OF  NEWLY  CREATED  ENTITIES 

SCOMMONS: 

(* 

(* 

(* 

NONE 

SENVIRONMENT: 

(* 

LANGUAGE:  IBM 

PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THE  CURRENT  ARRAY  DATA  IS  DISPLAYED  ON  THE  UPARRAY  PANEL. 

(*  THE  DATA  CAN  THEN  BE  UPDATED  BY  THE  USER. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SC BAS IN  *) 

(**) 

PROCEDURE  SCBASIN(VAR  IRC 

VAR  INCLD 
VAR  ENTITYJCEY 
VAR  ADB 

SUBPROGRAM; 


RET_REC; 

TEXT; 

ENTKEY; 
ENTITY_ADB) ; 


$ FUNCTION: 

THIS  ROUTINE  WRITES  THE  ENTITY  KIND  CONSTANTS  TO  THE 
PASCAL  INCLUDE  FILE. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

IRC  I/O  RETURN  CODE 

INCLD  I  THE  FILE  NAME 

ENTITY_LIST  I  A  LIST  OF  ENTITIES 

$ COMMONS: 

NONE 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

SPROCESSING  DESCRIPTION: 

GET  THE  ADB  OF  THE  PRIMITIVE  ENTITY 
CASE  PRIMITIVE  ENTITY  KIND  OF 
INTEGER  : 

CASE  PRECISION  IN  DECIMAL  DIGITS  OF 

1,  2  :  WRITE  TO  THE  FILE  PACKED  0..255; 

3,  4  :  WRITE  TO  THE  FILE  PACKED  0.. 65535; 

5,  6,  7, 

8,  9  :  WRITE  TO  THE  FILE  INTEGER; 

END; 

REAL  : 

CASE  PRECISION  IN  DECIMAL  DIGITS  OF 
1,  2,  3,  4, 


5,  6,  7  :  WRITE  TO  THE  FILE  SHORTREAL; 

8,  9,  10, 

11,  12,  13, 

14,  15,  16  :  WRITE  TO  THE  FILE  REAL; 

END; 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


STRING  : 

WRITE  TO  THE  FILE  PACKED  ARRAY (.1. .<STRING  LENGTH>.) 

OF  CHAR; 

DEFINED  TYPE  : 

WRITE  TO  THE  FILE  T_<DEF INED  TYPE  NAME>; 

LOGICAL  : 

WRITE  TO  THE  FILE  BOOLEAN; 

ENUMERATION  ; 

WRITE  TO  THE  FILE  ( 

SET  THE  ENUMERATION'S  CONSTITUENT  LIST  TO  READ  FORWARD 
COUNT  THE  NUMBER  OF  CONSTITUENTS 
FOR  INDEX  EQUALS  ONE  TO  THE  NUMBER  OF  CONSTITUENTS  DO 
GET  THE  KEY  TO  THE  NEXT  CONSTITUENT  IN  THE  LIST 
GET  THE  CONSTITUENT'S  ADB 
WRITE  TO  THE  FILE  <ENUM£RITEM  NAME> 

IF  THE  COUNT  IS  EQUAL  TO  THE  NUMBER  OF  CONSTITUENTS 
WRITE  TO  THE  FILE  ); 

ELSE 

WRITE  TO  THE  FILE  , 

END; 

ARRAY  : 

GET  THE  ADBOF  THE  ARRAY  ENTITY 

WRITE  TO  THE  FILE  ARRAY ( .<LOW  BOUND>. .<HIGH  BOUND>.)  OF 
SET  THE  ARRAY  ENTITY'S  CONSTITUENT  LIST  TO  READ  FORWARD 
GET  THE  KEY  TO  THE  ARRAY  ENTITY'S  FIRST  CONSTITUENT 
GET  THE  CONSTITUENT'S  ADB 

CALL  THIS  ROUTINE  TO  WRITE  OUT  THE  ARRAY'S  TYPE 
INTEGER 
REAL 
STRING 
LOGICAL 
ARRAY 

DEFINED  TYPE 
POINTER 


END; 

STRUCTURE  : 

WRITE  TO  THE  FILE  RECORD 

SET  THE  STRUCTURE'S  CONSTITUENT  LIST  TO  BE  READ  FORWARD 
CONTINUE  TO  READ  CONSTITUENTS  UNTIL  THE  END  OF  LIST 
GET  THE  KEY  TO  THE  NEXT  CONSTITUENT  ENTITY  ON  THE  LIST 
GET  THE  CONSTITUENT'S  ADB 
WRITE  TO  THE  FILE  <F I  ELD  NAME>  : 

GET  THE  KEY  TO  THE  CONSTITUENT'S  FIRST  CONSTITUENT 
GET  THIS  CONSTITUENT'S  ADB 

CALL  THIS  ROUTINE  TO  WRITE  OUT  THE  PRIMITIVE  TYPE 
INTEGER 
REAL 
STRING 
LOGICAL 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*\ 

/ 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ARRAY  *) 

(*  DEFINED  TYPE  *) 

(*  POINTER  (IS  NOT  ALLOWED  WITHIN  A  STRUCTURE)  *) 

(*  IF  THE  END  OF  LIST  IS  FOUND  THEN  *) 

(*  WRITE  TO  THE  FILE  END;  *) 

(*  END;  *) 

(*  END;  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  SCCHRCK  *) 

(**) 

PROCEDURE  SCCHRCK(VAR  IRC  :  RET.REC; 

VAR  NAME  :  T.NAME; 

VAR  INVALID  :  BOOLEAN); 

SUBPROGRAM; 

(**) 

(* . - . - . . *) 

(*  *) 

(*  $  FUNCTION:  *) 

(*  THIS  CHECKS  THAT  THE  CHARACTERS  IN  AN  ENTITY  NAME  ARE  VALID  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  I/O  RETURN  CODE  *) 

(*  NAME  I  NAME  TO  CHECK  FOR  VALID  CHARACTERS  *) 

(*  INVALID  0  INDICATES  IF  THE  NAME  CONTAINS  AN  IN-  *) 

(*  VALID  CHARACTER  OR  A  SPACE  INBETWEEN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  CHECKS  THAT  THE  NAME  CONTAINS  VALID  CHARAC-  *) 

(*  TERS.  VALID  CHARACTERS  ARE  THE  LETTERS  A  THRU  Z,  THE  *) 

(*  DIGITS  0  THRU  9,  BLANKS  AND  UNDERSCORES  ARE  ALLOWED.  ANY  *) 

(*  OTHER  CHARACTERS  ARE  INVALID.  THE  NAME  IS  ALSO  CHECKED  *) 

(*  FOR  SPACES  INBETWEEN  CHARACTERS.  THIS  TOO  IS  INVALID.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCCLSCR1  *) 

(**) 

PROCEDURE  SCCLSCR1 (VAR  IRC  :  RET_REC ; 

VAR  TRANS.STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  GATHERS  THE  NAME  AND  KIND  NUMBER  TO  BE 
ASSIGNED  TO  THE  CLASS  ENTITY  TO  BE  CREATED. 

SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

*) 

*) 

IRC 

0 

RETURN  CODE 

(* 

TRANS  STACK 

I/O 

POINTS  TO  THE  TRANSACTION  STACK 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

REF 

*) 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OPTION  OR  RETURN 

*) 

(* 

HAS  BEEN  CHOSEN  WITHIN  ANOTHER  CREATE 

*) 

(* 

PROCEDURE 

*) 

(* 

*) 

(* 

$ ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM 

PASCAL 

*) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 
SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 
$ PROCESSING  DESCRIPTION: 

THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  (CRCLASS1) 
WHICH  PUTS  UP  THE  MENU  TO  GATHER  THE  NAME  AND  KIND  NUMBER 
FOR  THE  CLASS  ENTITY.  THE  DATA  IS  VERIFIED  FOR  UNIQUENESS. 
IF  THE  INFORMATION  ENTERED  IS  INDEED  UNIQUE  THEN  IT  IS 
PUSHED  ONTO  THE  TRANSACTION  STACK.  THEN  (SCCLSCR2)  IS 
CALLED  TO  GATHER  THE  CONSTITUENTS.  WHEN  ALL  THE  REQUIRED 
DATA  HAS  BEEN  ENTERED  TO  CREATE  A  CLASS  ENTITY  THE 
TRANSACTION  PROCESSOR  ROUTINE  (SCTRSPR)  IS  CALLED  TO 
PROCESS  THE  TRANSACTIONS. 

SCOMMENTS: 

SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCCLSCR2  *) 

(**) 

PROCEDURE  SCCLSCR2(VAR  IRC  :  RET_REC ; 

VAR  TRANS_STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  CONSTITUENTS  OF  THE  CLASS  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

RETURN  CODE 

(* 

(* 

(* 

TRANS_STACK 

I/O 

POINTS  TO  THE  TRANSACTION  STACK 

SCOMMONS: 

(* 

REF 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OPTION  OR  RETURN 

(* 

HAS  BEEN  CHOSEN  WITHIN  ANOTHER  CREATE 

(* 

PROCEDURE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  (CRCLASS2) 

(*  WHICH  PUTS  UP  THE  MENU  TO  GATHER  THE  CONSTITUENTS.  THE 

(*  CONSTITUENTS  ARE  PUSHED  ON  THE  STACK  AFTER  VERIFYING  THAT 

(*  THEY  DO  EXIST. 

(* 

(*  $COMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCCLSUP  *) 

(**) 

PROCEDURE  SCCLSUP(VAR  IRC  :  RET.REC ; 

VAR  CLASS_KEY  :  ENTKEY) ; 

SUBPROGRAM; 


(*  *) 

(*  {FUNCTION:  *) 

(*  THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  THE  CLASS  ENTITY.  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CLASSJCEY  I  KEY  OF  THE  ENTITY  TO  BE  UPDATED  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINES  WHICH  *) 

(*  DISPLAY  THE  DATA  DESCRIBING  THE  CLASS  ENTITY.  THE  UPDATE  *) 

(*  CLASS  OPTIONS  INCLUDE  :  CHANGE  THE  NAME  AND/OR  KIND  NUMBER,  *) 

(*  UPDATE  THE  CONSTITUENT  LIST  BY  *) 

(*  ADDING  OR  REMOVING  ELEMENTS,  *) 

(*  REVIEW  A  CONSTITUENT,  *) 

(*  DELETE  THE  CLASS  ENTITY,  *) 

(*  SAVE  THE  CHANGES,  *) 

(*  RETURN  AND  EXIT.  *) 

(*  THE  CHANGES  MADE  TO  THE  CLASS  ENTITY  ARE  KEPT  ONLY  IF  THE  *) 

(*  OPTION  SAVE  THE  CHANGES  IS  SELECTED.  OTHERWISE  ANY  CHANGES  *) 

(*  MADE  ARE  IGNORED.  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCCOMPAR  *) 

(**) 

PROCEDURE  SCCOMPAR (VAR  FIRST  NAME  :  T_NAME ; 

VAR  SECOND_NAME  :  T_NAME ; 

VAR  DIFFERENT  :  BOOLEAN); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  COMPARES  TWO  NAMES  FOR  THE  LENGTH  SPECIFIED  *) 

(*  BY  ' UNIQUENESS_LENGTH '  IN  SCECON.  THE  VARIABLE  'DIFFERENT'  *) 

(*  IS  SET  TO  TRUE  IF  THE  TWO  NAMES  DIFFER.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  FIRST_NAME  I  THE  FIRST  NAME  *j 

(*  SECOND_NAME  I  THE  SECOND  NAME  *) 

(*  DIFFERENT  0  SET  TO  TRUE  IF  THE  TWO  NAMES  DIFFER  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  INITIALIZE  VARIABLES  *) 

(*  COMPARE  FIRST_NAME  TO  SECOND.NAME  CHARACTER-BY-CHARACTER  *) 

(*  UNTIL  LENGTH  IS  SURPASSED  OR  A  DIFFERENCE  IS  DETECTED.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 
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(*  REVISED:  MM/DD/YY  CCXX  I.  M.  APERSON 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE. 

(* 

(*  ORIGINATED:  06/12/87  C.  H.  MOHME 

(* 

(* . 

(* 

(*END . - . . . 

(*  END  %INCLUDE  SCCOMPAR  *) 


GROUP_ID  *) 
*) 
*) 

DBMA  *) 

*) 

- *) 

*) 

. *) 
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(*  %INCLUDE  SCCONIN  *) 

(**) 

PROCEDURE  SCCONIN (VAR  IRC  :  RET_REC; 

VAR  INCLD  :  TEXT; 

VAR  ENTITY.LIST  :  LISTKEY); 

SUBPROGRAM; 

(**) 

(* . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  THE  ENTITY  KIND  CONSTANTS  TO  THE  *) 

(*  PASCAL  INCLUDE  FILE.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  * ) 

(*  IRC  I/O  RETURN  CODE  *) 

(*  INCLD  I  THE  FILE  NAME  *) 

(*  ENTITY_LIST  I  A  LIST  OF  ENTITIES  *) 

(*  *) 

(*  $ COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  WRITE  THE  ENTITY  CONSTANT  HEADING  TO  THE  FILE  *) 

(*  WRITE  'CONST'  TO  THE  FILE  *) 

(*  SET  THE  LIST  OF  ENTITIES  TO  BE  READ  FORWARD  *) 

(*  CONTINUE  TO  READ  THE  ENTITIES  UNTIL  THE  END  OF  THE  LIST  *) 

(*  GET  THE  KEY  TO  THE  NEXT  ENTITY  IN  THE  LIST  *) 

(*  GET  THIS  ENTITY'S  ADB  *) 

(*  IF  THE  ENTITY  KIND  IS  AN  ENTITY  THEN  *) 

(*  WRITE  TO  THE  FIELD  K_<ADB. ENT.NAME>  =  <ADB.ENT.KIND>  ;  *) 

(*  END;  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %I NCLUDE  SCCREATE  *) 

(**) 

PROCEDURE  SCCREATE (VAR  IRC  :  RET.REC; 

VAR  TRANS_STACK  :  TRANS PTR) ; 

SUBPROGRAM; 


(*  *) 

(*  ^FUNCTION:  *) 

(*  THIS  ROUTINE  DETERMINES  THE  NEXT  MENU  TO  DISPLAY  FROM  THE  *) 

(*  CREATE  OPTION  CHOSEN.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  TRANS.STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  DEF  *) 

(*  INSIDE  I/O  INDICATES  IF  THE  EXIT  OPTION  HAS  *) 

(*  BEEN  CHOSEN  WITHIN  ANOTHER  CREATE  *) 

(*  PROCEDURE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  CALLS  THE  CREATE  MENU  INTERFACE  ROUTINE  (MCREATE)  AND  *) 

(*  PROCESSES  THE  DATA  RECIEVED  FROM  THE  MENU  EITHER  BY  *) 

(*  CALLING  THE  APPROPRIATE  ROUTINE  OR  EXITING  THE  PROCEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GR0UP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 
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(*  REVISED:  09/28/87  C.  H.  MOHME  DBMA  *) 

(*  INCORPORATED  THE  SUPERTYPE  DATA  TYPE.  *) 

(*  *) 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  *) 

(*  *) 

(*END . - . ---- . . *) 

(*  END  %1NCLUDE  SCCREATE  *) 
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(*  %INCLUDE  SCDEFCR  *) 

(**) 

PROCEDURE  SCDEFCR(VAR  IRC  :  RET.REC; 

VAR  TRANS_STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE 

(*  DEFINED  TYPE  ENTITY  AND  PUSHES  THE  DATA  ON  THE  TRANS- 

(*  ACTION  STACK. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

=  ==  =  = 

*  =  = 

(* 

IRC 

0 

THE  RETURN  CODE 

(* 

(* 

(* 

(* 

TRANS_STACK 

SCOMMONS: 

REF 

I/O 

THE  TRANSACTION  STACK 

(* 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OR  RETURN  OPTION 
IS  CHOSEN  WITHIN  ANOTHER  ROUTINE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  CRDEFTYP 

(*  TO  DISPLAY  THE  PANEL.  THE  DATA  ENTERED  ON  THE  PANEL  IS 

(*  VERIFIED  AND  IF  IT  IS  OK  IT  IS  PUSHED  ON  THE  TRANSACTION 

(*  STACK  OR  THE  APPROPRIATE  ACTION  IS  TAKEN.  IF  ANY  OF  THE 

(*  DATA  ENTERED  IS  INVALID  THEN  THE  PANEL  IS  REDISPLAYED 

(*  WITH  AN  ERROR  MESSAGE. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCDEFUP  *) 
v  *) 

PROCEDURE  SCDEFUP (VAR 

VAR 

VAR 

VAR 

VAR 

VAR 


IRC 

TRANS_STACK 
DEFINED_TYPE_KEY 
NUHBER_OF_USERS 
DELETE_L 1ST 
NEW  KEYS_LIST 


RET.REC; 

TRANSPTR; 

ENTKEY ; 

INTEGER; 

LISTKEY; 

LISTKEY); 


SUBPROGRAM; 


(**) 

(  * 

\  -- 

(* 

) 

*) 

(* 

$ FUNCTION: 

*) 

(* 

THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  THE  DEFINED  TYPE 

*) 

(* 

ENTITY. 

*) 

(* 

*) 

(* 

SDESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME 

I/O  DESCRIPTION 

*) 

(* 

=  =  — — 

===  =========== 

*) 

(* 

DEFINED  TYPE  KEY 

I/O  KEY  OF  THE  ENTITY  TO  BE  UPDATED 

*) 

(* 

DELETE  LIST 

I/O  LIST  OF  ENTITIES  TO  BE  DELETED 

*) 

(* 

NEW  KEYS  LIST 

I/O  LIST  OF  ENTITIES  TO  BE  DELETED  IF 

*) 

(* 

THE  CHANGES  MADE  ARE  REJECTED 

*) 

(* 

NUMBER  OF  USERS 

I  INDICATES  THE  NUMBER  OF  USERS 

*) 

(* 

TRANS  STACK 

I/O  POINTS  TO  THE  TRANSACTION  STACK 

*) 

(* 

IRC 

0  RETURN  CODE 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

SENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM: 

IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

SEXECUTION  PROCEDURE: 

*) 

(* 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

*) 

(* 

*) 

(* 

SPROCESSING  DESCRIPTION: 

*) 

(* 

THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  (UPDEFTYP) 

*) 

(* 

TO  DISPLAY  THE  INFORMATION  ABOUT  THE  DEFINED  TYPE  ENTITY. 

*) 

(* 

THE  USER  CAN  CHANGE  THE  NAME  OR  TYPE  OF  THE  ENTITY  OR 

*) 

(* 

SELECT  ONE  OF  THE  FOLLOWING  OPTIONS  ON  THE  PANEL  : 

*) 

(* 

REVIEW  THE 

CURRENT  TYPE, 

*) 

(* 

UPDATE  THE 

CURRENT  TYPE, 

*) 

(* 

SAVE  THE  CHANGES  MADE, 

*) 

(* 

RETURN  OR  EXIT. 

*) 
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(*  IF  SAVE  THE  CHANGES  IS  SELECTED  AND  THE  NUMBER  OF  USERS  OF  *) 
(*  THE  DEFINED  TYPE  IS  ONE  THEN  THE  OLD  DEFINED  TYPE  KEY  IS  *) 
(*  PLACED  ON  THE  DELETE  LIST  AND  A  NEW  DEFINED  TYPE  ENTITY  IS  *) 


(*  CREATED.  THE  NEW  DEFINED  TYPE  KEY  IS  THEN  PLACED  ON  THE  *) 
(*  NEW  KEYS  LIST.  IF  SAVE  THE  CHANGES  IS  SELECTED  AND  THE  *) 
(*  NUMBER  OF  USERS  OF  THE  DEFINED  TYPE  IS  GREATER  THAN  ONE  *) 
(*  THEN  THE  DEFINED  TYPE  ENTITY  IS  UPDATED.  *) 
(*  *) 
(*  $COMMENTS:  *) 
(*  *) 
(*  SCHANGE  CONTROL:  *) 
(*  *) 
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(*  %INCLUDE  SCENMUP  *) 
(**) 

PROCEDURE  SCENMUP(VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


IRC 

TRaNS_STACK 

ENUM_KEY 

DELETE_LIST 

NEW_KEYS_LIST 


RET_REC ; 
TRANSPTR; 
ENTKEY ; 
LISTKEY; 
LISTKEY); 


(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  THE  ENUMERATION 

(*  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

TRANS  STACK 

I/O 

POINTS  TO  THE  TRANSACTION  STACK 

(* 

ENUM  KEY 

I/O 

KEY  OF  THE  ENTITY  TO  BE  UPDATED 

(* 

DELETE  LIST 

I/O 

LIST  OF  ENTITIES  TO  BE  DELETED 

(* 

NEW  KEYS  LIST 

I/O 

LIST  OF  NEWLY  CREATED  ENTITIES 

(* 

IRC 

0 

RETURN  CODE 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  (UPENUM) 

(*  TO  DISPLAY  DATA  ABOUT  THE  ENUMERATION  ENTITY. 

(*  THE  UPDATE  OPTIONS  INCLUDE  THE  FOLLOWING  : 

(*  ADD  AN  ITEM  TO  THE  ENUMERATION, 

(*  REMOVE  AN  ITEM  FROM  THE  ENUMERATION, 

(*  SAVE  THE  CHANGES  MADE, 

(*  RETURN  AND  EXIT. 

(*  THE  CHANGES  MADE  TO  THE  ENUMERATION  ARE  KEPT  ONLY  IF  THE 

(*  OPTION  SAVE  THE  CHANGES  IS  SELECTED,  OTHERWISE  ANY  CHANGES 

(*  THAT  WERE  MADE  ARE  IGNORED. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCENTCR  *) 

(**) 

PROCEDURE  SCENTCR(VAR  IRC  :  RET_REC ; 

VAR  TRANS.STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 


SFUNCTION: 

THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  MODEL  THE 
ENTITY  ENTITY. 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


IRC 

TRANS  STACK 


SCOMMONS: 

REF 

INSIDE 


0  RETURN  CODE 

I/O  POINTS  TO  THE  TRANSACTION  STACK 


INDICATES  IF  THE  EXIT  OR  RETURN  OPTION 
IS  CHOSEN  WITHIN  ANOTHER  ROUTINE. 


SENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 
SPROCESSING  DESCRIPTION: 

THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  (CRENTITY) 
WHICH  DISPLAYS  THE  CREATE  ENTITY  PANEL.  THE  NAME  AND 
KIND  NUMBER  IS  CHECKED  FOR  UNIQUENESS.  IF  THEY  ARE  UNIQUE 
THEN  THE  DATA  IS  PUSHED  ONTO  THE  TRANSACTION  STACK  AND 
THE  ROUTINE  (SCFLDCR)  IS  CALLED  TO  ENTER  THE  ENTITY'S 
FIELDS.  AFTER  ALL  OF  THE  FIELDS  HAVE  BEEN  ENTERED  THE 
TRANSACTION  PROCESSING  ROUTINE  IS  CALLED  TO  MODEL  THE 
ENTITY. 


SCOMMENTS: 
SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCENTIN  *) 

(**) 

PROCEDURE  SCENTIN(VAR  IRC  :  RET.REC; 

VAR  INCLD  :  TEXT; 

VAR  ENTITY_LIST  :  LISTKEY; 

VAR  ADB.DEFN  :  LISTKEY; 

VAR  CL_DEFN  :  LISTKEY); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  THE  ENTITY  TYPE  DECLARATIONS  TO  THE  *) 

(*  PASCAL  INCLUDE  FILE.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  I/O  RETURN  CODE  *) 

(*  INCLD  I  THE  FILE  NAME  *) 

(*  ENTITY_LIST  I  A  LIST  OF  ENTITIES  *) 

(*  ADBJDEFN  0  A  LIST  OF  ENTITIES  ADB  DEFINITIONS  WERE  *) 

(*  GENERATED  FOR  *) 

(*  CL_DEFN  0  A  LIST  OF  ENTITIES  CONSTITUENT  DEFINI-  *) 

(*  TIONS  WERE  GENERATED  FOR  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  $PROCESSING  DESCRIPTION:  *) 

(*  WRITE  TO  THE  FILE  THE  ENTITY  DECLARATIONS  HEADING  *) 

(*  WRITE  TYPE  TO  THE  FILE  *) 

(*  SET  THE  LIST  OF  ENTITIES  TO  BE  READ  FORWARD  *) 

(*  CONTINUE  TO  READ  ENTITIES  UNTIL  THE  END  OF  LIST  IS  FOUND  *) 

(*  GET  THE  KEY  TO  THE  NEXT  ENTITY  ON  THE  LIST  *) 

(*  GET  THE  ENTITY'S  ADB  *) 

(*  CALL  THE  PROCEDURE  TO  SORT  THE  FIELDS  *) 

(*  COUNT  THE  NUMBER  OF  ITEMS  IN  THE  LIST  OF  ADB  FIELDS  *) 

(*  IF  THE  NUMBER  OF  ITEMS  ON  THE  LIST  IS  GREATER  THAN  0  THEN  *) 

(*  WRITE  TO  THE  FILE  E_<ENTITY  NAME>  =  RECORD  *) 

(*  CALL  THE  FIELD  INCLUDE  PROCEDURE  *) 

(*  WRITE  TO  THE  FILE  END;  *) 


(*  ADD  THE  ENTITY  KEY  TO  THE  LIST  OF  ENTITY  ADB  DEFINITIONS*) 

(*  COUNT  THE  NUMBER  OF  ITEMS  ON  THE  CONSTITUENT  FIELD  LIST  *) 
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(*  IF 

(*  k 

(*  C 

(*  k 

(*  k 

(*  c 

(*  k 

(*  k 

(*  k 

(*  F 

(* 

(* 

(* 

(* 

(* 

(*  A 

(* 

(*  END; 

(* 

(*  SCOMMENTS: 


IF  THE  NUMBER  OF  ITEMS  ON  THE  LIST  IS  GREATER  THAN  0  THEN  *) 
WRITE  TO  THE  FILE  C_< ENTITY  NAME>  =  RECORD  *) 

CALL  THE  FIELD  INCLUDE  PROCEDURE  *) 

WRITE  TO  THE  FILE  END;  *) 

WRITE  TO  THE  FILE  P_T_< ENTITY  NAME>  =  RECORD  *) 

CALL  THE  FIELD  INCLUDE  PROCEDURE  *} 

WRITE  TO  THE  FILE  END;  *) 

WRITE  TO  THE  FILE  CONST  *) 

WRITE  TO  THE  FILE  P_<ENTITY  NAME>  =  P_T_< ENTITY  NAME>(  *) 

FOR  INDEX  EQUALS  ONE  TO  NUMBER  OF  CONSTITUENT  FIELDS  DO  *) 
WRITE  TO  THE  FILE  INDEX  *) 

IF  INDEX  EQUALS  THE  NUMBER  OF  CONSTITUENT  FIELDS  THEN  *) 
WRITE  TO  THE  FILE  );  *) 

ELSE  *) 

WRITE  TO  THE  FILE  ,  *) 

ADD  THE  KEY  TO  THE  LIST  OF  GENERATED  CONSTITUENT  *) 

DEFINITIONS  *) 


SCHANGE  CONTROL: 

REVISED:  07/30/87  C.  H.  MOHME  DBMA 

CHANGED  NAMING  CONVENTION  FROM  P_  TO  C_  FOR  THE  CONSTANT  FOR 
CONSTITUENT  LIST  POSITION  AND  C_  TO  P  FOR  ENTITY  TYPE 
DECLARATIONS  FOR  THE  CONSTITUENT  REFERENCED  BY  THE  CONSTI¬ 
TUENT  KEY. 

REVISED:  07/30/87  C.  H.  MOHME  DBMA 

CHANGED  NAMING  CONVENTION  FROM  P_T_  TO  C_T_  FOR  THE  ENTITY 
TYPE  DECLARATION  FOR  THE  CONSTITUENT  REFERENCED  BY  THE  CON¬ 
STITUENT  LIST  POSITION. 

REVISED:  07/22/87  C.  H.  MOHME  DBMA 

CHANGED  NAMING  CONVENTION  FROM  C_  TO  K_  FOR  ENTITY  KIND 
CONSTANTS  AND  FROM  K_  TO  C_  FOR  ENTITY  TYPE  DECLARATIONS 
FOR  THE  CONSTITUENTS  REFERENCED  BY  THE  CONSTITUENT  KEY. 


ORIGINATED:  10/23/86 


L.  J.  BEHAN 


DBMA 


(* 

(*END- . . . 

{*  END  %INCLUDE  SCENTIN  *) 
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(*  %INCLUDE  SCENTUP  *) 

(**) 

PROCEDURE  SCENTUP(VAR  IRC  :  RET_REC ; 

VAR  TRANS  STACK  :  TRANSPTR; 

VAR  ENTJCEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* .  — *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  THIS  ROUTINE  UPDATES  THE  ENTITY  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  TRANS_STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK  *) 

(*  ENT_KEY  I/O  KEY  OF  THE  ENTITY  TO  BE  UPDATED  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  350/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINES  TO  DISPLAY  *) 

(*  THE  DATA  ABOUT  THE  ENTITY.  THE  UPDATE  ENTITY  OPTIONS  IN-  *) 

(*  CLUDE  THE  FOLLOWING  :  *) 

(*  CHANGE  THE  ENTITY  NAME  OR  KIND  NUMBER,  *) 

(*  UPDATE  THE  ENTITY'S  CONSTITUENTS  (FIELDS)  BY  *) 

(*  ADDING  FIELDS,  REMOVING  FIELDS  OR  UPDATING  FIELDS,  *) 

(*  REVIEW  A  FIELD,  *) 

(*  DELETE  THE  ENTITY,  *) 

(*  SAVE  THE  CHANGES  MADE,  *) 

(*  RETURN  OR  EXIT.  *) 

(*  IF  SAVE  THE  CHANGES  WAS  SELECTED  THE  ENTITY  IS  UPDATED  *) 

(*  AND  THE  ENTITIES  ON  THE  DELETE  LIST  WILL  BE  DELETED  IF  *) 

(*  POSSIBLE.  IF  RETURN  OR  EXIT  IS  SELECTED  THE  ENTITIES  ON  *) 

(*  THE  NEW  KEYS  LIST  WILL  BE  DELETED  IF  POSSIBLE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCENUCR  *) 

(**) 

PROCEDURE  SCENUCR (VAR  IRC  :  RET_REC; 


VAR  TRANS  STACK  :  TRANSPTR) ; 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE  *) 

(*  ENUMERITEM  ENTITY  AND  PUSHES  THE  DATA  ON  THE  TRANSACTION  *) 

(*  STACK.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  THE  RETURN  CODE  *) 

(*  TRANS_STACK  I/O  THE  TRANSACTION  STACK  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  REF  *) 

(*  INSIDE  I/O  INDICATES  IF  THE  EXIT  OR  RETURN  OPTION  *) 

(*  IS  CHOSEN  WITHIN  ANOTHER  ROUTINE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  $ PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  CRENUM  *) 

(*  TO  DISPLAY  THE  PANEL.  THE  DATA  ENTERED  ON  THE  PANEL  IS  *) 

(*  VERIFIED  AND  IF  IT  IS  OK  IT  IS  PUSHED  >N  THE  TRANSACTION  *) 

(*  STACK  OR  THE  APPROPRIATE  ACTION  IS  T£.  N.  IF  ANY  OF  THE  *) 


(*  DATA  ENTERED  IS  INVALID  THEN  THE  PANEL  IS  REDISPLAYED  WITH  *) 


(*  AN  ERROR  MESSAGE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCEXIST  *) 


VAR  KIND.NUMBER  :  INTEGER; 

VAR  PRESENT  :  BOOLEAN; 

VAR  KEY_OF_ENT  :  ENTKEY); 

SUBPROGRAM; 

(**) 

(* .  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  VERIFIES  THE  EXISTENCE  OF  AN  ENTITY  AND  *) 

(*  RETURNS  THE  ENTITY  KEY  IF  IT  DOES  IN  FACT  EXIST.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KINDJJUMBER  I  THE  USER  DEFINED  KIND  NUMBER  OF  THE  *) 

(*  ENTITY  TO  BE  FOUND  *) 

(*  PRESENT  0  INDICATES  IF  THE  ENTITY  EXISTS  *) 

(*  KEY_OF_ENT  0  THE  KEY  OF  THE  ENTITY  FOUND  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  S ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  IS  CALLED  BY  A  MAS  EXECUTE  PROCEDURE.  THE  *) 

(*  SCHEMA  MODEL  IS  SEARCHED  FOR  A  CLASS  OR  ENTITY  WITH  A  *) 

(*  USER  DEFINED  KIND  NUMBER  IDENTICAL  TO  THE  ONE  PASSED  IN.  *) 

(*  IF  A  MATCH  IS  FOUND  THEN  THE  KEY  TO  THE  ENTITY  IS  RETURNED  *) 

(*  TO  THE  CALLING  PROCEDURE  AND  A  FLAG  IS  SET  TO  INDICATE  THAT  *) 

(*  A  MATCH  WAS  INDEED  FOUND.  IF  A  MATCH  IS  NOT  FOUND  THEN  *) 

(*  THE  FLAG  IS  SET  TO  FALSE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCFLDAD  *) 

(**) 

PROCEDURE  SCFLDAD(VAR  IRC  :  RET_REC; 

VAR  TRANS.STACK  :  TRANS PTR; 


VAR  FIELDJCEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  GATHERS  THE  DATA  TO  ADD  A  FIELD  TO  AN  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  TRANS_STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK  *j 

(*  LIST_OF_CNSTS  I/O  LIST  OF  CONSTITUENTS  OF  THE  ENTITY  *) 

(*  FIELDTYP  I  INDICATES  THE  TYPE  OF  FIELD  *) 

(*  FIELD_KEY  0  KEY  TO  THE  FIELD  CREATED  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS :  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  ALLOWS  A  USER  TO  ADD  A  FIELD  TO  AN  ENTITY  *) 

(*  DURING  AN  UPDATE.  THE  ADD  FIELD  (ADDFIELD)  ROUTINE  IS  *) 

(*  CALLED  AND  THE  DATA  IS  GATHERED.  THEN  THE  TRANSACTION  *) 

(*  PROCESSING  ROUTINE  (SCTRSPR)  IS  CALLED  TO  MODEL  THE  FIELD  *) 

(*  ENTITY.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCFLDCR  *) 

(**) 

PROCEDURE  SCFLDCR (VAR  IRC  :  RET_REC ; 

VAR  FIELDTYP  :  T_F IELDTYPE ; 

VAR  TRANS_STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* . - . - .  . 

(* 

(*  $ FUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  MODEL  THE 

(*  FIELD  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  ===  3ci=2a=a=e= 

(*  FIELDTYP  I  INDICATES  THE  TYPE  OF  FIELD 

(*  IRC  0  RETURN  CODE 

(*  TRANS_STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK 

(* 

(*  SCOMMONS: 

(*  REF 

(*  INSIDE  I/O  INDICATES  IF  THE  EXIT  OR  RETURN  OPTION 

(*  IS  CHOSEN  WITHIN  ANOTHER  ROUTINE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  (CRFIELD) 

(*  TO  DISPLAY  THE  CREATE  FIELD  PANEL.  THE  DATA  ENTERED  IS 

(*  VERIFIED  AND  IF  IT  IS  VALID  IT  IS  PUSHED  ON  TO  THE  TRANS- 

(*  ACTION  STACK  AND  THE  APPROPRIATE  FIELD  TYPE  ROUTINE  IS 

(*  CALLED.  IF  THE  DATA  IS  INVALID  THE  PANEL  IS  REDISPLAYED 

(*  WITH  AN  ERROR  MESSAGE.  THIS  PANEL  CONTINUES  TO  BE  DIS- 

(*  PLAYED  UNTIL  EXIT  OR  NO  MORE  FIELDS  IS  CHOSEN. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCFLDIN  *) 
(**) 

PROCEDURE  SCFLDIN(VAR 

VAR 

VAR 

CONST 

SUBPROGRAM; 


IRC 

INCLD 

FIELDJ.IST 

FIELD.DEF 


RET.REC; 

TEXT; 

LISTKEY; 
T_FIELD  DEF) ; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


$ FUNCTION: 

THIS  ROUTINE  WRITES  THE  FIELD  TYPE  DECLARATION  TO  THE 
PASCAL  INCLUDE  FILE. 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


IRC 

INCLD 

FIELD.LIST 

FIELD_DEF 


I/O  RETURN  CODE 
I  THE  FILE  NAME 
I  A  LIST  OF  FIELDS 

I  INDICATES  THE  FIELD  DEFINITION  TYPE 


SCOMMONS: 

NONE 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 


SPROCESSING  DESCRIPTION: 

SET  THE  LIST  OF  FIELDS  TO  BE  READ  FORWARD 
CONTINUE  TO  READ  FIELDS  UNTIL  THE  END  OF  LIST  IS  FOUND 
GET  THE  KEY  TO  THE  NEXT  FIELD 
GET  THE  FIELD'S  ADB 
WRITE  TO  THE  FILE  <FIELD  NAME> 

IF  THE  TYPE  OF  DEFINITION  IS  ADB  THEN 
SET  THE  FIELD'S  CONSTITUENT  LIST  TO  BF.  READ  FORWARD 
GET  THE  KEY  TO  THE  FIRST  ENTITY  ON  THE  CONSTITUENT  LIST 
GET  THE  CONSTITUENT'S  ADB 

CALL  THE  ROUTINE  TO  WRITE  OUT  THE  PRIMITIVE  TYPES  THAT 
WILL  APPEAR  IN  THE  ADB  OF  THE  ENTITY 
INTEGER 
REAL 
LOGICAL 
STRING 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  DEFINED  TYPE  *) 

(*  ARRAY  *) 

(*  ELSE  *) 

(*  IF  THE  TYPE  OF  DEFINITION  IS  THE  CONSTITUENT  LIST  *) 

(*  POSITION  THEN  *) 

(*  WRITE  TO  THE  FILE  T_CL_POSITION;  *) 

(*  ELSE  *) 

(*  IF  THE  DEFINITION  TYPE  IS  CONSTITUENT  KEY  THEN  *) 

(*  WRITE  TO  THE  FILE  ENTKEY ;  *) 

(*  END;  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCFLDSRT  *) 

(**) 

PROCEDURE  SCFLDSRT (CONST  CURRENT  :  ENTBLOCK; 

CONST  NEXT  :  ENTBLOCK; 

VAR  FLIP  ;  BOOLEAN; 

VAR  RRC  :  EXT_RET_CODE ; 

VAR  PROC  :  ROUTINE); 

SUBPROGRAM; 

(**) 

(* . - . - . — - . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  FINDS  THE  KEY  AND  RETURNS  IT  TO  THE  CALLING  *) 

(*  PROCEDURE  GIVEN  A  NAME  OR  USER  DEFINED  KIND  NUMBER  AS  WELL  *) 

(*  AS  THE  ENTITY  KIND.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTITYJCEY  I  KEY  TO  THE  ENTITY  *) 

(*  ADB  0  DATA  STORED  IN  THE  ADB  *) 

(*  DATA  I/O  THE  USER  DEFINED  DATA  STRUCTURE  USED  *) 

(*  TO  PASS  DATA  INTO  THIS  PROCEDURE  AND  *) 

(*  TO  GET  THE  DESIRED  OUTPUT  FROM  THE  *) 

(*  PROCEDURE  *) 

(*  RRC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >=  10  ERROR  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  IS  CALLED  BY  THE  MAS  EXECUTE  ROUTINES,  *) 

(*  MAKXEQ  AND  MAEXEQ.  THE  LIST  IS  SEARCHED  FOR  IDENTICAL  *) 

(*  DATA  AND  IF  IT  IS  FOUND  THE  ENTITY'S  KEY  IS  RETURNED  TO  *) 

(*  THE  CALLING  PROCEDURE  AS  WELL  A  FLAG  INDICATING  THAT  THE  *) 

(*  KEY  RETURNED  IS  THE  CORRECT  ONE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

;*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCFLDST  *) 

(**) 

PROCEDURE  SCFLDST(VAR  IRC  :  RET_REC; 

VAR  FIELD_L 1ST  :  LISTKEY; 

VAR  FIELDS_IN_ADB  :  LISTKEY; 

VAR  FIELDS_IN_CL  :  LISTKEY); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  SORTS  THE  FIELDS  INTO  TWO  GROUPS  AND  THEN  *) 

(*  ORDERS  THEM  ACCORDING  TO  OFFSET  OR  POSITION  DEPENDING  ON  *) 

(*  WHETHER  OR  NOT  THEY  ARE  IN  THE  LIST  OF  ADB  FIELDS  OR  THE  *) 

(*  LIST  OF  CONSTITUENT  FIELDS.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  I/O  RETURN  CODE  *) 

(*  FIELD_LIST  I  A  LIST  OF  FIELDS  *) 

(*  FIELDS_IN_ADB  0  A  LIST  OF  FIELDS  IN  THE  ADB  *) 

(*  FIELDS_IN_CL  0  A  LIST  OF  FIELDS  IN  THE  CONSTITUENT  LIST  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  READS  EACH  ENTITY  FROM  THE  LIST  AND  WRITES  *) 

(*  OUT  THE  ENTITY  NAME  AND  CONSTANT  TO  THE  INCLUDE  FILE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCFLDUP  *) 
(**) 

PROCEDURE  SCFLDUP(VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


IRC 

TRANS.STACK 

LIST_OF_FIELDS 

FIELDTYP 

FIELDJCEY 

DELETE_LIST 

NEW_KEYS  LIST 


RET.REC; 

TRANSPTR; 

LISTKEY; 

T_FIELDTYPE; 

ENTKEY ; 

LISTKEY; 

LISTKEY); 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  THE  FIELD  ENTITY. 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


IRC  0 
TRANS_STACK  I/O 
LIST_OF_FIELDS  I/O 

FIELD_KEY  I/O 
DELETE  LIST  I/O 
NEW_KEYS_LIST  I/O 


RETURN  CODE 

POINTS  TO  THE  TRANSACTION  STACK 
LIST  OF  THE  ENTITY'S  FIELDS  FROM  WHICH 
A  FIELD  IS  TO  BE  UPDATED 
KEY  OF  THE  FIELD  TO  BE  UPDATED 
LIST  OF  ENTITIES  TO  BE  DELETED 
LIST  OF  NEWLY  CREATED  ENTITIES 


SCOMMONS: 

NONE 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 


SPROCESSING  DESCRIPTION: 

THE  DATA  ABOUT  THE  FIELD  ENTITY  IS  DISPLAYED  BY  CALLING 
THE  MENU  INTERFACE  ROUTINE  (UPFIELD) .  THE  USER  CAN  CHANGE 
ANY  OF  THE  DATA  ON  THE  PANEL  OR  SELECT  ONE  OF  THE  FOLLOWING 
OPTIONS  : 

REVIEW  THE  CURRENT  TYPE, 

UPDATE  THE  CURRENT  TYPE, 

SAVE  THE  CHANGES  MADE, 

RETURN  OR  EXIT. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  IF  SAVE  THE  CHANGES  IS  CHOSEN  AND  THE  USER  HAS  CHANGED  ANY  *) 


(*  OF  THE  FIELD  DATA  THE  FIELD  KEY  IS  PLACED  ON  THE  DELETE  *) 

(*  LIST  AND  A  NEW  FIELD  ENTITY  IS  MODELED.  THE  KEY  TO  THE  NEW  *) 

(*  FIELD  ENTITY  IS  PLACE  ON  THE  NEW  KEYS  LIST.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCFNDKEY  *) 

(**) 

PROCEDURE  SCFNDKEY (CONST  ENTITY J(EY  :  ENTKEY; 

VAR  ADB  :  ENTBLOCK; 

VAR  DATA  :  BLKDATA; 

VAR  RRC  :  EXT_RET_CODE) ; 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{FUNCTION: 

THIS  ROUTINE  FINDS  THE  KEY  AND  RETURNS  IT  TO  THE  CALLING 
PROCEDURE  GIVEN  A  NAME  OR  USER  DEFINED  KIND  NUMBER  AS  WELL 
AS  THE  ENTITY  KIND. 


{DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


ENTITY  KEY 

ADB 

DATA 


RRC 


I  KEY  TO  THE  ENTITY 
0  DATA  STORED  IN  THE  ADB 
I/O  THE  USER  DEFINED  DATA  STRUCTURE  USED 
TO  PASS  DATA  INTO  THIS  PROCEDURE  AND 
TO  GET  THE  DESIRED  OUTPUT  FROM  THE 
PROCEDURE 

0  EXTERNAL  RETURN  CODE 
=  0  OK 
>=  10  ERROR 


{COMMONS: 

NONE 


{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


{EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 


{PROCESSING  DESCRIPTION: 

THIS  ROUTINE  IS  CALLED  BY  THE  MAS  EXECUTE  ROUTINES, 
MAKXEQ  AND  MAEXEQ.  THE  LIST  IS  SEARCHED  FOR  IDENTICAL 
DATA  AND  IF  IT  IS  FOUND  THE  ENTITY'S  KEY  IS  RETURNED  TO 
THE  CALLING  PROCEDURE  AS  WELL  A  FLAG  INDICATING  THAT  THE 
KEY  RETURNED  IS  THE  CORRECT  ONE. 


{COMMENTS: 
{CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCGENRPT  *) 

(**) 

PROCEDURE  SCGENRPT (VAR  IRC 

VAR  REPORT_TYPE 
VAR  MSG 

SUBPROGRAM; 

(**) 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


RET_REC; 
OPERATIONS; 
MESSAGE) ; 


SFUNCTION: 

THIS  ROUTINE  DETERMINES  THE  SUBSCHEMA  FOR  WHICH  A  REPORT 
IS  TO  BE  GENERATED  AND  CALLS  THE  APPROPRIATE  ROUTINE  TO 
PRODUCE  THE  REPORT. 

SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

=  =  ==  = 

=  =  = 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

(* 

IRC 

I/O 

RETURN  CODE 

(* 

REPORT  TYPE 

I 

TYPE  OF  REPORT  TO  BE  GENERATED 

(* 

MSG 

I/O 

PANEL  MESSAGE 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SCOMMONS: 

NONE 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 
SPROCESSING  DESCRIPTION: 

DISPLAY  A  PANEL  CONTAINING  A  LIST  OF  ALL  OF  THE  SUBSCHEMAS 

WITHIN  THE  SCHEMA  MODEL. 

IF  RETURN  OR  EXIT  WAS  NOT  CHOSEN  ON  THE  PANEL  THEN 
IF  A  MULTIPLE  SELECT  WAS  MADE  ON  THE  PANEL  THEN 
DISPLAY  AN  ERROR  MESSAGE 
ELSE 

GET  THE  KEY  OF  THE  SUBSCHEMA  SELECTED 
IF  THE  SUBSCHEMA  HAS  NOT  BEEN  PHYSICALIZED  THEN 
PHYSICALIZE  THE  SUBSCHEMA 
CALL  THE  APPROPRIATE  ROUTINE  TO  PRODUCE  A  REPORT 

ELSE 

IF  RETURN  WAS  SELECTED  THEN 
RETURN  TO  THE  REPORT  MENU 
ELSE 

IF  EXIT  WAS  SELECTED  THEN 
RETURN  TO  THE  MAIN  MENU 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


1-296 


PS  560130000A 
22  December  1987 


ELSE  *) 

DISPLAY  AN  ERROR  MESSAGE  FOR  AN  INVALID  OPTION  *) 

END;  *) 

*) 

SCOMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

*) 
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(*  %INCLUDE  SCHDVR  *) 


(**) 

/*__ 

_ *\ 

\ 

) 

(* 

*) 

(* 

SFUNCTION: 

*) 

(* 

THIS  IS  THE  MAINLINE  PROGRAM  WHICH  DRIVES  THE 

SCHEMA 

*) 

(* 

EXECUTIVE  PACKAGE. 

*) 

(* 

*) 

(* 

SDESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

SCOMMONS: 

*) 

(* 

DEF 

*) 

(* 

CURRENT  LIST  I/O  POINTS  TO  THE  LIST  KEY 

CURRENTLY 

*) 

(* 

IN  USE 

*) 

(* 

*) 

(* 

$ ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

DDNAMES  USED  WITH  STANDARD  FILES: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

S EXECUTION  PROCEDURE: 

*) 

(* 

INTERFACE  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

*) 

(* 

*) 

(* 

SPROCESSING  DESCRIPTION: 

*) 

(* 

THIS  ROUTINE  INITIALIZES  THE  NETWORK,  THEN  DETERMINES 

*) 

(* 

IF  THE  PACKAGE  IS  TO  BE  USED  INTERACTIVELY  OR 

BY  BATCH 

*) 

(* 

AND  CONTINUES  PROCESSING  ACCORDINGLY. 

*) 

(* 

*) 

(* 

*) 

(* 

SCOMMENTS: 

*) 

(* 

*) 

(* 

SCHANGE  CONTROL: 

*) 

(* 

*) 
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(*  %INCLUDE  SCINCLD  *) 

(**) 

PROCEDURE  SCINCLD(VAR  IRC  :  RET_REC ; 

VAR  MSG  :  MESSAGE); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  GENERATES  THE  PASCAL  INCLUDE  FILES  AND  WRITES  *) 

(*  THESE  DEFINITIONS  TO  A  FILE  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  I/O  RETURN  CODE  *) 

(*  MSG  I/O  PANEL  MESSAGE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  A  PANEL  CONTAINING  A  LIST  OF  ALL  OF  THE  SUBSCHEMAS  *) 

(*  WITHIN  THE  SCHEMA  MODEL.  *) 

(*  IF  RETURN  OR  EXIT  WAS  NOT  CHOSEN  ON  THE  PANEL  THEN  *) 

(*  IF  A  MULTIPLE  SELECT  WAS  MADE  ON  THE  PANEL  THEN  *) 

(*  DISPLAY  AN  ERROR  MESSAGE  *) 

(*  ELSE  *) 

(*  GET  THE  KEY  OF  THE  SUBSCHEMA  SELECTED  *) 

(*  IF  THE  SUBSCHEMA  HAS  NOT  BEEN  PHYSICALIZED  THEN  *) 

(*  PHYSICALIZE  THE  SUBSCHEMA  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  HEADING  FOR  THE  INCLUDES  *) 

(*  MAKE  AN  INCLUSIVE  LIST  OF  ENTITIES  WITHIN  THE  SUBSCHEMA  *) 

(*  DELETE  ANY  DUPLICATES  ON  THE  LIST  *) 

(*  ALPHABETICALLY  SORT  THE  ENTITIES  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  ENTITY  KIND  CONSTANTS  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  DEFINED  TYPE  DECLARATIONS  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  ENTITY  DECLARATIONS  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  MAS  ENTITY  DECLARATIONS  *) 

(*  WRITE  OUT  TO  THE  FILE  THE  KEYBLOCK  DECLARATIONS  *) 


1-299 


PS  560130000A 
22  December  1987 


(*  ELSE  *) 

(*  IF  RETURN  WAS  SELECTED  THEN  *) 

(*  RETURN  TO  THE  REPORT  MENU  *) 

(*  ELSE  *) 

(*  IF  EXIT  WAS  SELECTED  THEN  *) 

(*  RETURN  TO  THE  MAIN  MENU  *) 

(*  ELSE  *) 

(*  DISPLAY  AN  ERROR  MESSAGE  FOR  AN  INVALID  OPTION  *) 

(*  END;  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 


1-300 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  SCINTCR  *) 

(**) 

PROCEDURE  SCINTCR(VAR  IRC  :  RET_REC ; 

VAR  TRANS.STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* . 

(* 

(*  ^FUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE 

(*  INTEGER  ENTITY  AND  PUSHES  THE  DATA  ON  THE  TRANSACTION 

(*  STACK. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

THE  RETURN  CODE 

(* 

(* 

(* 

TRANS_STACK 

I/O 

THE  TRANSACTION  STACK 

SCOMMONS: 

(* 

REF 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OPTION  OR 

(* 

THE  RETURN  OPTION  IS  CHOSEN  WITHIN 

(* 

ANOTHER  ROUTINE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  CRINTEGR 

(*  TO  DISPLAY  THE  PANEL.  THE  DATA  ENTERED  ON  THE  PANEL  IS 

(*  VERIFIED  AND  IF  IT  IS  OK  IT  IS  PUSHED  ON  THE  TRANSACTION 

(*  STACK.  OTHERWISE,  IF  THE  DATA  ENTERED  IS  INVALID  THE 

(*  PANEL  IS  REDISPLAYED. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCINTUP  *) 

(**) 

PROCEDURE  SCINTUP(VAR  IRC  :  RET_REC ; 

VAR  INTEGERJCEY  :  ENTKEY; 

VAR  NUMBER_OF_USERS  :  INTEGER; 
VAR  DELETE.LIST  :  LISTKEY; 

VAR  NEW_KEYS_LIST  :  LISTKEY); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  UPDATES  THE  INTEGER  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  *) 

(*  INTEGER.KEY  I/O  KEY  OF  THE  ENTITY  TO  BE  UPDATED  *) 

(*  NUMBER_OF_USERS  I  NUMBERS  OF  USERS  OF  THE  INTEGER  ENTITY  *) 

(*  DELETE.LIST  I/O  LIST  OF  ENTITIES  TO  BE  DELETED  *) 

{*  NEW_KEYS_LIST  I/O  LIST  OF  NEWLY  CREATED  ENTITIES  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  DISPLAYS  THE  PRECISION  OF  THE  INTEGER  ENTITY  *) 

(*  AND  ALLOWS  THE  USER  TO  CHANGE  THE  INFORMATION  IF  HE/SHE  SO  *) 

(*  DESIRES.  IF  A  CHANGE  IS  MADE  AND  THE  NUMBER  OF  USERS  OF  *) 

(*  THE  OLD  INTEGER  ENTITY  IS  ONE  OR  LESS  THEN  ITS  KEY  IS  *) 

(*  PLACED  ON  THE  DELETE  LIST.  AFTER  THE  NEW  INTEGER  ENTITY  *) 

(*  IS  CREATED  ITS  KEY  IS  PLACED  ON  THE  NEW  KEYS  LIST.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCKEFIND  *) 

(**) 

PROCEDURE  SCKEFIND(VAR  IRC  :  RET_REC ; 

CONST  ENT_KIND  :  INTEGER; 
VAR  ENTJCEY  :  ENTKEY; 

VAR  CREATE  :  BOOLEAN) ; 

SUBPROGRAM; 


(**) 

(*" 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

i 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  GETS  THE  KEY  TO  THE  ENTITY  TO  BE  UPDATED  OR 
REVIEWED. 


JDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


ENTJCIND 

ENT_KEY 

CREATE 

IRC 


I  KIND  OF  THE  ENTITY 
0  KEY  OF  THE  ENTITY 

0  INDICATES  WHETHER  CREATE  OR  REVIEW 

0  RETURN  CODE 


^COMMONS: 

NONE 


S ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 


SPROCESSING  DESCRIPTION: 

THIS  ROUTINE  MAKES  A  LIST  OF  ENTITIES  OF  THE  KIND 
SPECIFIED  AND  DISPLAYS  THIS  LIST  OF  ENTITIES  BY  CALLING 
THE  MENU  INTERFACE  ROUTINE  (DISPLIST).  IF  AN  ENTITY  IS 
CHOSEN  THEN  MAKXEQ  IS  CALLED  TO  GET  THE  KEY  TO  THE  ENTITY 
IF  IT  EXISTS.  IF  AN  INVALID  PICK  IS  MADE  A  MESSAGE  IS 
DISPLAYED  ON  THE  DISPLIST  PANEL. 


SCOMMENTS: 
SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCKEYIN  *) 


VAR  INCLD  :  TEXT; 

VAR  ENTITYJ.IST  :  LISTKEY; 

VAR  CL.DEFN  :  LISTKEY) ; 

SUBPROGRAM; 

(**) 

(* . - . - . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  THE  KEYBLOCK  TYPE  DECLARATION  TO  THE  *) 

(*  PASCAL  INCLUDE  FILE.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  =====  »==  ===========  * ) 

(*  IRC  I/O  RETURN  CODE  *) 

(*  INCLD  I  THE  FILE  NAME  *) 

(*  ENTITY_LIST  I  A  LIST  OF  ENTITIES  *) 

(*  CL_DEFN  I  A  LIST  OF  ENTITIES  WHO  HAVE  CONSTITUENT  *) 

(*  LIST  DEFINITIONS  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  WRITE  THE  KEYBLOCK  HEADING  TO  THE  FILE  *) 

(*  WRITE  TYPE  TO  THE  FILE  *) 

(*  WRITE  OUT  TO  THE  FILE  KEYBLOCK  =  RECORD  *) 

(*  WRITE  OUT  TO  THE  FILE  CASE  INTEGER  OF  *) 

(*  SET  THE  LIST  OF  ENTITIES  TO  BE  READ  IN  THE  FORWARD  *) 

(*  CONTINUE  TO  READ  ENTITIES  UNTIL  THE  END  OF  LIST  IS  FOUND  *) 

(*  GET  THE  KEY  TO  THE  NEXT  ENTITY  ON  THE  LIST  *) 

(*  GET  THE  ENTITY'S  ADB  *) 

(*  WRITE  TO  THE  FILE  C_<ENTITY  NAME>  :  *) 

(*  IF  THE  ENTITY  IS  IN  THE  LIST  OF  GENERATED  CONSTITUENT  *) 

(*  DEFINITIONS  THEN  *) 

(*  WRITE  TO  THE  FILE  (<ENTITY  NAME>  :  C_<ENTITY  NAME>) ;  *) 

(*  ELSE  *) 

(*  WRITE  TO  THE  FILE  ();  *) 

(*  END;  *) 

(*  *) 
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(*  SCOHMENTS: 

(* 

(*  SCHANGE  CONTROL: 
(* 


*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCLISTCR  *) 

(**) 

PROCEDURE  SCLISTCR(VAR  IRC  :  RET_REC ; 

VAR  TRANS_STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE 

(*  LIST  ENTITY  AND  PUSHES  THE  DATA  ON  THE  TRANSACTION 

(*  STACK. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

THE  RETURN  CODE 

(* 

(* 

(* 

TRANS_STACK 

I/O 

THE  TRANSACTION  STACK 

SCOMMONS: 

(* 

REF 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OR  RETURN  OPTION 

(*  IS  CHOSEN  WITHIN  ANOTHER  ROUTINE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  CRLIST 

(*  TO  DISPLAY  THE  PANEL.  THE  DATA  ENTERED  ON  THE  PANEL  IS 

(*  VERIFIED  AND  IF  IT  IS  OK  IT  IS  PUSHED  ON  THE  TRANSACTION 

(*  STACK  OR  THE  APPROPRIATE  ACTION  IS  TAKEN.  IF  ANY  OF  THE 

(*  DATA  ENTERED  IS  INVALID  THEN  THE  PANEL  IS  REDISPLAYED 

(*  WITH  AN  ERROR  MESSAGE. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP.ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
(*  NARATION  ON  THE  NEXT  LINE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  10/09/87  C.  H.  MOHME  DBMA  *) 

(*  ADDED  PARAMETER  TO  SCDEFCR  CALL.  *) 

(*  *) 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . . *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  SCLISTCR  *) 
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(*  %INCLUDE  SCLISTUP  *) 

(**) 

PROCEDURE  SCLISTUP (VAR  IRC  :  RET_REC ; 

VAR  TRANS_STACK  :  TRANS PTR; 

VAR  LIST_KEY  :  ENTKEY; 

VAR  NUMBER  OF.USERS  :  LISTKEY; 

VAR  DELETElLIST  :  LISTKEY; 

VAR  NEW_KEYS_LIST  :  LISTKEY); 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  $FUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  A  LIST. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  IRC  0  RETURN  CODE 

(*  TRANS_STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK 

(*  LISTJCEY  I/O  KEY  OF  THE  LIST  TO  BE  UPDATED 

(*  NUMBER_OF_USERS  I/O  THE  NUMBER  OF  USERS  OF  THE  LIST 

(*  DELETE.LIST  I/O  LIST  OF  ENTITIES  TO  BE  DELETED 

(*  NEW_KEYS_LIST  I/O  LIST  OF  NEWLY  CREATED  ENTITIES 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THE  CURRENT  LIST  DATA  IS  DISPLAYED  ON  THE  UPLIST  PANEL. 

(*  THE  DATA  CAN  THEN  BE  UPDATED  BY  THE  USER. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP. ID 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
(*  NARATION  ON  THE  NEXT  LINE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 

(*  REVISED:  MM/DD/YY  CCXX  I.  M.  APERSON  GROUP_ID  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  . .  .  .  . — -*) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  SCLISTUP  *) 
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(*  %INCLUDE  SCMASIN  *) 

(**) 

PROCEDURE  SCMASIN (VAR  IRC  :  RET_REC ; 

VAR  INCLD  :  TEXT; 

VAR  ENTITY.!.  I  ST  :  LISTKEY; 

VAR  ADB  DEFN  :  LISTKEY); 

SUBPROGRAM; 

(**) 

(* .  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  THE  MAS  ADB  DECLARATION  TO  THE  PASCAL  *) 

(*  INCLUDE  FILE.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  I/O  RETURN  CODE  *) 

(*  INCLD  I  THE  FILE  NAME  *) 

(*  ENTITY.LIST  I  A  LIST  OF  ENTITIES  *) 

(*  ADB.DEFN  I  A  LIST  OF  ENTITIES  THAT  HAVE  AN  ADB  *) 

(*  DEFINITION  GENERATED  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  WRITE  THE  HEADING  TO  THE  FILE  *) 

(*  WRITE  THE  FOLLOWING  TO  THE  FILE  *) 

(*  ENTBLOCK  =  RECORD  *) 

(*  KIND  :  INTEGER;  *) 

(*  LENGTH  :  INTEGER;  *) 

(*  SYSUSE  :  INTEGER;  *) 

(*  VERSION  :  INTEGER;  *) 

(*  SYS.IDENT  :  INTEGER;  *) 

(*  IDENT  :  INTEGER;  *) 

(*  CASE  INTEGER  OF  *) 

(*  SET  THE  LIST  OF  ENTITIES  TO  BE  READ  FORWARD  *) 

(*  CONTINUE  TO  READ  ENTITIES  UNTIL  THE  END  OF  LIST  IS  FOUND  *) 

(*  GET  THE  KEY  TO  THE  NEXT  ENTITY  IN  THE  LIST  *) 

(*  GET  THE  ENTITY'S  ADB  *) 

(*  WRITE  TO  THE  FILE  K_< ENTITY  NAME>  :  *) 
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IF  THE  ENTITY  IS  IN  THE  LIST  OF  GENERATED  ADB  DEFINITIONS  *) 


WRITE  TO  THE  FILE  (<ENTITY  NAME>  :  E_< ENTITY  NAME>) ;  *) 

ELSE  *) 

WRITE  TO  THE  FILE  ();  *) 

END;  *) 

*) 

SCOMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

*) 
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(*  %INCLUDE  SCMEMAD  *) 

(**) 

PROCEDURE  SCMEMAD (VAR  IRC  :  RET.REC; 

VAR  ENTJCEY :  ENTKEY; 

VAR  LIST_OF_CNSTS  :  LISTKEY; 
VAR  CHOSEN.KEY  :  ENTKEY); 

SUBPROGRAM; 


(*  *) 

(*  SANCTION:  *) 

(*  THIS  ROUTINE  DISPLAYS  A  LIST  OF  MEMBERS  FROM  WHICH  THE  *) 

(*  USER  CAN  SELECT.  THE  ENTITY  KEY  OF  THE  MEMBER  SELECTED  IS  *) 

(*  RETURNED.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  THE  INTERNAL  RETURN  CODE  INDICATING  *) 

(*  WHETHER  AN  ERROR  HAS  OCCURRED.  *) 

(*  ENT.KEY  I  THE  KEY  OF  THE  ENTITY  TO  WHICH  MEMBERS  *) 

(*  ARE  BEING  ADDED  *) 

(*  LIST_OF_CNSTS  I  THE  LIST  OF  ALL  CONSTITUENTS  *) 

(*  CHOSEN_KEY  0  THE  ENTITY  KEY  OF  THE  MEMBER  SELECTED  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  BEGINS  WITH  THE  CONSTITUENT  LIST  AND  REMOVES  *) 

(*  FROM  IT  THOSE  CONSTITUENTS  WHICH  ARE  ALREADY  MEMBERS.  IT  *) 

(*  ALSO  REMOVES  THE  CONSTITUENT  TC  WHICH  MEMBERS  ARE  BEING  *) 

(*  ADDED.  THE  PANEL  DISPLIST  DISPLAYS  THE  MEMBERS  AND  THE  *) 

(*  USER  CAN  SELECT  ONE.  THE  ENTITY  KEY  OF  THE  MEMBER  SE-  *) 

(*  LECTED,  IF  ANY,  IS  RETURNED.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCMEMLST  *) 

(**) 

PROCEDURE  SCMEMLST(VAR  IRC  :  RET.REC; 

VAR  TRANS_STACK  :  TRANSPTR; 

VAR  ENT.TYP  :  ENTITY_TYPE) ; 

SUBPROGRAM; 

(**) 

(* . *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  THIS  ROUTINE  LISTS  OUT  THE  CURRENT  MEMBERS/CONSTITUENTS  OF  *) 

(*  THE  ENTITY,  CLASS,  SUBSCHEMA,  POINTER,  STRUCTURE,  GLOBAL  *) 

(*  FIELD  AND  ENUMERATION  ENTITIES.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  TRANS_STACK  I/O  POINTER  TO  THE  TRANSACTION  STACK  *) 

(*  ENT  TYP  I  THE  ENTITY  TYPE  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

{*  S ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  SEARCHES  THROUGH  THE  TRANSACTION  STACK  FOR  *) 

(*  THE  CONSTITUENTS  OF  THE  ENTITY  TYPE  PASSED  IN.  THE  CON-  *) 

(*  STITUENT  NAMES  ARE  PLACED  IN  AN  ARRAY  THAT  IS  DISPLAYED  *) 

(*  BY  CALLING  THE  MENU  INTERFACE  ROUTINE  (LMEM23) .  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCPOPKE  *) 

(**) 

PROCEDURE  SCPOPKE (VAR  IRC  :  RET.REC); 

SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  'POPS'  A  KEY  OFF  OF  THE  KEY  STACK. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  IRC  0  THE  RETURN  CODE 

(* 

(*  SCOMMONS: 

(*  REF 

(*  CURRENT_LIST  0  LIST  KEY  POPPED  OFF  OF  THE  KEY  STACK 

(*  KEY.STACK  I/O  POINTER  TO  THE  KEY  STACK 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  IF  THE  KEY  STACK  IS  NIL  THEN  AN  ERROR  MESSAGE  IS  RETURNED 

(*  TO  THE  CALLING  PROCEDURE.  OTHERWISE,  THE  KEY  DATA  IS 

(*  'POPPED'  OFF  OF  THE  STACK  AND  THE  NODE  IS  DISPOSED  OF  BY 

(*  CALLING  THE  BUILT  IN  PASCAL  PROCEDURE  'DISPOSE'. 

(* 

(*  SCOMMENTS: 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE. 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCPOPTR  *) 

(**) 

PROCEDURE  SCPOPTR (VAR  IRC  :  RET.REC; 


VAR  TRANS.STACK  :  TRANSPTR; 
VAR  DATA  :  TRANSACTION); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  'POPS'  THE  TRANSACTION  DATA  OFF  OF  THE  *) 

(*  DYNAMICALLY  ALLOCATED  STACK.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  TRANS_STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK  *) 

(*  DATA  0  THE  TRANSACTION  DATA  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  S ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  IF  THE  TRANSACTION  STACK  IS  NIL  THEN  AN  ERROR  MESSAGE  IS  *) 

(*  RETURNED  TO  THE  CALLING  PROCEDURE.  OTHERWISE,  THE  TRANS-  *) 

(*  ACTION  DATA  IS  'POPPED'  OFF  OF  THE  STACK  AND  THE  NODE  *) 

(*  IS  DISPOSED  OF  BY  CALLING  THE  BUILT  IN  PASCAL  PROCEDURE  *) 

(*  DISPOSE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCPRMFL  *) 

(**) 

PROCEDURE  SCPRMFL (VAR  IRC  :  RET  REC; 

VAR  LIST_OF_ENTITIES  :  LISTKEY; 

VAR  LISTARRAY  :  T_ARRAY23; 

VAR  INDEX  :  INTEGER); 

SUBPROGRAM; 


(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  FILLS  AN  ARRAY  WITH  THE  NAMES  OF  THE  ENTITIES 

(*  IN  THE  LIST  OF  ENTITIES. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O 

(*  ==== 

(*  L I ST_OF_ENT I T I ES  I 

(*  LISTARRAY  I/O 

(*  INDEX  I/O 

(*  IRC  0 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THE  LIST  OF  ENTITIES  PASSED  IN  IS  TRAVERSED  AND  EACH 

(*  ENTITY'S  ADB  IS  RETRIEVED.  THE  ENTITY'S  ADB  DATA  IS 

(*  TRANSLATED  INTO  CHARACTER  FORMAT  IF  NECESSARY,  AND  IS 

(*  PLACED  INTO  THE  LISTARRAY.  THIS  PROCESS  CONTINUES  UNTIL 

(*  THE  END  OF  THE  LIST  IS  ENCOUNTERED  OR  THE  MAXIMUM  ARRAY 

(*  SIZE  IS  EXCEEDED. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


DESCRIPTION 

LIST  OF  ENTITIES  TO  BE  PUT  IN  ARRAY 
ARRAY  CONTAINING  THE  ENTITY  NAMES 
INDEX  OF  THE  CURRENT  ARRAY  POSITION 
INTERNAL  RETURN  CODE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCPRMRE  *) 

(**) 

PROCEDURE  SCPRMRE (VAR  IRC  :  RET_REC ; 

VAR  ENTJCEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* . - . - . —  - . *) 

(*  *) 

(*  SEUNCTION:  *) 

(*  THIS  ROUTINE  GATHERS  THE  DATA  TO  REVIEW  THE  ENTITIES  AND  *) 

(*  CALLS  THE  MENU  INTERFACE  ROUTINES  TO  DISPLAY  THIS  DATA.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTJCEY  I  KEY  OF  THE  ENTITY  TO  BE  REVIEWED  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  FIRST  THE  ADB  OF  THE  ENTITY  PASSED  IN  MUST  BE  RETRIEVED,  *) 

(*  THEN  ACCORDING  TO  THE  ENTITY'S  TYPE  THE  ADB  DATA  IS  TRANS-  *) 

(*  LATED  INTO  CHARACTER  FORMAT  IF  IT  IS  NECESSARY.  IF  THE  *) 

(*  ENTITY  HAS  CONSTITUENTS  THAT  ARE  TO  BE  DISPLAYED  WITH  THE  *) 

(*  ENTITY'S  DATA,  THEN  THE  DATA  ABOUT  THE  CONSTITUENTS  MUST  *) 

(*  BE  PUT  INTO  A  FORMAT  THE  CAN  BE  DISPLAYED  ALSO.  THEN  THE  *) 

(*  APPROPRIATE  MENU  INTERFACE  ROUTINE  IS  CALLED  TO  DISPLAY  *) 

(*  THIS  INFORMATION.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCPTRCR  *) 

(**) 

PROCEDURE  SCPTRCR(VAR  IRC  :  RET_REC ; 

VAR  TRANS.STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE 

(*  POINTER  ENTITY  AND  PUSHES  THE  DATA  ON  THE  TRANSACTION 

(*  STACK. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

THE  RETURN  CODE 

(* 

(* 

(* 

TRANS_STACK 

I/O 

THE  TRANSACTION  STACK 

SCOMMONS: 

(* 

REF 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OR  RETURN  OPTION 

(*  IS  CHOSEN  WITHIN  ANOTHER  ROUTINE 

(* 

(*  S ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  CRPNTR 

(*  TO  DISPLAY  THE  PANEL.  THE  DATA  ENTERED  ON  THE  PANEL  IS 

(*  VERIFIED  AND  IF  IT  IS  OK  IT  IS  PUSHED  ON  THE  TRANSACTION 

(*  STACK  OR  THE  APPROPRIATE  ACTION  IS  TAKEN.  IF  ANY  OF  THE 

(*  DATA  IS  INVALID  THE  PANEL  IS  REDISPLAYED  WITH  AN  ERROR 

(*  MESSAGE. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

** 

/ 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCPTRUP  *) 
(**) 

PROCEDURE  SCPTRUP (VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


IRC 

POINTER_KEY 

NUMBER_OF_USERS 

DELETE.LIST 

NEW_KEYS_LIST 


RET_REC ; 
ENTKEY ; 
INTEGER; 
LISTKEY; 
LISTKEY); 


(**) 

(* .  . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  THE  POINTER  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

K  =  =  2S 

*  =  = 

ii 

n 

ii 

ii 

n 

ii 

ii 

ii 

ii 

ii 

ii 

(* 

POINTER  KEY 

I/O 

KEY  OF  THE  ENTITY  TO  BE  UPDATED 

(* 

NUMBER  OF  USERS 

I 

THE  NUMBER  OF  USERS  OF  THIS  ENTITY 

(* 

(* 

DELETE_LIST 

I/O 

LIST  OF  ENTITIES  TO  DELETE  IF  THE 
CHANGES  MADE  ARE  SAVED 

(* 

(* 

NEW_KEYS_LIST 

I/O 

LIST  OF  ENTITIES  JUST  CREATED  DURING 
THE  UPDATE  PROCESS 

(* 

IRC 

0 

RETURN  CODE 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/438 1 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  (UPPNTR) 

(*  WHICH  DISPLAYS  INFORMATION  ABOUT  THE  POINTER  ENTITY.  THE 

(*  UPDATE  POINTER  OPTIONS  INCLUDE  THE  FOLLOWING  : 

(*  UPDATE  THE  CONSTITUENT  LIST  BY  ADDING  OR  REMOVING  AN 

(*  ELEMENT, 

(*  REVIEW  A  CONSTITUENT, 

(*  SAVE  THE  CHANGES  MADE, 

(*  RETURN  AND  EXIT. 

(*  IF  THE  CONSTITUENT  LIST  WAS  CHANGED  AND  NO  MORE  CHANGES 

(*  WAS  SELECTED  THE  OLD  POINTER  ENTITY  KEY  IS  PLACED  ON  THE 

(*  DELETE  LIST  AND  A  NEW  POINTER  ENTITY  IS  MODELED.  THE  NEW 

(*  POINTER  ENTITY  KEY  IS  PLACED  ON  THE  NEW  KEYS  LIST. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCPUSHKE  *) 

(**) 

PROCEDURE  SCPUSHKE(VAR  IRC  :  RET  REC); 
SUBPROGRAM; 


(*  *) 

(*  ^FUNCTION:  *) 

(*  THIS  ROUTINE  'PUSHES'  THE  KEY  DATA  ON  TO  THE  DYNAMICALLY  *) 

(*  ALLOCATED  KEY  STACK.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  THE  RETURN  CODE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  REF  *) 

(*  CURRENT_LIST  I/O  A  KEY  TO  THE  LIST  CURRENTLY  IN  USE  *) 

(*  KEY.STACK  I/O  POINTER  TO  THE  KEY  STACK  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  A  NODE  IS  DYNAMICALLY  ALLOCATED  BY  CALLING  THE  BUILT  IN  *) 

(*  PROCEDURE  'NEW'.  THE  KEY  DATA  IS  THEN  'PUSHED'  ONTO  THE  *) 

(*  KEY  STACK.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND  *) 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCPUSHTR  *) 

(**) 

PROCEDURE  SCPUSHTR(VAR  IRC  :  RET  REC; 

VAR  TRANS.STACK  :  TRANSPTR; 

CONST  DATA  :  TRANSACTION); 

SUBPROGRAM; 

(**) 

(*  - 

(* 

(*  S FUNCTION: 

(*  THIS  ROUTINE  'PUSHES'  THE  TRANSACTION  DATA  ON  TO  THE 

(*  DYNAMICALLY  ALLOCATED  STACK. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

INTERNAL  RETURN  CODE 

(* 

TRANS  STACK 

I/O 

POINTER  TO  THE  TRANSACTION  STACK 

(* 

(* 

(* 

DATA 

I 

THE  TRANSACTION  DATA 

SCOMMONS: 

(* 

(* 

(* 

NONE 

$ ENVIRONMENT: 

(* 

LANGUAGE:  IBM 

PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  A  NODE  IS  ALLOCATED  BY  CALLING  THE  BUILT  IN  PASCAL 

(*  PROCEDURE  'NEW'.  THE  TRANSACTION  DATA  IS  THEN  'PUSHED' 

(*  ONTO  THE  STACK. 

(* 

(*  SCOMMENTS: 

(* 

(*  JCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCRELCR  *) 

(**) 

PROCEDURE  SCRELCR(VAR  IRC  :  RET.REC; 

VAR  TRANS_STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


$rUNCTION: 

THIS  ROUTINE  GATHERS  THE  DATA  NECESSARV  TO  CREATE  THE 
REAL  ENTITY  AND  PUSHES  THE  DA  I A  ON  THE  TRANSACTION 
STACK. 

SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


HARDWARE  SYSTEM:  IBM  360/370/4341/4381 
SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 
SPROCESSING  DESCRIPTION: 

THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  CRREAL 
TO  DISPLAY  THE  PANEL.  THE  DATA  ENTERED  ON  THE  PANEL  IS 
VERIFIED  AND  IF  IT  IS  OK  IT  IS  PUSHED  ON  THE  TRANSACTION 
STACK.  OTHERWISE,  IF  THE  DATA  ENTERED  IS  INVALID  THE 
PANEL  IS  REDISPLAYED. 

SCOMMENTS: 

SCHANGE  CONTROL: 


■*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

*) 

*) 

IRC 

0 

THE  RETURN  CODE 

(* 

TRANS_STACK 

I/O 

THE  TRANSACTION  STACK 

*) 

(* 

*\ 

J 

(* 

SCOMMONS: 

*) 

(* 

REF 

*) 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OPTION  OR 

*) 

(* 

THE  RETURN  OPTION  IS  CHOSEN  WITHIN 

*) 

(* 

ANOTHER  ROUTINE 

*) 

(* 

*) 

(* 

S ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM 

PASCAL 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCRELUP  *) 

(**) 

PROCEDURE  SCRELUP(VAR  IRC  :  RET.REC; 

VAR  REAL_KEY  :  ENTKEY; 

VAR  NUMBER_OF_USERS  :  INTEGER; 
VAR  DELETE_LIST  :  LISTKEY; 

VAR  NEW_KEYS_LIST  :  LISTKEY); 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  UPDATES  THE  REAL  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

REAL  KEY 

I/O 

KEY  OF  THE  ENTITY  TO  BE  UPDATED 

(* 

NUMBER  OF  USERS 

I 

NUMBER  OF  USERS  OF  THE 

REAL  ENTITY 

(* 

DELETE  LIST 

I/O 

LIST  OF  ENTITIES  TO  BE 

DELETED 

(* 

NEW  KEYS  LIST 

I/O 

LIST  OF  NEWLY  CREATED 

ENTITIES 

(* 

(* 

(* 

IRC 

0 

RETURN  CODE 

SCOMMONS: 

(* 

(* 

(* 

NONE 

$ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  DISPLAYS  THE  PRECISION  OF  THE  REAL  ENTITY  AND 

(*  ALLOWS  THE  USER  TO  CHANGE  THE  INFORMATION  IF  HE/SHE  SO 

(*  DESIRES.  IF  A  CHANGE  IS  MADE  AND  THE  NUMBER  OF  USERS  OF 

(*  THE  OLD  REAL  ENTITY  IS  ONE  OR  LESS  THEN  ITS  KEY  IS  PLACED 

(*  ON  THE  DELETE  LIST.  AFTER  THE  NEW  REAL  ENTITY  IS  CREATED 

(*  THIS  KEY  IS  PLACED  ON  THE  NEW  KEYS  LIST. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCREVIEW  *) 

(**) 

PROCEDURE  SCREVIEW (VAR  IRC  :  RET_REC; 

VAR  TRANS.STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  DETERMINES  THE  NEXT  MENU  TO  DISPLAY  FROM  THE 

(*  EDIT  OPTION  CHOSEN. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

=  =  =  == 

=  =  = 

=========== 

(* 

IRC 

0 

RETURN  CODE 

(* 

(* 

(* 

(* 

TRANS_STACK 

SCOMMONS: 

DEF 

I/O 

POINTS  TO  THE  TRANSACTION  STACK 

(* 

(* 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OPTION  HAS 
BEEN  CHOSEN  WITHIN  ANOTHER  CREATE 
PROCEDURE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  CALLS  THE  REVIEW  MENU  INTERFACE  ROUTINE  (MREVIEW)  AND 

(*  PROCESSES  THE  OATA  RECIEVED  FROM  THE  MENU  EITHER  BY 

(*  CALLING  THE  APPROPRIATE  ROUTINE  OR  EXITING  THE  PROCEDURE. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*} 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
NARATION  ON  THE  NEXT  LINE. 

REVISED:  09/28/87  C.  H.  MOHME 

INCORPORATED  THE  SUPERTYPE  DATA  TYPE. 


ORIGINATED:  08/13/87 


C.  H.  MOHME 


DBMA 


DBMA 


END . . 

END  %INCLUDE  SCREVIEW  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCRPTM  *) 

(**) 

PROCEDURE  SCRPTM(VAR  IRC  :  RET.REC); 
SUBPROGRAM; 


(*  *) 

(*  ^FUNCTION:  *) 

(*  THIS  ROUTINE  DETERMINES  THE  REPORT  OPTION  SELECTED  AND  *) 

(*  CALLS  THE  ROUTINE  WHICH  GENERATES  THE  REPORT.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  *) 

(*  $COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *} 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  CALL  THE  MENU  INTERFACE  ROUTINE  TO  DISPLAY  THE  REPORT  *) 

(*  MENU  (RPTMENU)  AND  THEN  CALL  THE  APPROPRIATE  ROUTINE  *) 

(*  TO  GENERATED  THE  REPORT.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCSETCR  *) 

(**) 

PROCEDURE  SCSETCR(VAR  IRC  :  RET_REC ; 

VAR  TRANS_STACK  :  TRANSPTR) ; 

SUBPROGRAM; 


(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE 

(*  SET  ENTITY  AND  PUSHES  THE  DATA  ON  THE  TRANSACTION 

(*  STACK. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

{* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

THE  RETURN  CODE 

(* 

(* 

(* 

TRANS.STACK 

I/O 

THE  TRANSACTION  STACK 

SCOMMONS: 

(* 

REF 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OR  RETURN  OPTION 

(* 

IS  CHOSEN  WITHIN  ANOTHER  ROUTINE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  CRSET 

(*  TO  DISPLAY  THE  PANEL.  THE  DATA  ENTERED  ON  THE  PANEL  IS 

(*  VERIFIED  AND  IF  IT  IS  OK  IT  IS  PUSHED  ON  THE  TRANSACTION 

(*  STACK  OR  THE  APPROPRIATE  ACTION  IS  TAKEN.  IF  ANY  OF  THE 

(*  DATA  ENTERED  IS  INVALID  THEN  THE  PANEL  IS  REDISPLAYED 

(*  WITH  AN  ERROR  MESSAGE. 

(* 

(*  SCOMMENTS: 

(* 

(*  JCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
(*  NARATION  ON  THE  NEXT  LINE. 


(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  10/09/87  C.  H.  MOHME  DBMA  *) 

(*  ADDED  PARAMETER  TO  SCDEFCR  CALL.  *) 

(*  *) 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* .  .  *) 

(*  *) 

(*END . . . - - - *) 

(*  END  %INCLUDE  SCSETCR  *) 
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(*  ^INCLUDE  SCSETUP  *) 

(**) 

PROCEDURE  SCSETUP(VAR  IRC  :  RET_REC ; 

VAR  TRANS_STACK  :  TRANS PTR; 

VAR  SETJCEY  :  ENTKEY ; 

VAR  NUMBER_OF_USERS  :  LISTKEY; 

VAR  DELETE_LIST  :  LISTKEY; 

VAR  NEW_KEYS_LIST  :  LISTKEY); 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  5FUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  A  SET. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

RETURN  CODE 

(* 

TRANS  STACK 

I/O 

POINTS  TO  THE 

TRANSACTION  STACK 

(* 

SET  KEY 

I/O 

KEY  OF  THE  SET  TO  BE  UPDATED 

(* 

NUMBER  OF  USERS 

I/O 

THE  NUMBER  OF 

USERS  OF 

THE  LIST 

(* 

DELETE  LIST 

I/O 

LIST  OF  ENTITIES  TO  BE 

DELETED 

(* 

(* 

(* 

NEW_KEYS_LIST 

I/O 

LIST  OF  NEWLY 

CREATED 

ENTITIES 

SCOMMONS: 

(* 

(* 

(* 

NONE 

$ ENVIRONMENT: 

(* 

LANGUAGE:  IBM 

PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THE  CURRENT  SET  DATA  IS  DISPLAYED  ON  THE  UPSET  PANEL. 

(*  THE  DATA  CAN  THEN  BE  UPDATED  BY  THE  USER. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
(*  NARATION  ON  THE  NEXT  LINE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  MM/DD/YY  CCXX  I.  M.  APERSON  GROUP.ID  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . *) 

(*  *) 

(*END . . . - . -*) 

(*  END  %INCLUDE  SCSETUP  *) 
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(*  %INCLUDE  SCSTCUP  *) 
(**) 

PROCEDURE  SCSTCUP (VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


IRC 

TRANS.STACK 

STRUCTUREJCEY 

DELETE.LIST 

NEW_KEYS_LIST 


RET_REC; 
TRANSPTR; 
ENTKEY ; 
LISTKEY; 
LISTKEY); 


(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  THE  STRUCTURE 

(*  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

===== 

=========== 

(* 

TRANS  STACK 

I/O 

POINTS  TO  THE  TRANSACTION  STACK 

(* 

STRUCTURE  KEY 

I/O 

KEY  OF  THE  ENTITY  TO  BE  UPDATED 

(* 

DELETE  LIST 

I/O 

LIST  OF  ENTITIES  TO  BE  DELETED 

(* 

NEW  KEYS  LIST 

I/O 

LIST  OF  NEWLY  CREATED  ENTITIES 

(* 

IRC 

0 

RETURN  CODE 

(* 

(*  $ COMMONS: 

(*  NONE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  UPDATES  THE  FIELDS  IN  A  STRUCTURE.  FIELDS 

(*  CAN  BE  ADDED,  REMOVED,  REVIEWED,  AND  UPDATED.  IF  ANY 

(*  CHANGES  WERE  MADE  TO  THE  STRUCTURE  ENTITY'S  CONSTITUENTS 

(*  THE  OLD  STRUCTURE  ENTITY'S  KEY  IS  PLACED  ON  THE  DELETE  LIST 

(*  AND  A  NEW  STRUCTURE  ENTITY  IS  MODELED  AND  ITS  KEY  IS  PLACED 

(*  ON  THE  NEW  KEYS  LIST. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  SCSTGCR  *) 

(**) 

PROCEDURE  SCSTGCR(VAR  IRC  :  RET_REC; 

VAR  TRANS_STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  CREATE  THE 

(*  STRING  ENTITY  AND  PUSHES  THE  DATA  ON  THE  TRANSACTION 

(*  STACK. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

THE  RETURN  CODE 

(* 

(* 

(* 

TRANS.STACK 

I/O 

THE  TRANSACTION  STACK 

SCOMMONS: 

(* 

REF 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OPTION  OR 

(* 

THE  RETURN  OPTION  IS  CHOSEN  WITHIN 

(* 

ANOTHER  ROUTINE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  CRSTRING 

(*  TO  DISPLAY  THE  PANEL.  THE  DATA  ENTERED  ON  THE  PANEL  IS 

(*  VERIFIED  AND  IF  IT  IS  OK  IT  IS  PUSHED  ON  THE  TRANSACTION 

(*  STACK.  OTHERWISE,  IF  THE  DATA  ENTERED  IS  INVALID  THE 

(*  PANEL  IS  REDISPLAYED. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCSTGUP  *) 

(**) 

PROCEDURE  SCSTGUP (VAR  IRC  :  RET_REC ; 

VAR  STRING_KEY  :  ENTKEY; 

VAR  NUMBER  OFJJSERS  :  INTEGER; 
VAR  DELETE_LIST  :  LISTKEY; 

VAR  NEW_KEYS_LIST  :  LISTKEY); 

SUBPROGRAM; 

(**) 

(* . 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  UPOATES  THE  STRING  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  STRING.KEY  I/O  KEY  OF  THE  ENTITY  TO  BE  UPDATED  *) 

(*  NUMBER_OF_USERS  I  NUMBER  OF  USERS  OF  THE  STRING  ENTITY  *) 

(*  DELETE_LIST  I/O  LIST  OF  ENTITIES  TO  BE  DELETED  *) 

(*  NEW_KEYS_LIST  I/O  LIST  OF  NEWLY  CREATED  ENTITIES  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  *) 

(*  $COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  DISPLAYS  THE  LENGTH  OF  THE  STRING  ENTITY  IN  *) 

(*  BYTES  AND  ALLOWS  THE  USER  TO  CHANGE  THE  INFORMATION  IF  HE/  *) 

(*  SHE  SO  DESIRES.  IF  A  CHANGE  IS  MADE  AND  THE  NUMBER  OF  *) 

(*  USERS  OF  THE  OLD  STRING  ENTITY  IS  ONE  OR  LESS  THEN  ITS  KEY  *) 

(*  IS  PLACED  ON  THE  DELETE  LIST.  AFTER  THE  NEW  STRING  ENTITY  *) 

(*  IS  CREATED  ITS  KEY  IS  PLACED  ON  THE  NEW  KEYS  LIST.  *) 

(*  *) 

(*  $COMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCSUBCR  *) 

(**) 

PROCEDURE  SCSUBCR(VAR  IRC  :  RET_REC ; 

VAR  TRANS.STACK  :  TRANS PTR) ; 

SUBPROGRAM; 

(**) 

(*— - .  .  . 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NEEDED  TO  MODEL  THE  *) 

(*  SUBSCHEMA  ENTITY.  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  INTERNAL  RETURN  CODE  *) 

(*  TRANS_STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  REF  *) 

(*  INSIDE  I/O  INDICATES  IF  THE  EXIT  OR  RETURN  OPTION  *) 

(*  HAS  BEEN  CHOSEN  WITHIN  ANOTHER  ROUTINE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4342/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THE  MENU  INTERFACE  ROUTINE  (CRSUBSCM)  IS  CALLED  TO  DISPLAY  *) 

(*  THE  CREATE  SUBSCHEMA  PANEL.  THE  DATA  GATHERED  IS  VERIFIED  *) 

(*  AND  IF  IT  IS  VALID  IT  IS  PUSHED  ON  TO  THE  TRANSACTION  *) 

(*  STACK  OR  THE  APPROPRIATE  ACTION  IS  TAKEN.  IF  ANY  OF  THE  *) 

(*  DATA  IS  INVALID  THE  PANEL  IS  REDISPLAYED  WITH  AN  ERROR  *) 

(*  MESSAGE.  THIS  PANEL  CONTINUES  TO  BE  DISPLAYED  UNTIL  EXIT  *) 

(*  OR  NO  MORE  MEMBERS  IS  CHOSEN.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCSUBUP  *) 

(**) 

PROCEDURE  SCSUBUP (VAR  IRC  :  RET.REC; 

VAR  SU8SCHEMAJCEY  :  ENTKEY) ; 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


$FUNCTION: 

THIS  ROUTINE  GATHERS  THE  DATA  TO  UPDATE  THE  SUBSCHEMA 
ENTITY. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

SUBSCHEMAJCEY  I  KEY  OF  THE  ENTITY  TO  BE  UPDATED 
IRC  0  RETURN  CODE 

SCOMMONS: 

NONE 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 
tPROfF^ING  nF^rRTPTTON- 

THIS  ROUTINE  CALLSTHE  MENU  INTERFACE  ROUTINES  (UPSUB1  AND 
UPSUB2)  WHICH  DISPLAY  THE  DATA  DESCRIBING  THE  SUBSCHEMA. 
THE  UPDATE  SUBSCHEMA  OPTIONS  INCLUDE  : 

CHANGE  THE  SUBSCHEMA  NAME, 

UPDATE  THE  CONSTITUENT  LIST  BY  ADDING/ 

REMOVING  ELEMENTS, 

REVIEW  A  CONSTITUENT, 

DELETE  THE  SUBSCHEMA, 

SAVE  THE  CHANGES  MADE, 

RETURN  AND  EXIT. 


SCOMMENTS: 
SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCSUPCR  *) 

(**) 

PROCEDURE  SCSUPCR(VAR  IRC  :  RET_REC; 

VAR  TRANS_STACK  :  TRANSPTR; 

VAR  CREATE.ONLY  :  BOOLEAN; 

VAR  BUILD  :  BOOLEAN; 

VAR  SUPERTYPEJCEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* .  . . . . --*) 

(*  *) 

(*  $  FUNCTION:  *) 

(*  THIS  ROUTINE  GATHERS  THE  DATA  NECESSARY  TO  MODEL  THE  *) 

(*  SUPERTYPE  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *j 

(*  TRANS.STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK  *) 

(*  CREATE_ONLY  I  INDICATES  IF  SUPERTYPE  IS  TO  BE  ONLY  *) 

(*  CREATED  OR  IF  ONE  ALREADY  EXISTING  CAN  *) 

(*  BE  REFERENCED.  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  REF  *) 

(*  INSIDE  I/O  INDICATES  IF  THE  EXIT  OR  RETURN  OPTION  *) 

(*  IS  CHOSEN  WITHIN  ANOTHER  ROUTINE.  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  $PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINE  (CRSUPTYP)  *) 

(*  WHICH  DISPLAYS  THE  CREATE  SUPERTYPE  PANEL.  THE  NAME  IS  *) 

(*  CHECKED  FOR  US  CHECKED  FOR  UNIQUENESS.  IF  THEY  ARE  UNIQUE  *) 

(*  THEN  THE  DATA  IS  PUSHED  ONTO  THE  TRANSACTION  STACK  AND  *) 

(*  THE  ROUTINE  (SCFLDCR)  IS  CALLED  TO  ENTER  THE  ENTITY'S  *) 

(*  FIELDS.  AFTER  ALL  OF  THE  FIELDS  HAVE  BEEN  ENTERED  THE  *) 

(*  TRANSACTION  PROCESSING  ROUTINE  IS  CALLED  TO  MODEL  THE  *) 

(*  ENTITY.  *) 

(*  *) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP.ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  09/28/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*-  *) 

(*  *) 

(*END . - . - . - . - . - . *) 

(*  END  7.INCLUDE  SCSUPCR  *) 
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(*  %INCLUDE  SCSUPUP  *) 


VAR  TRANS_STACK  :  TRANSPTR; 

VAR  SUP.KEY  :  ENTKEY; 

VAR  REMOVE.SUPERTYPE  :  BOOLEAN); 

SUBPROGRAM; 

(**) 

(* . - .  . . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  UPDATES  THE  SUPERTYPE  ENTITY.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *j 

(*  TRANS_STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK  *) 

(*  SUP_KEY  I/O  KEY  OF  THE  ENTITY  TO  BE  UPDATED  *) 

(*  REMOVE.SUPERTYPE  I/O  INDICATES  IF  SUPERTYPE  CAN  BE  REMOVED  *) 

(*  OR  IF  ONLY  THE  REFERENCE  TO  THE  SUPER-  *) 

(*  TYPE  CAN  BE  REMOVED.  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  CALLS  THE  MENU  INTERFACE  ROUTINES  TO  DISPLAY  *) 

(*  THE  DATA  ABOUT  THE  SUPERTYPE.  THE  UPDATE  SUPERTYPE  OPTIONS  *) 

(*  INCLUDE  THE  FOLLOWING:  *) 

(*  CHANGE  THE  SUPERTYPE  NAME,  *) 

(*  UPDATE  THE  SUPERTYPE'S  CONSTITUENTS  (FIELDS)  BY  *) 

(*  ADDING  FIELDS,  REMOVING  FIELDS  OR  UPDATING  FIELDS,  *) 

(*  REVIEW  A  FIELD,  *) 

(*  DELETE  THE  SUPERTYPE,  *) 

(*  SAVE  THE  CHANGES  MADE,  *) 

(*  RETURN  OR  EXIT.  *) 

(*  IF  SAVE  THE  CHANGES  WAS  SELECTED  THE  SUPERTYPE  IS  UPDATED  *) 

(*  AND  THE  SUPERTYPES  ON  THE  DELETE  LIST  WILL  BE  DELETED  IF  *) 

(*  POSSIBLE.  IF  RETURN  OR  EXIT  IS  SELECTED  THE  SUPERTYPES  ON  *) 

(*  THE  NEW  KEYS  LIST  WILL  BE  DELETED  IF  POSSIBLE.  *) 

(*  *) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP.ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  09/28/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  *) 

(*  *) 

(♦END . - . . *) 

(*  END  %INCLUDE  SCSUPUP  *) 
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(*  %INCLUDE  SCTRSPR  *) 

(**) 

PROCEDURE  SCTRSPR(VAR  IRC  :  RET_REC ; 

VAR  TRANS_STACK  :  TRANSPTR) ; 

SUBPROGRAM; 


(*  *) 

(*  {FUNCTION:  *) 

(*  THIS  ROUTINE  BEGINS  THE  PROCESSING  OF  THE  TRANSACTION  *) 

(*  STACK.  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS;  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  TRANS.STACK  I/O  POINTS  TO  THE  TRANSACTION  STACK  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  REF  *) 

(*  CURRENT_LIST  I/O  POINTS  TO  THE  LIST  OF  KEYS  *) 

(*  CURRENTLY  IN  USE  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  CALLS  SCPOPTR  TO  POP  THE  TRANSACTION  STACK.  *) 

(*  THEN  EACH  TRANSACTION  IS  PROCESSED  ACCORDING  TO  ITS  TYPE  *) 

(*  BY  CALLING  THE  APPROPRIATE  ROUTINE  TO  MODEL  THE  ENTITIES.  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUOE  SCTYPIN  *) 

(**) 

PROCEDURE  SCTYPIN (VAR  IRC  :  RET_REC; 

VAR  INCLD  :  TEXT; 

VAR  SUBSCHEMA_KEY  :  ENTKEY) ; 

SUBPROGRAM; 

(**) 

(* . -*) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  WRITES  THE  DEFINED  TYPE  DECLARATIONS  TO  THE  *) 

(*  PASCAL  INCLUDE  FILE.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  I/O  RETURN  CODE  *) 

(*  INCLD  I  THE  FILE  NAME  *) 

(*  SUBSCHEMA_KEY  I  THE  KEY  TO  THE  SUBSCHEMA  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4342/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  WRITE  A  DESCRIPTION  OF  THE  BASIC  TYPES  AND  HOW  THEY  ARE  *) 

(*  IMPLEMENTED  *) 

(*  WRITE  THE  DEFINED  TYPES  HEADING  TO  THE  FILE  *) 

(*  WRITE  TYPE  TO  THE  FILE  *) 

(*  MAKE  AN  INCLUSIVE  LIST  OF  DEFINED  TYPES  WITHIN  THE  *) 

(*  SUBSCHEMA  *) 

(*  DELETE  ANY  DUPLICATES  ON  THE  LIST  OF  DEFINED  TYPES  *) 

(*  SET  THE  LIST  OF  DEFINED  TYPES  TO  BE  READ  FORWARD  *) 

(*  CONTINUE  TO  READ  ITEMS  UNTIL  THE  END  OF  LIST  IS  ENCOUNTERED  *) 

(*  GET  THE  KEY  TO  THE  NEXT  DEFINED  TYPE  IN  THE  LIST  *) 

(*  GET  THIS  DEFINED  TYPE'S  ADB  *) 

(*  GET  THE  DEFINED  TYPE'S  CONSTITUENT  *) 

(*  GET  THE  CONSTITUENT'S  ADB  *) 

(*  WRITE  TO  THE  FILE  T_<ADB . DEF_TYP_NAME>  =  *) 
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CALL  THE  ROUTINE  TO  WRITE  OUT  THE  PRIMITIVE  TYPES  OF  *) 

INTEGER  *) 

REAL  *) 

STRING  *) 

LOGICAL  *) 

ARRAY  *) 

DEFINED  TYPE  *) 

ENUMERATION  *) 

STRUCTURE  *) 

POINTER  *) 

END  *) 

*) 

SCOMMENTS:  *) 

*) 

SCHANGE  CONTROL:  *) 

*) 
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(*  ^INCLUDE  SCTYPUP  *) 
(**) 

PROCEDURE  SCTYPUP(VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


IRC 

TRANS_STACK 

CNST.KEY 

CREATE 

NEWTYPE 

DELETEJ.IST 

NEW_KEYS_LIST 


RET.REC; 

TRANSPTR; 

ENTKEY; 

BOOLEAN; 

ENTITY_TYPE; 

LISTKEY; 

LISTKEY) ; 


(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  UPDATES  THE  DEFINED  TYPE,  ARRAY,  OR  FIELD 

(*  ENTITY'S  TYPE. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

TRANS  STACK 

I/O 

POINTS  TO  THE  TRANSACTION  STACK 

(* 

CNST  KEY 

I/O 

KEY  TO  THE  TYPE  TO  BE  UPDATED 

(* 

CREATE 

I 

INDICATES  IF  A  NEW  ENTITY  IS  TO  BE  MADE 

(* 

NEWTYPE 

I 

ENTITY  TYPE  TO  UPDATE 

(* 

DELETE.LIST 

I/O 

KEY  TO  LIST  OF  ENTITIES  TO  BE  DELETED 

(* 

IF  THE  OPTION  SAVE  THE  CHANGED  IS  CHOSEN 

(* 

NEW_KEYS_LIST 

I/O 

KEY  TO  LIST  OF  ENTITIES  CREATED  DURING 

(* 

AN  UPDATE 

(* 

(* 

(* 

IRC 

0 

RETURN  CODE 

SCOMMONS: 

(* 

(* 

(* 

NONE 

$ ENVIRONMENT: 

(* 

LANGUAGE:  IBM 

PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  DETERMINES  IF  A  NEW  ENTITY  IS  TO  BE  CREATED 

(*  OR  IF  THE  OLD  ENTITY  SHOULD  BE  UPDATED.  THEN  IT  CALLS 

(*  THE  ROUTINE  ACCORDING  TO  THE  ENTITY  TYPE  ENTERED. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  SCUNIQUE  *) 

(**) 

PROCEDURE  SCUNIQUE (CONST  ENTITYJCEY  :  ENTKEY; 

VAR  ADB  :  ENTBLOCK; 

VAR  DATA  :  BLKDATA; 

VAR  RRC  :  INTEGER); 

SUBPROGRAM; 

(**) 

(* . 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  VERIFIES  THE  UNIQUENESS  OF  NAMES  WITHIN  THE 

(*  SCHEMA  FOR  THE  SUBSCHEMA,  CLASS,  ENTITY,  GLOBAL  FIELD, 

(*  FIELD,  ENUMERITEM,  AND  DEFINED  TYPE  ENTITIES  AS  WELL  AS 

(*  THE  USER  DEFINED  KIND  NUMBERS  FOR  CLASSES  AND  ENTITIES. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

ENTITY  KEY 

I 

THE  KEY  TO  THE  ENTITY 

(* 

ADB 

0 

THE  ADB  INFORMATION 

(* 

DATA 

I/O 

THE  USER  DEFINED  DATA  STRUCTURE  USED 

(* 

TO  PASS  DATA  INTO  THIS  PROCEDURE  AND 

(* 

TO  GET  THE  DESIRED  OUTPUT  FROM  THIS 

(* 

PROCEDURE 

(* 

RRC 

0 

THE  ROUTINE  RETURN  CODE 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  $ PROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  IS  EXECUTED  BY  CALLING  MAKXEQ  FOR  A  GIVEN 

(*  KIND.  THE  NAMES  AND  USER  DEFINED  KIND  NUMBERS  ARE 

(*  COMPARED  TO  ONE  ANOTHER  TO  VERIFY  THAT  THE  DATA  ENTERED 

(*  IS  UNIQUE.  THE  DATA  STRUCTURE  BLKDATA  CONTAINS  THE 

(*  INFORMATION  WHICH  INDICATES  THE  UNIQUENESS. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE 
(**) 

PROCEDURE 


SCUNQEST  *) 

SCUNQEST (VAR  IRC  :  RET_REC; 

CONST  ENT_KIND  :  INTEGER; 

VAR  UNIQUE.NAME  :  T_NAME ; 

VAR  UNIQUE.NUMBER  :  INTEGER; 
VAR  FOUND  :  MATCH); 


SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


{FUNCTION: 

THIS  ROUTINE  CALLS  MAKXEQ  TO  EXECUTE  THE  PROCEDURE  SCUNIQUE 
WHICH  VERIFIES  THE  UNIQUENESS  OF  NAMES  WITHIN  THE  SCHEMA 
FOR  THE  SUBSCHEMA,  CLASS,  ENTITY,  GLOBAL  FIELD,  FIELD, 
ENUMERITEM,  AND  DEFINED  TYPE  ENTITIES  AS  WELL  AS  THE  USER 
DEFINED  KIND  NUMBERS  FOR  CLASSES  AND  ENTITIES. 


{DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


ENTJCIND  I 
UNIQUE_NAME  I 
UNIQUE_NUMBER  I 
FOUND  0 

IRC  0 


THE  ENTITY  KIND  NUMBER 

THE  NAME  TO  BE  VERIFIED  FOR  UNIQUENESS 

THE  NUMBER  TO  BE  VERIFIED  FOR  UNIQUENESS 

A  RECORD  WHICH  INDICATES  WHETHER  OR 

NOT  A  MATCH  TO  A  NAME  OR  KIND  NUMBER 

HAS  BEEN  FOUND 

RETURN  CODE 


{COMMONS: 

NONE 


{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


{EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 


{PROCESSING  DESCRIPTION: 

THIS  ROUTINE  CALLS  MAKXEQ  TO  EXECUTE  THE  PROCEDURE 
SCUNIQUE  WHICH  DOES  THE  ACTUAL  COMPARISON  FOR  UNIQUENESS. 
THIS  CONTINUES  UNTIL  A  MATCH  IS  FOUND  OR  ALL  THE  ENTITIES 
HAVE  BEEN  CHECKED. 


{COMMENTS: 
{CHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


1-345 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  SCUNQPND  *) 

(**) 

PROCEDURE  SCUNQPND(VAR  IRC  :  RET.REC; 

VAR  TRANS_STACK  :  TRANS PTR; 
VAR  UNIQUE_NAME  :  T_NAME ; 

VAR  UNIQUE.NUMBER  :  INTEGER; 
VAR  TRANSTYPE  :  TRANS_TYPE; 
VAR  FLDTYP  :  T_FIELDTYPE; 

VAR  FOUND  :  MATCH); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  VERIFIES  THE  UNIQUENESS  OF  NAMES  AND  USER  *) 

(*  DEFINED  KIND  NUMBERS  FOR  CLASSES  AND  ENTITIES,  BY  SEARCHING  *) 

(*  THE  TRANSACTION  STACK  FOR  THE  CLASS,  ENTITY,  FIELD,  *) 

(*  ENUMERITEM,  AND  DEFINED  TYPE  ENTITIES.  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  UNIQUE_NAME  I  THE  NAME  TO  BE  VERIFIED  FOR  UNIQUENESS  *) 

(*  UNIQUE_NUMBER  I  THE  NUMBER  TO  BE  VERIFIED  FOR  UNIQUENESS  *) 

(*  TRANS_STACK  I  POINTER  TO  THE  TRANSACTION  STACK  *) 

(*  TRANSTYPE  I  INDICATES  THE  TYPE  OF  TRANSACTION  *) 

(*  FIELDTYP  I  INDICATES  FOR  THE  FIELD  ENTITY  WHAT  TYPE  *) 

(*  OF  FIELD  IT  IS  *) 

(*  FOUND  0  A  RECORD  WHICH  INDICATES  WHETHER  OR  NOT  *) 

(*  A  MATCH  BEEN  FOUND  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  SEARCHES  THROUGH  THE  TRANSACTION  STACK  AND  *) 

(*  COMPARES  THE  NAME  ENTERED  TO  THOSE  TRANSACTIONS  WHICH  *) 

(*  MUST  HAVE  UNIQUE  NAMES  WITHIN  THE  SCHEMA.  FIELD  ENTITY  *) 

(*  NAMES  ARE  CHECKED  FOR  UNIQUENESS  AMONG  THOSE  FIELDS  WITHIN  *) 

(*  THE  ENTITY  BEING  CREATED.  THIS  CONTINUES  UNTIL  A  MATCH  IS  *) 

(*  FOUND  OR  THE  END  OF  THE  STACK  IS  ENCOUNTERED.  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  SCUPDATE  *) 

(**) 

PROCEDURE  SCUPDATE (VAR  IRC  :  RET_REC; 

VAR  TRANS.STACK  :  TRANSPTR) ; 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  ROUTINE  DETERMINES  THE  NEXT  MENU  TO  DISPLAY  FROM  THE 

(*  UPDATE  OPTION  CHOSEN. 

(* 

(*  JDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

IRC 

0 

RETURN  CODE 

(* 

(* 

(* 

TRANS_STACK 

I/O 

POINTS  TO  THE  TRANSACTION  STACK 

SCOMMONS: 

(* 

DEF 

(* 

INSIDE 

I/O 

INDICATES  IF  THE  EXIT  OPTION  HAS 

(* 

BEEN  CHOSEN  WITHIN  ANOTHER  CREATE 

(* 

PROCEDURE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  CALLS  THE  UPDATE  MENU  INTERFACE  ROUTINE  (MUPDATE)  AND 

(*  PROCESSES  THE  DATA  RECIEVED  FROM  THE  MENU  EITHER  BY 

(*  CALLING  THE  APPROPRIATE  ROUTINE  OR  EXITING  THE  PROCEDURE. 

(* 

(*  SCOMMENTS: 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 
(*  NARATION  ON  THE  NEXT  LINE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


1-347 


PS  560130000A 
22  December  1987 


(*  REVISED:  09/28/87  C.  H.  MOHME  DBMA  *) 

(*  INCORPORATED  THE  SUPERTYPE  DATA  TYPE.  *) 

(*  *) 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  -  -  *) 

(*  *) 

(*END . - - - *) 

(*  END  %INCLUDE  SCUPDATE  *) 
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(*  %INCLUDE 
(**) 

PROCEDURE 


SORTKIND  *) 


CONST 

CURRENT 

ENTBLOCK; 

CONST 

NEXT 

ENTBLOCK; 

VAR 

FLIP 

BOOLEAN; 

VAR 

RRC 

EXT  RET  CODE; 

VAR 

PROC 

ROUTINE); 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  IS  THE  ORDER  FUNCTION  CALLED  BY  MALSRT 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


CURRENT 

NEXT 

FLIP 

RRC 


XRC 


I  THE  ADB  OF  THE  CURRENT  ENTITY 
I  THE  ADB  OF  THE  NEXT  ENTITY 
0  INDICATES  IF  THE  ENTITIES  SHOULD  BE 
FLIPPED 

0  THE  ROUTINE'S  RETURN  CODE 
=  0  OK 
<>  0  ERROR 

0  EXTERNAL  RETURN  ZGDt  FkOM  MAS 
=  0  O’' 

>=  10  ERROR 


(*  $COMMONS: 

(*  NONE 
(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  THIS  ROUTINE  IS  CALLED  BY  THE  MAS  ROUTINE  MALSRT.  THE 

(*  TWO  ENTITIES  ARE  COMPARED  AND  IF  THEY  ARE  OUT  OF  ALPHA- 

(*  BETICAL  ORDER  THE  FLIP  FLAG  IS  SET  TO  TRUE  OTHERWISE  THE 

(*  FLAG  REMAINS  FALSE.  IF  THE  FLAG  IS  TRUE  THE  ENTITIES  ARE 

(*  SWAPPED  OTHERWISE  THEY  ARE  NOT. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  3/06/87  M.  H.  CHOI  DBMA  *) 

(*  *) 

(*  *) 

(*  *) 

(*END . - . *) 


(*  END  %INCLUDE  SORTKIND  *) 
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(*  %INCLUDE  SORTNAME  *) 

(**) 

PROCEDURE  SORTNAME (CONST  CURRENT  :  ENTBLOCK; 

CONST  NEXT  :  ENTBLOCK; 

VAR  FLIP  :  BOOLEAN; 

VAR  RRC  :  EXT  RET.CODE; 

VAR  PROC  :  ROUTINE); 

SUBPROGRAM; 

(**) 

(* . — . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  IS  THE  ORDER  FUNCTION  CALLED  BY  MALSRT  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CURRENT  I  THE  ADB  OF  THE  CURRENT  ENTITY  *j 

(*  NEXT  I  THE  ADB  OF  THE  NEXT  ENTITY  *) 

(*  FLIP  0  INDICATES  IF  THE  ENTITIES  SHOULD  BE  *) 

(*  FLIPPED  *) 

(*  RRC  0  THE  ROUTINE'S  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  <>  0  ERROR  *) 

(*  XRC  0  EXTERNAL  RETURN  CODE  FROM  MAS  *) 

(*  =0  OK  *) 

(*  >=  10  ERROR  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  IS  CALLED  BY  THE  MAS  ROUTINE  MALSRT.  THE  *) 

(*  TWO  ENTITIES  ARE  COMPARED  AND  IF  THEY  ARE  OUT  OF  ALPHA-  *) 

(*  BETICAL  ORDER  THE  FLIP  FLAG  IS  SET  TO  TRUE  OTHERWISE  THE  *) 

(*  FLAG  REMAINS  FALSE.  IF  THE  FLAG  IS  TRUE  THE  ENTITIES  ARE  *) 

(*  SWAPPED  OTHERWISE  THEY  ARE  NOT.  *) 

(*  *) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  3/10/87  M.  H.  CHOI  DBMA  *) 

(*  *) 

(* .  *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  SORTNAME  *) 
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(*  %INCLUDE  UPARRAY  *) 
(**) 


PROCEDURE  UPARRAY (VAR  MESS 

MESSAGE; 

VAR  LBND 

CHAR8 ; 

VAR  HBND 

CHAR8; 

VAR  ATYPE 

ENTITY  TYPE; 

VAR  ULBD 

CHAR8; 

VAR  UHBD 

CHAR8; 

VAR  UTYPE 

ENTITY  TYPE; 

VAR  NEXT  OP 

OPERATIONS; 

VAR  RR 

RET  REC); 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  $FUNCTION: 

(*  THIS  FUNCTION: 

(*  DISPLAYS  THE  UPDATE  ARRAY  MENU 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

=  ==  =  = 

=  =  = 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

<* 

LBND 

I 

THE  LOWER  BOUND  OF  THE  ARRAY 

(* 

HBND 

I 

THE  UPPER  BOUND  OF  THE  ARRAY 

(* 

ATYPE 

I 

THE  ARRAY  TYPE 

(* 

ULBD 

0 

THE  UPDATED  LOWER  BOUND  OF  THE  ARRAY 

(* 

UHBD 

0 

THE  UPDATED  HIGHER  BOUND  OF  THE  ARRAY 

(* 

UTYPE 

0 

THE  UPDATED  ARRAY  TYPE 

(* 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  SCOMMONS: 

(*  NONE 
(* 

(*  SENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  UPDATE  ARRAY  PANEL  (UPARRAY)  BY  MAKING  ISPLNK  *} 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  *) 

(*  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %I NCLUDE  UPCLASS1  *) 

(**) 

PROCEDURE  UPC LASS 1 (VAR  MESS  :  MESSAGE; 

VAR  NAME  :  T_NAME; 

VAR  KNUM  :  CHAR8 ; 

VAR  UNAM  :  T_NAME ; 

VAR  UNUM  :  CHAR8 ; 

VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET.REC); 

SUBPROGRAM; 

(**) 

(*  -*) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  PROCEDURE  :  *) 

(*  DISPLAYS  THE  UPDATE  CLASS  MENU  1  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  KNUM  I  THE  ENTITY  KIND  NUMBER  *) 

(*  NAME  I  THE  ENTITY  NAME  *) 

(*  UNAM  0  THE  UPDATED  ENTITY  NAME  *) 

(*  UNUM  0  THE  UPDATED  ENTITY  NUMBER  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  $ COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  S ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  UPDATE  CLASS  PANEL  NUMBER  ONE  (UPCLASS1)  BY  *) 

(*  MAKING  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  *) 

(*  AN  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  *} 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PRO-  *) 

(*  CEDURE.  *) 

(*  *) 


1-355 


PS  560130000A 
22  December  1987 


(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 
(* 


* 

* 

* 

* 

* 


1-356 
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(*  %INCLUDE  UPCLASS2  *) 
(**) 

PROCEDURE  UPCLASS2(VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


MESS 

NAME 

NUM 

GROUP 

ARRAY_SIZE 

MEMBER 

NEXT_OP 

RR 


MESSAGE; 
T_NAME ; 
CHAR8 ; 
T_ARRAY23; 
INTEGER; 
T.NAME; 
OPERATIONS; 
RET_REC) ; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  PROCEDURE  : 

DISPLAYS  THE  UPDATE  CLASS  MENU  2 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


MESS 

MEMBER 

GROUP 

ARRAY_SIZE 

NEXT_OP 

RR 


I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 
0  THE  MEMBER  SELECTED  TO  BE  UPDATED 
I  THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM 
I  THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 
0  ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 


SCOMMONS: 

NONE 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 


SEXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

DISPLAY  THE  UPDATE  CLASS  PANEL  NUMBER  TWO  (UPCLASS2)  BY 
MAKING  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO 
AN  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION 
GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PRO¬ 
CEDURE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOHMENTS:  *) 
(*  NONE  *) 
(*  *) 
(*  SCHANGE  CONTROL:  *) 
(*  *) 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  UPDEFTYP  *) 
(**) 


PROCEDURE  UPDEFTYP(VAR  MESS 

MESSAGE; 

VAR  NAME 

CHARI 6; 

VAR  FTYPE 

ENTITY  TYPE; 

VAR  UNAM 

CHAR16; 

VAR  UTYPE 

ENTITY  TYPE; 

VAR  NEXT  OP 

OPERATIONS; 

VAR  RR 

RET  REC); 

SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  FUNCTION: 

DISPLAYS  THE  UPDATE  DEFINED  TYPE  MENU 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


MESS 

NAME 

FTYPE 

UNAM 

FTYPE 

NEXT_OP 

RR 


I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 
I  THE  NAME  OF  THE  DEFINED  TYPE 
THE  TYPE  OF  THE  DEFINED  TYPE 
U  THE  UPDATED  NAME  OF  THE  DEFINED  TYPE 

I  THE  UPDATED  TYPE  OF  THE  DEFINED  TYPE 

0  ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 


SCCMMONS: 

NONE 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 


SEXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

DISPLAY  THE  CREATE  DEFINED  TYPE  PANEL  (UPDEFTYP)  BY  MAKING 
ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN 
ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION 
GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PRO¬ 
CEDURE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 
(* 


*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  UPENTY1  *) 
(**) 


PROCEDURE  UPENTY1(VAR  MESS 

MESSAGE; 

VAR  NAME 

T  NAME; 

VAR  KNUM 

CHAR8 ; 

VAR  UNAM 

T  NAME; 

VAR  UNUM 

CHAR8 ; 

VAR  NEXT  OP 

OPERATIONS; 

VAR  RR 

RET  REC); 

SUBPROGRAM; 

(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  PROCEDURE  : 

(*  DISPLAYS  THE  UPDATE  ENTITY  MENU  1 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

NAME 

I 

THE  ENTITY  NAME 

(* 

KNUM 

I 

THE  ENTITY  KIND  NUMBER 

(* 

UNAM 

0 

THE  UPDATED  ENTITY  NAME 

(* 

UNUM 

0 

THE  UPDATED  ENTITY  KIND  NUMBER 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

(* 

OPERATION 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

(* 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  $COMMONS: 

(*  NONE 
(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  UPDATE  ENTITY  PANEL  NUMBER  ONE  (UPENTY1 )  BY 

(*  MAKING  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO 

(*  AN  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PRO- 

(*  CEDURE. 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS: 

(*  NONE 

(* 

(*  SCHANGE  CONTROL: 
(* 


*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  UPENTY2  *) 

(**) 

PROCEDURE  UPENTY2(VAR  MESS 

VAR  NAME 
VAR  KNUM 
VAR  MEM_ARRAY 
VAR  SIZE 
VAR  MEMBER 
VAR  NEXT_OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 
T_NAME; 
CHAR8; 
T_ARRAY16; 
INTEGER; 
T_NAME ; 
OPERATIONS; 
RET_REC) ; 


(**) 

(* 

(* 

(*  SFUNCTION: 

(*  THIS  PROCEDURE  : 

(*  DISPLAYS  THE  UPDATE  ENTITY  MENU  2 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

NAME 

I 

THE  ENTITY  NAME 

(* 

KNUM 

I 

THE  ENTITY  KIND  NUMBER 

(* 

MEM  ARRAY 

I 

THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM 

(* 

SIZE 

I 

THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 

(* 

MEMBER 

0 

THE  MEMBER  SELECTED 

(* 

NEXT  OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

(* 

OPERATION 

(* 

(* 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

SCOMMONS: 

(* 

(* 

(* 

NONE 

SENVIRONMENT: 

(* 

LANGUAGE: 

IBM  PASCAL 

(* 

HARDWARE  - 

.'STEM: 

IBM  360/370/4341/4381 

(* 

DDNAMES  USED  WITH 

STANDARD  FILES: 

(* 

NONE 

(* 

(*  $EXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  {PROCESSING  DESCRIPTION:  *) 
(*  DISPLAY  THE  UPDATE  ENTITY  PANEL  NUMBER  TWO  (UPENTY2)  BY  *) 
(*  MAKING  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  *) 
(*  AN  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  *) 
(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PRO-  *) 
(*  CEDURE.  *) 
(*  *) 
(*  {COMMENTS:  *) 
(*  NONE  *) 
(*  *) 
(*  {CHANGE  CONTROL:  *) 
(*  *) 


1-364 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  UPENUM  *) 

(**) 

PROCEDURE  UPENUM (VAR  MESS  :  MESSAGE; 

VAR  MEMBERS  :  T_ARRAY16; 


VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* . . - .  *) 

(*  *) 

(*  $FUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  UPDATE  ENUMERATION  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  MEMBERS  I  THE  ARRAY  OF  MEMBERS  TO  DISPLAY 

(*  SIZE  I  THE  SIZE  OF  THE  ARRAY  OF  NUMBERS  *) 

(*  NAME  0  THE  MEMBER  NAME  ENTERED  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISLAY  THE  REVIEW  ENUMERATION  MENU  (UPENUM)  BY  MAKING  *) 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  *) 

(*  ENUMERATED  TYPE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  UPFIELO  *) 
(**) 


PROCEDURE  UPFIELD(VAR  MESS  :  MESSAGE; 

VAR  NAME  :  T_NAME ; 

VAR  POS  :  CHAR8 ; 

VAR  PURP  :  CHAR8; 

VAR  REQD  :  CHAR8; 

VAR  DEPD  :  CHARI 2; 

VAR  FTYP  :  ENTITY.TYPE; 

VAR  FLD_TYP  :  T.FIELDTYPE; 

VAR  UNAM  :  T_NAME; 

VAR  UPOS  :  CHAR8 ; 

VAR  UPUR  ;  CHAR8 ; 

VAR  UREQ  :  CHAR8 ; 

VAR  UDEP  :  CHAR8; 

VAR  U_TYP  :  ENTITY.TYPE; 

VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET.REC); 

SUBPROGRAM; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

*) 

SFUNCTION:  *) 

THIS  PROCEDURE  :  *) 

DISPLAYS  THE  UPDATE  FIELD  PANEL  *) 

*) 

SDESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *j 

NAME  I  THE  NAME  OF  THE  FIELD  *) 

PURP  I  THE  PURPOSE  OF  THE  FIELD  *) 

REQD  I  THE  REQUIREDNESS  OF  THE  FIELD  *) 

DEPD  I  THE  DEPENDENCE/INDEPENDENCE  OF  THE  FIELD  *) 

THE  FIELD  *) 

FTYP  I  THE  TYPE  OF  THE  FIELD  *) 

FLD.TYP  I  THE  TYPE  OF  FIELD  *) 

UNAM  0  THE  UPDATED  NAME  OF  THE  FIELD  *) 

UPUR  0  THE  UPDATED  PURPOSE  OF  THE  FIELD  *) 

UREQ  0  THE  UPDATED  REQUIREDNESS  OF  THE  FIELD  *) 

UDEP  0  THE  UPDATED  DEPENDENCE/INDEPENDENCE  OF  *) 

UTYP  0  THE  UPDATED  TYPE  OF  THE  FIELD  *) 

NEXT.OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

OPERATION  *) 

RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

*) 


1-366 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SCOMMONS:  *) 

NONE  *) 

*) 

SENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

DDNAMES  USED  WITH  STANDARD  FILES:  *) 

NONE  *) 

*) 

SEXECUTION  PROCEDURE:  *) 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

*) 

SPROCESSING  DESCRIPTION:  *) 

DISPLAY  THE  UPDATE  FIELD  PANEL  (UPFIELD)  BY  MAKING  ISPLNK  *) 

CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  *) 

FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 

*) 

SCOMMENTS:  *) 

NONE  *) 

*) 

SCHANGE  CONTROL:  *) 

*\ 

/ 
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(*  %INCLUDE  UPINT  *) 
(**) 

PROCEDURE  UPINT(VAR 
VAR 
VAR 
VAR 
VAR 

SUBPROGRAM; 


MESS 

PREC 

UPREC 

NEXT_OP 

RR 


MESSAGE; 

CHAR8; 

CHAR8 ; 
OPERATIONS; 
RET_REC) ; 


(**) 

(* . 

(* 

(*  {FUNCTION: 

(*  THIS  FUNCTION: 

(*  DISPLAYS  THE  UPDATE  INTEGER  MENU 

(* 

(*  {DESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

==  =  =  = 

=  =  = 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

PREC 

I 

THE  PRECISION  OF  THE  INTEGER 

(* 

UPREC 

0 

THE  UPDATED  PRECISION  OF  THE  INTEGER 

(* 

(* 

NEXT.OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  {COMMONS: 

(*  NONE 
(* 

(*  {ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  {EXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  {PROCESSING  DESCRIPTION: 

(*  DISPLAY  THE  UPDATE  INTEGER  PANEL  (UPINT)  BY  MAKING  ISPLNK 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED 

(*  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE. 

(* 

(*  {COMMENTS: 

(*  NONE 

(* 

(*  {CHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  UPLIST  *) 

(**) 

PROCEDURE  UPLIST (VAR  MESS 
VAR  MIN 
VAR  MAX 
VAR  ATYPE 
VAR  UMIN 
VAR  UMAX 
VAR  UTYPE 
VAR  NEXT_OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 
CHAR8 ; 

CHAR8 ; 

ENTITY_TYPE; 
CHAR8 ; 

CHAR8 ; 

ENTITY_TYPE; 
OPERATIONS; 
RET_REC) ; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  FUNCTION: 

DISPLAYS  THE  UPDATE  LIST  MENU 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

MIN  I  THE  MINIMUM  NUMBER  OF  OCCURRENCES  IN  THE 

LIST 

MAX  I  THE  MAXIMUM  NUMBER  OF  OCCURRENCES  IN  THE 

LIST 

ATYPE  I  THE  LIST  TYPE 

UMIN  0  THE  UPDATED  MINIMUM  NUMBER  OF  OCCUR¬ 

RENCES  IN  THE  LIST 

UMAX  0  THE  UPDATED  MAXIMUM  NUMBER  OF  OCCUR¬ 

RENCES  IN  THE  LIST 

UTYPE  0  THE  UPDATED  LIST  TYPE 

NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT 

OPERATION 

RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

SCOMMONS: 

NONE 

S ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 


(* 


*) 

*) 

/ 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  UPDATE  LIST  PANEL  (UPLIST)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  *) 

(*  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 

(*  *) 

(*  $ COMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  I.  M.  APERSON  GROUPJD  *) 

(*  A  DESCRIPTION  OF  THE  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . *) 

(*  *) 

(*END . -*) 

(*  END  %INCLUDE  UPLIST  *) 
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(*  %INCLUDE 
(**) 


PROCEDURE 


UPPNTR  *) 

UPPNTR(VAR  MESS 
VAR  GROUP 
VAR  ARRAY.SIZE 
VAR  MEMBER 
VAR  NEXT.OP 
VAR  RR 


SUBPROGRAM; 


MESSAGE; 

T_ARRAY23; 

INTEGER; 

T_NAME ; 

OPERATIONS; 

RET.REC); 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  PROCEDURE  : 

DISPLAYS  THE  UPDATE  POINTER  MENU 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


MESS 

GROUP 

ARRAY_SIZE 

MEMBER 

NEXT_OP 

RR 


I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

I  THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM 

I  THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 
0  THE  MEMBER  SELECTED  TO  BE  UPDATED 
0  ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 


SCOMMONS: 

NONE 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 


SEXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 


SPROCESSING  DESCRIPTION: 

DISPLAY  THE  UPDATE  POINTER  PANEL  (UPPNTR)  BY  MAKING  ISPLNK 
CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 
TYPE. 


SCOMMENTS: 

NONE 


SCHANGE  CONTROL: 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  UPREAL  *) 

(**) 

PROCEDURE  UPREAL (VAR  MESS  :  MESSAGE; 

VAR  PREC  :  CHAR8; 

VAR  UPREC  :  CHAR8; 

VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* .  .  .  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  UPDATE  REAL  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  PREC  I  THE  REAL  SIZE  IN  DECIMAL  DIGIT  FORM  *) 

(*  UPREC  0  THE  UPDATED  REAL  SIZE  IN  DECIMAL  DIGIT  *) 

(*  FORM  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  UPDATE  REAL  PANEL  (UPREAL)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  *) 

(*  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  UPSET  *) 

(**) 

PROCEDURE  UPSET (VAR  MESS  :  MESSAGE; 

VAR  MIN  :  CHAR8; 

VAR  MAX  :  CHAR8 ; 

VAR  ATYPE  :  ENTITY_T 

VAR  UMIN  :  CHAR8; 


VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(*- .  .  .  . --*) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  UPDATE  SET  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  MIN  I  THE  MINIMUM  NUMBER  OF  OCCURRENCES  IN  THE  *) 

(*  SET  *) 

(*  MAX  I  THE  MAXIMUM  NUMBER  OF  OCCURRENCES  IN  THE  *) 

(*  SET  *) 

(*  ATYPE  I  THE  SET  TYPE  *) 

(*  UMIN  0  THE  UPDATED  MINIMUM  NUMBER  OF  OCCUR-  *) 

(*  RENCES  IN  THE  SET  *) 

(*  UMAX  0  THE  UPDATED  MAXIMUM  NUMBER  OF  OCCUR-  *) 

(*  RENCES  IN  THE  SET  *) 

(*  UTYPE  0  THE  UPDATED  SET  TYPE  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 
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(*  5PR0CESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  UPDATE  SET  PANEL  (UPSET)  BY  MAKING  ISPLNK  *) 

(*  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED  *) 

(*  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED  *) 

(*  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP  ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GPQUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  I.  M.  APERSON  GROUP_ID  *) 

(*  A  DESCRIPTION  OF  THE  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  08/13/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*---- .  -*) 

(*  *) 

(*END . - . *) 

(*  END  %INCLUDE  UPSET  *) 
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(*  %I NCLUDE  UPSTRING  *) 
(**) 

PROCEDURE  UPSTRING (VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


MESS 

LEN 

ULEN 

NEXT_OP 

RR 


MESSAGE; 
CHAR8; 
CHAR8; 
OPERATIONS; 
RET_REC) ; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  FUNCTION: 

DISPLAYS  THE  UPDATE  STRING  MENU 

SDESCRIPTION  OF  ARGUMENTS: 

NAME 

MESS 
LEN 
ULEN 

NEXT.OP 

RR 


$ COMMONS: 

NONE 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 

SEXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

DISPLAY  THE  UPDATE  STRING  PANEL  (UPSTRING)  BY  MAKING  ISPLNK 
CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  ENUMERATED 
TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  GATHERED 
FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PROCEDURE. 

SCOMMENTS: 

NONE 

SCHANGE  CONTROL: 


I/O  DESCRIPTION 

=  BS3SSSSS9SSS 

I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

I  THE  LENGTH  OF  THE  STRING  IN  BYTES 

0  THE  UPDATED  LENGTH  OF  THE  STRING  IN 
BYTES 

0  ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  UPSTRUC  *) 

(**) 

PROCEDURE  UPSTRUC (VAR  MESS  :  MESSAGE; 

VAR  CLAS  :  T_ARRAY16; 

VAR  ARRAY.SIZE  :  INTEGER; 

VAR  MEMBER  :  T_NAME; 

VAR  NEXT_OP  ;  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* .  .  *) 

(*  *) 

(*  {FUNCTION:  *) 

(*  THIS  PROCEDURE  :  *) 

(*  DISPLAYS  THE  UPDATE  STRUCTURE  MENU  *) 

(*  RECEIVES  THE  NAME  OF  A  STRUCTURE  TO  BE  UPDATED  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  RECEIVED  FROM  MAINLINE  *) 

(*  CLAS  I  THE  ARRAY  OF  FIELDS  *) 

(*  ARRAY_SIZE  I  THE  SIZE  OF  THE  ARRAY  OF  MEMBERS  *) 

(*  MEMBER  0  THE  MEMBER  SELECTED  *) 

(*  NEXT_OP  0  TELLS  THE  MAINLINE  WHAT  PANEL  TO  CALL  *) 

(*  NEXT  *) 

(*  RR  0  TELLS  THE  MAINLINE  IF  THERE  IS  AN  ERROR  *) 

(*  AND  IN  WHAT  ROUTINE  IT  OCCURS  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  UPDATE  STRUCTURE  PANEL  (UPSTRUC)  BY  MAKING  *) 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  *) 

(*  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  *) 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  *) 

(*  PROCEDURE.  *) 

(*  *) 

(*  {COMMENTS:  *) 

(*  *) 

(*  {CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  UPSUB1  *) 

(**) 

PROCEDURE  UPSUB1(VAR  MESS  :  MESSAGE; 

VAR  NAME  :  T_NAME ; 

VAR  UNAM  :  T_NAME; 

VAR  NEXT_OP  ;  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* .  .  .  .  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  FUNCTION:  *) 

(*  DISPLAYS  THE  UPDATE  SUBSCHEMA  'ANEL  1  *) 

(*  INPUT  OF  THE  NAME  OF  A  SUBSCHEMA  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  — -  —  —  *) 

(*  MESS  I  THE  ERROR  MESSAGE  RECEIVED  FROM  MAINLINE  *) 

(*  NAME  I  THE  SUBSCHEMA  NAME  *) 

(*  UNAM  0  THE  UPDATED  SUBSCHEMA  NAME  *) 

(*  NEXT.OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  XRC  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  UPDATE  SUBSCHEMA  PANEL  (UPSUB1)  BY  MAKING  *) 

(*  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN  *) 

(*  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  *) 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  *) 

(*  PROCEDURE.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  UPSUB2  *) 

(**) 

PROCEDURE  UPSUB2(VAR  MESS 
VAR  NAME 


SUBPROGRAM; 


VAR  MEMBERS 
VAR  ARRAY_SIZE 
VAR  MEMBER 
VAR  NEXT.OP 
VAR  RR 


MESSAGE; 

T.NAME; 

T_ARRAY23; 

INTEGER; 

T_NAME ; 

OPERATIONS; 

RET_REC) ; 


SFUNCTION: 

THIS  FUNCTION: 


DISPLAYS  THE  REVIEW  SUBSCHEMA  PANEL  2 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


MESS 

NAME 

MEMBERS 

ARRAY_SIZE 

MEMBER 

NEXT  OP 


THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

THE  NAME  OF  THE  SUBSCHEMA  TO  BE  UPDATED 

THE  ARRAY  OF  MEMBERS  TO  SELECT  FROM 

THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 

THE  MEMBER  SELECTED 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

OPERATION 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 


SCOMMONS: 

NONE 


SENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 

SEXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

DISPLAY  THE  UPDATE  SUBSCHEMA  PANEL  NUMBER  TWO  BY  MAKING 
ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  AN 
ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION 
GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING 
PROCEDURE. 
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(*  SCOMMENTS:  *) 
(*  NONE  *) 
(*  *) 
(*  SCHANGE  CONTROL:  *) 
(*  *) 
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(*  %INCLUDE  UPSUPER  *) 

(**) 

PROCEDURE  UPSUPER(VAR  MESS  :  MESSAGE; 


VAR  REMOVE_SUPERTYPE  :  BOOLEAN; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* . - . - . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  PROCEDURE  :  *) 

(*  DISPLAYS  THE  UPDATE  SUPERTYPE  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NAME  I  THE  ENTITY  NAME  *) 

(*  KNUM  I  THE  ENTITY  KIND  NUMBER  *) 

(*  UNAM  0  THE  UPDATED  ENTITY  NAME  *) 

(*  UNUM  0  THE  UPDATED  ENTITY  KIND  NUMBER  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  SThNDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  UPDATE  ENTITY  PANEL  NUMBER  ONE  (UPSUPER)  BY  *) 

(*  MAKING  ISPLNK  CALLS.  THE  OPTION  CHOSEN  IS  TRANSLATED  INTO  *) 

(*  AN  ENUMERATED  TYPE.  THIS  DATA  AS  WELL  AS  OTHER  INFORMATION  *) 

(*  GATHERED  FROM  THE  PANEL  IS  PASSED  BACK  TO  THE  CALLING  PRO-  *) 

(*  CEDURE.  *) 

(*  *) 
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(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP.ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  HADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  09/28/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* .  .  *) 

(*  *) 

(*END- . - . - . . *) 

(*  END  %INCLUDE  UPSUPER  *) 
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(*  %INCLUDE  XATTDATA  *) 

(**) 

PROCEDURE  XATTDATA (VAR  IRC  :  RET  REC; 

VAR  XREFFILE  :  TEXT); 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  GENERATES  A  LIST  OF  ALL  "ENTITIES”  CONTAINING  *) 

(*  A  PARTICULAR  "ENTITY."  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  XREFFILE  0  CROSS  REFERENCE  REPORT  FILE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  CROSS  REFERENCE  MENU.  *) 

(*  DETERMINE  WHICH  OPTION  WAS  CHOSEN  AND  CALL  THE  APPROPRIATE  *) 

(*  ROUTINE.  *) 

(*  INTEGER  DATA  TYPE.  DISPLAY  MENU  TO  OBTAIN  DESIRED  *) 

(*  PRECISION.  *) 

(*  REAL  DATA  TYPE.  DISPLAY  MENU  TO  OBTAIN  DESIRED  PRECISION.  *) 

(*  STRING  DATA  TYPE.  DISPLAY  MENU  TO  OBTAIN  DESIRED  LENGTH.  *) 

(*  OTHER  DATA  TYPES.  *) 

(*  ARRAY,  LIST,  OR  SET  DATA  TYPE.  *) 

(*  THE  LIST  AND  SET  DATA  TYPES  ARE  IMPLEMENTED  AS  ARRAYS.  *) 

(*  THEREFORE,  SPECIAL  CHECKING  MUST  BE  PERFORMED.  *) 

(*  IF  A  PRECISION  WAS  SPECIFIED  FOR  THE  INTEGER,  REAL,  OR  STRING  *) 
(*  DATA  TYPE,  THEN  SELECT  FROM  THE  DATA  TYPE  LIST  THOSE  *) 

(*  ENTITIES  WITH  THE  SPECIFIED  PRECISION.  *) 

(*  MAKE  A  LIST  OF  THE  USERS  OF  THE  DATA  TYPE  AND  CALL  THE  *) 

(*  ROUTINE  TO  DISPLAY  THE  ATTRIBUTES  AND  USER  ENTITIES.  *) 

(*  *) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/16/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*END . - . *) 

(*  END  %INCLUDE  XATTDATA  *) 
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(*  %INCLUDE  XATTNAME  *) 

(**) 

PROCEDURE  XATTNAME (VAR  IRC  :  RET_REC; 

VAR  XREFFILE  :  TEXT); 

SUBPROGRAM; 


(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  GENERATES  A  LIST  OF  ALL  ENTITIES  HAVING  AN  *) 

(*  ATTRIBUTE  WITH  A  SPECIFIED  NAME.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  XREFFILE  0  THE  CROSS  REFERENCE  REPORT  FILE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DETERMINE  THE  ATTRIBUTE  NAME.  *) 

(*  DETERMINE  IF  A  VALID  IDENTIFIER  WAS  ENTERED.  *) 

(*  MAKE  A  LIST  OF  ATTRIBUTES  OF  THE  SPECIFIED  NAME.  *) 

(*  MAKE  A  LIST  OF  THE  ENTITY  USERS.  *) 

(*  PREPARE  TO  DISPLAY  THE  RESULTS.  *) 

(*  DISPLAY  THE  RESULTS.  *) 

(*  RETURN  TO  MAIN  MENU.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  JCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/19/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*END - - - *) 

(*  END  %INCLUDE  XATTNAME  *) 
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(*  %INCLUDE  XATTRES  *) 


VAR  ATTRIBUTE_LIST  :  LISTKEY; 
VAR  DATA_TYPE_KIND  :  INTEGER; 
VAR  PRECISION  :  INTEGER; 


VAR  XREFFILE  :  TEXT; 

VAR  OPTION  :  OPERATIONS); 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  ^FUNCTION:  *) 

(*  DISPLAYS  CROSS  REFERENCE  REPORT  RESULTS  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  ATTRIBUTED 1ST  I  THE  LIST  OF  ATTRIBUTES  *) 

(*  DATA_TYPE_KIND  I  THE  DATA  TYPE  KIND  TO  BE  FOUND  IN  THE  *) 

(*  ATTRIBUTE  LIST  *) 

(*  PRECISION  I  THE  INTEGER  OR  REAL  PRECISION,  OR  THE  *) 

(*  STRING  LENGTH  *) 

(*  COM1  I  THE  MENU  COMMENTS  *) 

(*  COM2  I  THE  MENU  COMMENTS  *) 

(*  XREFFILE  I/O  THE  CROSS  REFERENCE  REPORT  FILE  *) 

(*  OPTION  0  THE  OPTION  SELECTED  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  READ  EACH  ATTRIBUTE  OFF  OF  THE  LIST  OF  ATTRIBUTES  *) 

(*  FROM  THE  ATTRIBUTE  ADB  OBTAIN  THE  ATTRIBUTE  NAME  AND  PUT  IT  *) 

(*  INTO  AN  ARRAY.  *) 

(*  FIND  THE  LIST  OF  USERS  OF  THE  ATTRIBUTE.  THIS  LIST  WILL  *) 

(*  ALWAYS  CONSIST  OF  ONE  AND  ONLY  ONE  MEMBER.  *) 
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(*  FROM  THE  USER  ADB,  OBTAIN  THE  USER  NAME  AND  PUT  IT  INTO  AN  *) 

(*  ARRAY.  IF  THE  USER  IS  A  GLOBAL  ATTRIBUTE,  PUT  THE  KEYWORD  *) 

(*  "GLOBAL"  INTO  THE  ARRAY.  *) 

(*  DEFINE  THE  COMMENTS  FOR  THE  CROSS  REFERENCE  REPORT  *) 

(*  DISPLAY  THE  CROSS  REFERENCE  REPORT  RESULT  MENU  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/19/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*END . - . *) 

(*  END  %INCLUDE  XATTRES  *) 
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(*  %INCLUDE 
(**) 

PROCEDURE 


XEXPREC  *) 

XEXPREC(VAR  IRC 

CONST  ENT_KIND 
VAR  XREFFILE 
VAR  MSG 


SUBPROGRAM; 


RET_REC; 

INTEGER; 

TEXT; 

MESSAGE); 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  GENERATES  A  LIST  OF  ALL  EXISTING  PRECISIONS 
FOR  THE  INTEGER,  REAL,  OR  STRING  DATA  TYPE. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

IRC  0  RETURN  CODE 

ENTJCIND  0  THE  ENTITY  KIND 

XREFFILE  0  THE  CROSS  REFERENCE  REPORT  FILE 

MSG  0  PANEL  MESSAGE 

SCOMMONS: 

NONE 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 
SPROCESSING  DESCRIPTION: 

ESTABLISH  THE  MAXIMUM  PRECISION  AND  THE  DISPLAY  MESSAGE. 

THE  EXISTS  ARRAY  IS  USED  TO  HOLD  BOOLEAN  VALUES.  EXISTS(.X.) 
IS  TRUE  IF  THE  X  PRECISION  EXISTS  FOR  THE  INTEGER,  REAL,  OR 
STRING  DATA  TYPE  IN  THE  SCHEMA  MODEL. 

MAKE  A  LIST  OF  THE  INTEGER,  REAL,  OR  STRING  DATA  TYPES  AND 
DETERMINE  THE  EXISTING  PRECISIONS. 

PREPARE  TO  DISPLAY  THE  RESULTS. 

DISPLAY  THE  RESULTS. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUPJD 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/20/87  C.  H.  MOHME  DBM A  *) 

(*  *) 

(*END . --- . . . . . *) 

(*  END  %INCLUDE  XEXPREC  *) 
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(*  %INCLUDE  XFNDARY  *) 

(**) 

PROCEDURE  XFNDARY (CONST  ENTITYJCEY  :  ENTKEY; 

VAR  ADB  :  ENTBLOCK; 

VAR  DATA  :  BLKDATA; 

VAR  RRC  :  EXT_RET_CODE) ; 


SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  FINDS  ALL  ARRAY  DATA  TYPES  OF  SET,  LIST,  OR 
ARRAY  AND  PUTS  THEM  ON  A  LIST. 

SDESCRIPTION  OF  ARGUMENTS: 

NAME 


ENTITY_KEY 

ADB 

DATA 


RRC 


SCOMMONS: 

NONE 

SENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 
SPROCESSING  DESCRIPTION: 

THIS  ROUTINE  IS  CALLED  BY  A  MAS  EXECUTE  ROUTINE.  ALL 
ARRAY  DATA  TYPES  OF  SET,  LIST,  OR  ARRAY  ARE  PUT  ONTO  A 
LIST. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 


I/O  DESCRIPTION 

I  KEY  TO  THE  ENTITY 
0  DATA  STORED  IN  THE  ADB 
I/O  THE  USER  DEFINED  DATA  STRUCTURE  USED 
TO  PASS  DATA  INTO  THIS  PROCEDURE  AND 
TO  GET  THE  DESIRED  OUTPUT  FROM  THE 
PROCEDURE 

0  EXTERNAL  RETURN  CODE 
=  0  OK 
>=  10  ERROR 


ID 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/24/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*--- .  .  *) 

(*  *) 

(*END- . - . . . . . . . . *) 

(*  END  %INCLUDE  XFNDARY  *) 
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(*  %INCLUDE  XFNDKEY  *) 

(**) 

PROCEDURE  XFNDKEY (VAR  IRC  :  RET_REC ; 

VAR  CHAR_STRING  :  T_NAME ; 

VAR  BAD.NAME  :  BOOLEAN; 

VAR  BAD_KIND_NUMBER  :  BOOLEAN; 

VAR  NUMBER  ;  INTEGER; 

CONST  ENT_KIND  :  INTEGER); 

SUBPROGRAM; 

(**) 


(*-  — .  .  *) 

(*  *) 

(*  SFUNCTION;  *) 

(*  THIS  ROUTINE  DETERMINES  THE  KEY  FOR  A  GIVEN  ENTITY  NAME  *) 

(*  OR  NUMBER  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  CHAR_STRING  I  THE  GIVEN  CHARACTER  STRING  *) 

(*  BAD_NAME  0  INDICATES  IF  THE  GIVEN  CHARACTER  STRING  *) 

(*  IS  A  NAME  *) 

(*  BAD_KIND_NUMBER  0  INDICATES  IF  THE  GIVEN  CHARACTER  STRING  *) 
(*  IS  A  NUMBER  *) 

(*  NUMBER  0  THE  NUMBER  CONTAINED  IN  THE  CHARACTER  *) 

(*  STRING  *) 

(*  DATA_REC  0  THE  RECORD  USED  BY  MAKXEQ  *) 

(*  ENT_KIND  I  THE  ENTITY  KIND  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  INITIALIZE  THE  RECORD  USED  BY  MAS  IN  MAKXEQ.  THIS  RECORD  *) 

(*  CONTAINS  AN  ENTITY  NAME  OR  KIND  NUMBER.  THE  MAKXEQ  ROUTINE  *) 

(*  WILL  RETURN  THE  ENTITY  KEY,  IF  THE  ENTITY  EXISTS  IN  THE  *) 

(*  MODEL.  *) 

(*  *) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP.ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/17/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  XFNDKEY  *) 
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(*  %INCLUDE  XFNDNAME  *) 

(**) 

PROCEDURE  XFNDNAME (CONST  ENTITY_KEY  :  ENTKEY; 

VAR  ADB  :  ENTBLOCK; 

VAR  DATA  :  BLKDATA; 

VAR  RRC  :  EXT_RET_CODE) ; 


SUBPROGRAM; 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  FINDS  ALL  ATTRIBUTES  WITH  THE  GIVEN  NAME  AND 
PUTS  THEM  ON  A  LIST. 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


ENTITYJCEY 

ADB 

DATA 


RRC 


I  KEY  TO  THE  ENTITY 
0  DATA  STORED  IN  THE  ADB 
I/O  THE  USER  DEFINED  DATA  STRUCTURE  USED 
TO  PASS  DATA  INTO  THIS  PROCEDURE  AND 
TO  GET  THE  DESIRED  OUTPUT  FROM  THE 
PROCEDURE 

0  EXTERNAL  RETURN  CODE 
=  0  OK 
>=  10  ERROR 


SCOMMONS: 

NONE 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 


SPROCESSING  DESCRIPTION: 

THIS  ROUTINE  IS  CALLED  BY  A  MAS  EXECUTE  ROUTINE.  ALL 
ATTRIBUTES  WITH  THE  GIVEN  NAME  ARE  RETURNED  IN  A  LIST. 


SCOMMENTS: 


SCHANGE  CONTROL: 

REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/19/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* . - . - . - .  -*) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  XFNDNAME  *) 
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(*  %INCLUDE  XFNDPREC  *) 

(**) 

PROCEDURE  XFNDPREC (CONST  ENTITYJCEY  :  ENTKEY ; 

VAR  ADB  :  ENTBLOCK; 

VAR  DATA  :  BLKDATA; 

VAR  RRC  :  EXT_RET_CODE) ; 

SUBPROGRAM; 

(**) 

(*  *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  THIS  ROUTINE  FINDS  ALL  INTEGERS,  REALS,  OR  STRINGS  WITH  *) 

(*  THE  SPECIFIED  PRECISION  AND  PUTS  THEM  ON  A  LIST.  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTITYJCEY  I  KEY  TO  THE  ENTITY  *) 

(*  ADB  0  DATA  STORED  IN  THE  ADB  *) 

(*  DATA  I/O  THE  USER  DEFINED  DATA  STRUCTURE  USED  *) 

(*  TO  PASS  DATA  INTO  THIS  PROCEDURE  AND  *) 

(*  TO  GET  THE  DESIRED  OUTPUT  FROM  THE  *) 

(*  PROCEDURE  *) 

(*  RRC  0  EXTERNAL  RETURN  CODE  *) 

(*  -  0  OK  *) 

(*  >=  10  ERROR  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  SENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  IS  CALLED  BY  A  MAS  EXECUTE  ROUTINE.  ALL  *) 

(*  INTEGERS,  REALS,  OR  STRINGS  WITH  THE  SPECIFIED  PRECISION  *) 

(*  ARE  FOUND  AND  PUT  ONTO  A  LIST.  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 
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(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/19/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*  -*) 

(*  *) 

(*END . . . - . *) 

(*  END  %INCLUDE  XFNDPREC  *) 


1-396 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  XLISTENT  *) 

(**) 

PROCEDURE  XL I STENT (VAR  IRC  :  RET_REC 

CONST  SPECIFIEDJCEYJGND  :  INTEGER 

CONST  RESULTJ.ISTJGND  :  INTEGER 

VAR  XREFFILE  :  TEXT); 

SUBPROGRAM; 


(**) 

(* 

(* 

(*  ^FUNCTION: 

(*  THIS  ROUTINE  GENERATES  A  LIST  OF  ALL  "ENTITIES"  CONTAINING 

(*  A  PARTICULAR  ENTITY. 

(* 

(*  SDESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  IRC  0  RETURN  CODE 

(*  SPECIFIEDJCEYJGND  I  THE  ENTITY  KIND  OF  THE  PARTICULAR  ENTITY 

(*  TO  BE  FOUND. 

(*  RESULT_LIST_KIND  I  THE  ENTITY  KIND  OF  THE  RESULTING  LIST 

(*  XREFFILE  0  THE  CROSS  REFERENCE  REPORT  FILE 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  SENViRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  SEXFCUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

(* 

(*  $PRr  CESSING  DESCRIPTION: 

(*  DISPLAY  THE  CROSS  REFERENCE  MENU 

(*  Df  FINE  THE  MENU  COMMENTS  TO  DISPLAY  FOR  THE  USER'S  INFORMATION 
(*  D  SPLAY  THE  SPECIFICATION  MENU,  IF  APPROPRIATE 
(*  D‘ TERMINE  WHICH  OPTION  WAS  CHOSEN  AND  CALL  THE  APPROPRIATE 
(*  ROUTINE 

(*  DETERMINE  IF  A  VALID  NAME  OR  NUMBER  WAS  ENTERED 

(*  DETERMINE  THE  KEY  OF  THE  NAME  OR  NUMBER  SPECIFIED 

(*  CREATE  THE  DESIRED  LIST  AND  DEFINE  THE  CROSS  REFERENCE  REPORT 
(*  COMMENTS 

(*  FIND  ALL  ATTRIBUTES  OF  THE  SPECIFIED  DEFINED  TYPE 
(*  FIND  ALL  CLASSES  CONTAINING  THE  SPECIFIED  ENTITY 
(*  FIND  ALL  SUBSCHEMAS  CONTAINING  THE  SPECIFIED  ENTITY 

(*  FIND  ALL  SUBSCHEMAS  CONTAINING  THE  SPECIFIED  CLASS 

(*  DISPLAY  THE  RESULTS 

(*  RETURN  TO  MAIN  MENU 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/16/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*END . - . . . *) 

(*  END  %INCLUDE  XL I STENT  *) 
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(*  ^INCLUDE  XMAIN  *) 

(**) 

PROCEDURE  XMAIN(VAR  IRC  :  RET_REC ; 

VAR  XREFFILE  :  TEXT); 

SUBPROGRAM; 


(*  *) 

(*  S FUNCTION:  *) 

(*  THIS  ROUTINE  DETERMINES  THE  CROSS  REFERENCE  OPTION  DESIRED  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  XREFFILE  0  CROSS  REFERENCE  REPORT  FILE  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  S ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DISPLAY  THE  CROSS  REFERENCE  MAIN  MENU.  *) 

(*  DETERMINE  WHICH  OPTION  WAS  CHOSEN  AND  CALL  THE  APPROPRIATE  *) 

(*  ROUTINE.  *) 

(*  LIST  ALL  ATTRIBUTES  OF  A  PARTICULAR  DATA  TYPE  (THIS  LIST  OF  *) 

(*  ATTRIBUTES  ALSO  INCLUDES  THE  ATTRIBUTES'  USER  ENTITY).  *) 

(*  LIST  ALL  ENTITIES  HAVING  AN  ATTRIBUTE  OF  A  PARTICULAR  *) 

(*  DEFINED  TYPE.  *) 

(*  LIST  ALL  ENTITIES  HAVING  AN  ATTRIBUTE  WITH  A  PARTICULAR  *) 

(*  NAME.  *) 

(*  LIST  ALL  CLASSES  CONTAINING  A  PARTICULAR  ENTITY.  *) 

(*  LIST  ALL  SUBSCHEMAS  CONTAINING  A  PARTICULAR  ENTITY.  *) 

(*  LIST  ALL  SUBSCEHMAS  CONTAINING  A  PARTICULAR  CLASS.  *) 

(*  LIST  ALL  EXISTING  PRECISIONS  FOR  THE  INTEGER  DATA  TYPE.  *) 

(*  LIST  ALL  EXISTING  PRECISIONS  FOR  THE  REAL  DATA  TYPE.  *) 

(*  LIST  ALL  EXISTING  LENGTHS  FOR  THE  STRING  DATA  TYPE.  *) 

(*  RETURN  TO  MAIN  MENU  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 
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(*  REVISED:  MH/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/16/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*END . *) 

(*  END  %INCLUDE  XMAIN  *) 
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(*  %INCLUDE  XMATTRES  *) 

(**) 

PROCEDURE  XMATTRES (VAR  MESS  :  MESSAGE; 

VAR  CLAS  :  T_ARRAYRV; 

VAR  ARRAY_SIZE  :  INTEGER; 

VAR  COM1  :  CHAR50; 

VAR  COM2  :  CHAR50; 

VAR  XREFFILE  :  TEXT; 

VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET.REC); 

SUBPROGRAM; 

(**) 

(* .  . . *) 

(*  *) 

(*  {FUNCTION:  *) 

(*  DISPLAYS  A  CROSS  REFERENCE  MENU  *) 

(*  *) 

(*  {DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

( *  ====  ==■==  ===== =======  * ) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  CLAS  I  THE  ARRAY  OF  MEMBERS  *) 

(*  ARRAY_SIZE  I  THE  SIZE  OF  THE  ARRAY  OF  MEMBERS  *) 

(*  COM1  I  THE  MENU  COMMENTS  *) 

(*  COM2  I  THE  MENU  COMMENTS  *) 

(*  XREFFILE  I/O  THE  CROSS  REFERENCE  REPORT  FILE  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  {COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  {ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  {EXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  {PROCESSING  DESCRIPTION:  *) 

(*  INITIALIZE  THE  VARIABLES  *) 

(*  PERMIT  THE  COMMUNICATION  BETWEEN  PANEL  VARIABLES  AND  PROGRAM  *) 

(*  VARIABLES  *) 

(*  CREATE  THE  TABLE  *) 

(*  PREPARE  TO  DISPLAY  THE  CROSS  REFERENCE  DISPLAY  MENU  *) 

(*  LOAD  THE  TABLE  AND  WRITE  THE  CROSS  REFERENCE  REPORT  RESULTS  TO  *) 

(*  FILE  *) 
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(*  DISPLAY  THE  CROSS  REFERENCE  DISPLAY  MENU  *) 

(*  DETERMINE  THE  ACTION  SELECTED  FROM  THE  MENU  *) 

(*  REMOVE  CORRESPONDENCE  BETWEEN  PANEL  VARIABLES  AND  PROGRAM  *) 

(*  VARIABLES  *) 

(*  REMOVE  THE  TABLE  *) 

(*  *) 

(*  SCOMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP.ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP.ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/19/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*-—  -*) 

(*  *) 

(*END . - . . *) 

(*  END  %INCLUDE  CRDISP  *) 
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(*  %INCLUDE  XMMAIN  *) 

(**) 

PROCEDURE  XMMAIN (VAR  MESS 

VAR  NEXT_OP 
VAR  RR 

SUBPROGRAM; 


MESSAGE; 

OPERATIONS; 

RET.REC); 


(**) 


V 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


$ FUNCTION: 

DISPLAYS  A  CROSS  REFERENCE  MENU 
SDESCRIPTION  OF  ARGUMENTS: 


SCOMMONS: 

NONE 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 

SEXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

INITIALIZE  THE  VARIABLES 

PERMIT  THE  COMMUNICATION  BETWEEN  PANEL  VARIABLES  AND  PROGRAM 
VARIABLES 

DISPLAY  THE  CROSS  REFERENCE  MENU 
DETERMINE  THE  ACTION  SELECTED  FROM  THE  MENU 
REMOVE  CORRESPONDENCE  BETWEEN  PANEL  VARIABLES  AND  PROGRAM 
VARIABLES 

SCOMMENTS: 

NONE 


SCHANGE  CONTROL: 

REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER 
DESCRIPTION  OF  LATEST  CHANGE  MADE. 


*) 

*) 

*) 

*) 

*) 


NAME 

I/O 

DESCRIPTION 

*) 

*) 

*) 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

*) 

OPERATION 

*) 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 

*) 

IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

*) 

GROUP  ID 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ORIGINATED:  11/16/87  C.  H.  MOHME 

(* 

(* 

(* 

(*END . - . 

(*  END  %INCLUDE  XMMAIN  *) 


DBMA  *) 
*) 

- *) 

*) 

. — *) 


1-404 


PS  560130000A 
22  December  1987 


(*  %INCLUDE  XMNAMSPE 
(**) 


(’ 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


PROCEDURE  XMNAMSPE (VAR  MESS 

MESSAGE; 

VAR  NAME 

T  NAME; 

VAR  C0M1 

CHAR50; 

VAR  COM2 

CHAR50; 

VAR  NEXT  OP 

OPERATIONS; 

VAR  RR 

RET  REC); 

SUBPROGRAM; 

*) 

-*) 

*) 

*) 

*) 

*) 


{FUNCTION: 

DISPLAYS  A  CROSS  REFERENCE  REPORT  MENU 


{DESCRIPTION  OF 

ARGUMENTS: 

*) 

NAME 

I/O 

DESCRIPTION 

*) 

===== 

=  ==== 

- =  — =  = 

*) 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

*) 

NAME 

I 

THE  ENTITY  NAME 

*) 

C0M1 

I 

THE  MENU  COMMENTS 

*) 

COM2 

I 

THE  MENU  COMMENTS 

*) 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

*) 

*) 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

*) 

*) 

{COMMONS: 

NONE 

{ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 

{EXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

{PROCESSING  DESCRIPTION: 

INITIALIZE  THE  VARIABLES 

PERMIT  THE  COMMUNICATION  BETWEEN  PANEL  VARIABLES  AND  PROGRAM 
VARIABLES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

DISPLAY  THE  ENTITY  SPECIFICATION  MENU 

*) 

(* 

DETERMINE  THE  ACTION 

SELECTED  FROM  THE  MENU 

*) 

(* 

REMOVE  CORRESPONDENCE 

BETWEEN  PANEL  VARIABLES  AND 

PROGRAM 

*) 

(* 

VARIABLES 

*) 

(* 

*) 

(* 

SCOMMENTS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

SCHANGE  CONTROL: 

*) 

(* 

*) 

(* 

REVISED:  MM/DD/YY 

NAME 

GROUP 

*) 

(* 

COMMENTS 

*) 

(* 

*) 

(* 

REVISED:  MM/DD/YY 

NAME 

GROUP 

*) 

(* 

COMMENTS 

*) 

(* 

*) 

(* 

REVISED:  MM/DD/YY 

NAME 

GROUP 

*) 

(* 

COMMENTS 

*) 

(* 

*) 

(* 

ORIGINATED:  11/17/87 

C.  H.  MOHME 

DBMA 

*) 

(* 

*) 

(*--- 

-*) 

(* 

*) 

(*END- . 

--*) 

(*  END  %INCLUDE  XMNAMSPE  *) 
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(*  %INCLUDE  XMPRESPE  *) 

(**) 

PROCEDURE  XMPRESPE (VAR  MESS  :  MESSAGE; 

VAR  DATA_TYPE_KIND  :  INTEGER; 

VAR  SIZE  :  CHAR8; 

VAR  NEXT.OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

l* 

(* 

(* 

(* 

(* 


SFUNCTION: 

DISPLAYS  A  CROSS  REFERENCE  REPORT  MENU 


SDESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


MESS  I 
DATA_TYPE_KIND  I 
SIZE  0 
NEXT_OP  0 

RR  0 


THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

THE  DATA  TYPE  KIND 

THE  PRECISION  OF  THE  REAL  ENTERED 

ENUMERATED  TYPE  INDICATING  THE  NEXT 

OPERATION 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 


SCOMMONS: 

NONE 


SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

NONE 


SEXECUTION  PROCEDURE: 

SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

SPROCESSING  DESCRIPTION: 

INITIALIZE  THE  VARIABLES 

PERMIT  THE  COMMUNICATION  BETWEEN  PANEL  VARIABLES  AND  PROGRAM 
VARIABLES 

DISPLAY  THE  CROSS  REFERENCE  MENU 
DETERMINE  THE  ACTION  SELECTED  FROM  THE  MENU 
REMOVE  CORRESPONDENCE  BETWEEN  PANEL  VARIABLES  AND  PROGRAM 
VARIABLES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  SCOMMENTS:  *) 

(*  NONE  *} 

(*  *) 

(*  SCHAN6E  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  11/19/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(* .  . *) 

(*  *) 

(*END . . . - . *) 


(*  END  %INCLUDE  XMPRESPE*) 
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(*  %INCLUDE  XMRESULT  *) 

(**) 

PROCEDURE  XMRESULT (VAR  MESS 

VAR  CLAS 
VAR  ARRAY_SIZE 
VAR  COM1 
VAR  COM2 
VAR  XREFFILE 
VAR  NEXT_OP 

VAR  RR 

SUBPROGRAM; 


MESSAGE; 

T_ARRAYTV ; 

INTEGER; 

CHAR50; 

CHAR50; 

TEXT; 

OPERATIONS; 

RET.REC); 


(**) 

(* 

(* 

(*  SFUNCTION: 

(*  DISPLAYS  A  CROSS  REFERENCE  MENU 
(* 


(* 

SDESCRIPTION  OF 

ARGUMENTS: 

(* 

NAME 

I/O 

DESCRIPTION 

(* 

=  ==  =  = 

=  =  = 

u 

ii 

ii 

ii 

ii 

ii 

n 

n 

n 

n 

ii 

(* 

MESS 

I 

THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL 

(* 

CLAS 

I 

THE  ARRAY  OF  MEMBERS 

(* 

ARRAY  SIZE 

I 

THE  SIZE  OF  THE  ARRAY  OF  MEMBERS 

(* 

COM1 

I 

MENU  COMMENTS 

(* 

COM2 

I 

MENU  COMMENTS 

(* 

XREFFILE 

I/O 

THE  CROSS  REFERENCE  REPORT  FILE 

(* 

(* 

NEXT_OP 

0 

ENUMERATED  TYPE  INDICATING  THE  NEXT 
OPERATION 

(* 

(* 

RR 

0 

INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND, 
IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN 

(* 

(*  SCOMMONS: 

(*  NONE 

(* 

(*  $ ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(*  DDNAMES  USED  WITH  STANDARD  FILES: 

(*  NONE 

(* 

(*  SEXECUTION  PROCEDURE: 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE 

(* 

(*  SPROCESSING  DESCRIPTION: 

(*  INITIALIZE  THE  VARIABLES 

(*  PERMIT  THE  COMMUNICATION  BETWEEN  PANEL  VARIABLES  AND  PROGRAM 

(*  VARIABLES. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  CREATE  THE  TABLE 

(*  PREPARE  TO  DISPLAY  THE  CROSS  REFERENCE  DISPLAY  MENU 

(*  LOAD  THE  TABLE  AND  WRITE  THE  CROSS  REFERENCE  REPORT  RESULTS 

(*  TO  FILE 

(*  DISPLAY  THE  CROSS  REFERENCE  DISPLAY  MENU 
(*  DETERMINE  THE  ACTION  SELECTED  FROM  THE  MENU 
(*  REMOVE  CORRESPONDENCE  BETWEEN  PANEL  VARIABLES  AND  PROGRAM 

(*  VARIABLES 

(*  REMOVE  THE  TABLE 

(* 

(*  SCOMMENTS: 

'*  NONE 

(* 

(*  SCHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I. 

(*  DESCRIPTION  OF  LATEST  CHANGE 

(* 

(*  REVISED:  MM/DD/YY  CCZZ  I. 

(*  DESCRIPTION  OF  CHANGE  MADE. 

(*  NARATION  ON  THE  NEXT  LINE. 

(* 

(*  ORIGINATED:  11/17/87  C. 

(* 

(* . 

(* 

(*END- . . 

(*  END  %INCLUDE  CRDISP  *) 


M.  THECHANGER  GROUP.ID 

MADE. 

M.  THEPROGRAMMER  GROUP.ID 

IF  LENGTHY,  CONTINUE  THE 


H.  MOHME  DBMA 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  XMTYPSPE  *) 

(**) 

PROCEDURE  XMTYPSPE (VAR  MESS  :  MESSAGE; 

VAR  NEXT_OP  :  OPERATIONS; 

VAR  RR  :  RET_REC) ; 

SUBPROGRAM; 

(**) 

(* . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  DISPLAYS  A  CROSS  REFERENCE  MENU  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

( *  ====  ===  ===========  *) 

(*  MESS  I  THE  ERROR  MESSAGE  DISPLAYED  ON  THE  PANEL  *) 

(*  NEXT_OP  0  ENUMERATED  TYPE  INDICATING  THE  NEXT  *) 

(*  OPERATION  *) 

(*  RR  0  INDICATES  IF  AN  ERROR  HAS  OCCURRED  AND,  *) 

(*  IF  ONE  HAS,  WHAT  ROUTINE  IT  OCCURRED  IN  *) 

(*  *) 

(*  $COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  NONE  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  SCHEMA  EXECUTIVE  MENU  INTERFACE  ROUTINE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  INITIALIZE  THE  VARIABLES  *) 

(*  PERMIT  THE  COMMUNICATION  BETWEEN  PANEL  VARIABLES  AND  PROGRAM  *) 

(*  VARIABLES  *) 

(*  DISPLAY  THE  CROSS  REFERENCE  MENU  *) 

(*  DETERMINE  THE  ACTION  SELECTED  FROM  THE  MENU  *) 

(*  REMOVE  CORRESPONDENCE  BETWEEN  PANEL  VARIABLES  AND  PROGRAM  *) 

(*  VARIABLES  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 
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(*  ORIGINATED:  11/19/87  C.  H.  MOHME 

(* 

(* 

(* 

(*END . --- 

(*  END  %INCLUDE  XMTYPSPE  *) 


DBMA  *) 

*) 

—  - . *) 

*) 

. *) 
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(*  %INCLUDE  XNAMENUM  *) 

(**) 

PROCEDURE  XNAMENUM (VAR  IRC  :  RET.REC; 

VAR  CHAR.STRING  :  T_NAME ; 

VAR  BAD.NAME  :  BOOLEAN; 

VAR  BAD_KIND_NUMBER  :  BOOLEAN; 

VAR  NUMBER  :  INTEGER) ; 

SUBPROGRAM; 

(**) 

(* . - . - . *) 

(*  *) 

(*  SFUNCTION:  *) 

(*  THIS  ROUTINE  DETERMINES  IF  A  CHARACTER  STRING  IS  A  NAME  *) 

(*  OR  NUMBER  *) 

(*  *) 

(*  SDESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IRC  0  RETURN  CODE  *) 

(*  CHAR_STRING  I  THE  GIVEN  CHARACTER  STRING  *) 

(*  BAD_NAME  0  INDICATES  IF  THE  GIVEN  CHARACTER  STRING  *) 

(*  IS  A  NAME  *) 

(*  BAD_KIND_NUMBER  0  INDICATES  IF  THE  GIVEN  CHARACTER  STRING  *) 
(*  IS  A  NUMBER  *) 

(*  NUMBER  0  THE  NUMBER  CONTAINED  IN  THE  CHARACTER  *) 

(*  STRING  *) 

(*  *) 

(*  SCOMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  SEXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE  *) 

(*  *) 

(*  SPROCESSING  DESCRIPTION:  *) 

(*  DETERMINE  IF  THE  CHARACTER  STRING  (CHAR.STRING)  IS  A  VALID  *) 

(*  NAME  OR  KIND  NUMBER.  *) 

(*  *) 

(*  ICOMMENTS:  *) 

(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GR0UP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 
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(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/17/87  C.  H.  MOHME  DBHA  *) 

(*  *) 

(♦END . - . - . . *) 

(*  END  %INCLUDE  XNAMENUM  *) 
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(*  %INCLUDE  XRESULT  *) 
(**) 

PROCEDURE  XRESULT(VAR 

VAR 

VAR 

VAR 

VAR 

VAR 

SUBPROGRAM; 


IRC 

RESULT.LIST 

COM1 

COM2 

XREFFILE 

OPTION 


RET.REC; 

LISTKEY; 

CHAR50; 

CHAR50; 

TEXT; 

OPERATIONS); 


(**) 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


SFUNCTION: 

THIS  ROUTINE  DISPLAYS  THE  CROSS  REFERENCE  REPORT  RESULTS 

SDESCRIPTION  OF  ARGUMENTS: 

NAME 

IRC 

RESULT_LIST 
COM1 
COM2 

XREFFILE 
OPTION 

SCOMMONS: 

NONE 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

SEXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  SCHEMA  EXECUTIVE 

SPROCESSING  DESCRIPTION: 

READ  EACH  KEY  OFF  OF  THE  RESULT  LIST. 

FROM  EACH  ENTITY  ADB  OBTAIN  THE  ENTITY  NAME  (AND  KIND  NUMBER, 
IF  APPLICABLE). 

FILL  UP  THE  TABLE  OF  NAMES  AND  KIND  NUMBERS  FOR  DISPLAY  ON 
THE  CROSS  REFERENCE  MENU. 

DISPLAY  THE  CROSS  REFERENCE  REPORT  RESULTS  MENU. 

SCOMMENTS: 

SCHANGE  CONTROL: 

REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 


I/O  DESCRIPTION 
0  RETURN  CODE 

I  THE  CROSS  REFERENCE  RESULT  LIST 
I  MENU  COMMENTS  DESCRIBING  THE  OUTPUT 

I  MENU  COMMENTS  DESCRIBING  THE  OUTPUT 

I/O  CROSS  REFERENCE  REPORT  FILE 
0  OPTION  SELECTED 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  MM/DD/YY  CCZZ  I.  M.  THEPROGRAMMER  GROUP_ID  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARATION  ON  THE  NEXT  LINE.  *) 

(*  *) 

(*  ORIGINATED:  11/17/87  C.  H.  MOHME  DBMA  *) 

(*  *) 

(*END . - - - *) 

(*  END  %INCLUDE  XRESULT  *) 
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APPENDIX  J 

SCHEMA  MANAGER  DATA  DICTIONARY 


This  section  provides  the  data  structures  for  the  Schema  Manager, 
following  index  provides  an  alphabetic  listing  of  the  functions: 

BALTYP  -  Boundary  Alignment  Types 

BATTYP  -  Batch  Interface  Types  and  Constants 

DDTYP  -  Data  Dictionary  Constants  &  Types 

LEXTYPE  -  Batch  Interface  Types  and  Constants 

NVITYP  -  NVI  Constants  &  Types 

RTSTYP  -  Run-Time  Subschema  Constants  &  Types 

SCECON  -  Schema  Manager  Constants 

SCETYP  -  Schema  Manager  Types 
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(*  ^ BALTYP)  *********************************************************** 
(* 

(*  SCHANGE  CONTROL:  * 
(*  ORIGINATED:  17  SEPTEMBER  1986,  M.  H.  CHOI,  DBMA  * 
(*  * 
^  ********************************************************************** 
TYPE 


) 

) 

) 

) 

) 

) 


DW  POINTER 

=  @T  DW  FRAME; 

DW  FRAME  = 

RECORD 

NEXT 

:  T  DW  POINTER; 

NAME 

:  T  NAME; 

SIZE 

:  INTEGER; 

END; 

FW  POINTER 

=  @T  FW  FRAME; 

FW  FRAME  = 

RECORD 

NEXT 

:  T  FW  POINTER; 

NAME 

:  T  NAME; 

SIZE 

:  INTEGER; 

END; 

HW  POINTER 

=  @T  HW  FRAME; 

HW  FRAME  * 

RECORD 

NEXT 

:  T  HW  POINTER; 

NAME 

:  T  NAME; 

SIZE 

:  INTEGER; 

END; 

BY  POINTER 

=  @T  BY  FRAME; 

BY  FRAME  = 

RECORD 

NEXT 

:  T  BY  POINTER; 

NAME 

:  T  NAME; 

SIZE 

:  INTEGER; 

END; 

(* 

T_PNTR_POINTER  =  @T_PNTR_FRAME; 
T_PNTR_FRAME  =  RECORD 


NEXT 

:  T  PNTR  POINTER; 

NAME 

:  T  NAME; 

SIZE 

:  INTEGER; 

END; 

LIST  BOUNDARY 

=  RECORD 

NAME 

T  NAME; 

OFFSET 

INTEGEx; 

SIZE 

INTEGER; 

END; 

*) 

*) 


*) 


*) 


*) 


*) 


*) 


J-2 


PS  560130000A 
22  December  1987 


T_OFFSET_LIST  =  ARRAY  (.  1..100  .)  OF  T_LIST_BOUNDARY; 

T_HIGH_BOUND  =  ARRAY  (.  1. -100  .)  OF  INTEGER; 

T_LOW_BOUND  =  ARRAY  (.  1..100  .)  OF  INTEGER; 

T  OPTIONAL  GLOBAL  *  RECORD 
KEY  :  ENTKEY ; 

POSITION  :  INTEGER; 

END; 

T_GLOBAL_FIELD  =  ARRAY  (.  1..100  .)  OF  T_OPTIONAL_GLOBAL; 

T_ALIGN  =  (  DW,  FW,  HW.  BY,  PNTR,  NONE  ); 

T_S_Info_Pointer  =  @T_S_Info_Frame; 

T  S  Info  Frame  =  Record 


Name 

:  T_Name; 

Offset 

:  Integer; 

Size 

;  Integer; 

Next 

:  T_S_Info_Pointer; 

End; 

T_Struc_Pointer 

=  @T_Struc_Frame; 

T__Struc_Frame  « 

Record 

Next 

:  T_Struc_po inter; 

Name 

:  T_Name; 

Defn 

End; 

:  T_S_Info_Pointer; 

(*  END  %INCLUDE  BALTYP 
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BEGIN  %INCLUDE  BATTYPE  ********************************************* j 


(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  20  MARCH  1987,  C.  H.  MOHME  *) 

(*  *) 

| ********************************************************************** ^ 


CONST 

FIRST  =  1; 

TYPE 

BLKDATA  =  RECORD 
NAME  :  T_NAME ; 

KIND  :  INTEGER; 

NAME_FOUND  :  BOOLEAN; 

KIND_FOUND  :  BOOLEAN; 

KEY  :  ENTKEY ; 

END; 

ENTITY_LIST_PTR  «  @ENTITY_INFORMATION; 

ENTITY_INFORMATION  =  RECORD 
NAME  :  T_NAME ; 

NUMBER  :  INTEGER; 

NEXT  :  ENTITY_LIST_PTR; 

END; 

LEXSTRING  =  STRING(MAX_LENGTH_VALUE) ; 

T_EXPECTED  =  RECORD 

ENTRIES  :  INTEGER; 

TOKEN_VALUE  :  ARRAY ( . 1 . . 20 . )  OF  T_TOKEN_VALUE 
END; 

(*  *) 
(*  END  %INCLUDE  BATTYPE  *********************************************j 
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(*  (DDTYP)  DATA  DICTIONARY  CONSTANTS  AND  TYPES  ************************) 


(*  *) 
(*  SCHANGE  CONTROL:  *) 

(*  REVISED  :  15  MAY  1987,  M.  H.  CHOI,  DBMA  *) 

(*  ADDED  T_ADB_RECORD  AND  T_CL_RECORD  TO  RETURN  *) 

(*  THE  DEFINITIONS  IN  PHYSICAL  SCHEMA  ORDER  *) 

(*  ORIGINATED:  19  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

^ ********************************************************************** ^ 
CONST 

CONT I NU AT I ON_F  L AG  =  'X'; 

PHYSICAL_ORDER  =  'P'; 

MAX_ARRAY_REC  =100; 

(*  RETURN  CODE  VALUES:  *) 

KIND_NOT_IN_DATA_DICTIONARY  =1; 

ACTUAL_S I Z  E_GT_S  PAC  E_AV A I L  =  -1; 

(*  *) 

TYPE 

T_INX_RECORD  =  PACKED  ARRAY  (.  1..80  .)  OF  CHAR; 

(*  *) 

T_USER_ARRAY  =  ARRAY  (.  1..46  .)  OF 

PACKED  ARRAY  (.  1..80  .)  OF  CHAR; 

(*  *) 

T  BOUNDS  -  RECORD 

LBOUND  :  PACKED  ARRAY  (.  1..4  .)  OF  CHAR; 

UBOUND  :  PACKED  ARRAY  (.  1..4  .)  OF  CHAR; 

END; 


T_ADB_RECORD 

=  RECORD 

ADB  KEY 

:  INTEGER; 

POSITION 

:  INTEGER; 

NO  OF  REC 
END; 

:  INTEGER; 

T_CL_RECORD 

=  RECORD 

POSITION 

:  INTEGER; 

NO  OF  REC 
END; 

:  INTEGER; 

*) 


*) 


(* 

T_VARIANT_RECORD  =  RECORD 
CASE  INTEGER  OF 
0  :  (  BASIC  RECORD 

1  :  (  BOUNDS 

2  :  (  C_FLAG 

NO_OF_KINDS 

KINDS 


*) 


PACKED  ARRAY  (.  1..80  .)  OF  CHAR  ); 
ARRAY  (.  1..9  .)  OF  T.BOUNDS  ); 

CHAR; 

PACKED  ARRAY  (.  1..2  .)  OF  CHAR; 

ARRAY  (.  1..12  .)  OF 

PACKED  ARRAY  (.  1..6  .)  OF  CHAR  ); 
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3  :  (  E_FLAG  :  CHAR; 

NO_OF  VALUES  :  PACKED  ARRAY  (.  1..2  .)  OF  CHAR; 

VALUES  :  ARRAY  (.  1..4  .)  OF 

PACKED  ARRAY  (.  1..17  .)  OF  CHAR  ); 

END; 

(*  *) 

T_ADB_ARRAY  *  ARRAY  (.  1..MAX.ARRAY  REC  .)  OF  T  ADB.RECORD; 

(*  *) 

T_CL_ARRAY  =  ARRAY  (.  1..MAX  ARRAY.REC  .)  OF  T  CL.RECORD; 

(*  *) 

T_FILE_VARIANT  *  FILE  OF  T_VARI ANT_RECORD ; 

(*  *) 

T_INXJFILE  «  FILE  OF  T_INX_RECORD; 

(*  *) 

(*  END  %INCLUDE  DDTYP  ************************************************* ) 
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(*  BEGIN  %INCLUDE  LEXTYPE  *********************************************) 
(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  ORIGINATED:  19  MARCH  1987,  G.  A.  WHITE  *) 

(*  *) 

^**********************************************************************) 

CONST 

Final_Token  *  'Final 
Found_Addop  *  'Addop 
Found_Assignment  *  'Assignment'; 

Found_Comment  *  ' Comment  ' ; 

FoundJDel imiter  =  'Delimiter  '; 

Found_Error  =  'Error  '; 

Found_Identifier  =  'Identifier'; 

Found_Integer  =  'Integer  '; 

FoundJCeyword  *  'Keyword  '; 

Found_Literal  =  'Literal  '; 

Found_Mulop  *  'Mulop  '; 

Found_Pound_Sign  =  'Pound_Sign' ; 

Found_Real  =  'Real  '; 

Found_Relop  =  'Relop  '; 

Found_Unary  *  'Unary  '; 

Initial_Token  =  'Initial  '; 

(*  ARBITRARY  SIZE  PARAMETERS:  *) 

Max_Length_Token  =  10; 

Max_Length_Val ue  =  80; 


Type 

TJoken  =  String  (Max_Length_Token) ; 

T_Token_Value  -  String(Max_Length_Value) ; 

(*  *) 
(*  END  %INCLUDE  LEXTYPE  *********************************************) 
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(*  (NVITYP)  NAME_VALUE  INTERFACE  CONSTANTS  AND  TYPES  ******************) 


(*  *) 

(*  SCHANGE  CONTROL:  *) 

(*  REVISED  :  15  JULY  1987,  M.  H.  CHOI,  DBMA  *) 

(*  ADDED  COMPARISON  VALUES  *) 

(*  REVISED  :  16  SEPTEMBER  1986,  M.  H.  CHOI,  DBMA  *) 

(*  CHANGED  STRUCTURE  OF  THE  SCHEMA  INSTANCE  COLLECTOR  *) 

(*  BECAUSE  STRUCTURE  CHANGED  IN  MAS  TO  HANDLE  NEW  *) 

(*  DELETE  AND  COMPRESS  RULES  *) 

(*  REVISED  :  12  SEPTEMBER  1986,  M.  H.  CHOI,  DBMA  *) 

(*  ADDED  FIELD  TO  T_INT_ITEM  FOR  THE  COLL.ADB  AND  *) 

(*  MAPROB2  BECAUSE  T  INT_ITEM  STRUCTURE  CHANGED  IN  MAS*) 

(*  REVISED  :  04  JUNE  1986,  M.  H.  CHOI,  DBMA  *) 

(*  ADDED  RETURN  CODE  VALUES  FOR  FAILED_IN_MAL  AND  *) 

(*  FAILURE.  *) 

(*  ORIGINATED:  13  MAY  1986,  G.  A.  WHITE,  DBMA  *) 

(*  *) 

!***********************************************************★********** j 

CONST 

(*  ARBITRARY  SIZE  PARAMETERS:  *) 


MAX_ARRAY  -  100; 

MAX_ATT R I BUT E_NAM E  -  1000; 

MAX_ATTRIBUTE_VALUE  =  1000; 

MAX_CHARS  *  1000; 

MAX  GROUP  *  8; 

MAX_LIST  =  4000000; 

MAX_RDB_SIZE  =  65535; 

MAX  WORDS  =  MAX_CHARS  DIV  4; 

SC  H EMA_N AM E_S I Z  E  =  16; 

(*  RETURN  CODE  VALUES:  *) 

INVALID_ARRAY_ENTITY  =  7; 

I NVAL I D_SCALAR_VALUE  =  6; 

FAILED_IN_MAL  =  5; 

FAILED_IN_MAEXEQ  =  4; 

NIL_ENTITY_KEY  -  3; 

ATTRIBUTE_NOT_IN_ENTITY  -  2; 

KIND_NOT_IN_RUNTIME_SUBSCHEMA  =  1; 

SUCCESS  -  0; 

WARNING  -  -1; 

FAILURE  -  -2; 

(*  COMPARISON  VALUES:  *) 

EQ  *  1; 

LT  =  2; 

GT  =  3; 

NE  =  4; 

LE  =  5; 

GE  -  6; 

(*  ATTRIBUTE  NAME  STRING  DELIMITERS:  *) 

END_OF_SEGMENT  = 

END_OF_STRING  =  'OO'XC; 
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(*  DIMENSION  VALUE  DELIMITERS: 


BEGIN  OF.ARRAY 
END_OF  ARRAY  * 
TYPE 

T  ATTRIBUTE_NAME 
T_DIMEN_VALUE 
T  DISPLAY  WORD 
T  HEXJJYTE 
T_HEX_WOF.D 
T_WORO 
T  LOCATION 
T  SCHEMA_NAME 
T  SELECTOR 
TllNTEGER_l 
T_INTEGER_2 
T_INTEGER_4 
T_VALUE 
T_Array_Va1 ue 


ARRAY ( .  l..MAX_ATTRIBUTE_NAME  .)  OF  CHAR; 

ARRAY ( .  1..MAX.ARRAY  .)  OF  INTEGER; 

PACKED  ARRAY (.  1..8  .}  OF  CHAR; 

PACKED  0. .255; 

OF  T_HEX_BYTE; 

OF  CHAR; 

IN  ENUMERATION,  IN_STRUCTURE) ; 
1.. SCHEMA  NAME.SIZE  .)  OF  CHAR; 


) 


ARRAY ( .  1..4 
ARRAY (.  1 . .4  .) 

(IN  ADB,  IN_CL, 

PACKED  ARRAY  (. 

PACKED  0. .9; 

PACKED  -128.. 127; 

PACKED  -32768.. 32767; 

MININT. .MAXINT; 

ARRAY ( .  1 . ,MAX_ATTRIBUTE_VALUE 
ARRAY ( .  1 . .MAX_ATTRIBUTE_VALUE 


.)  OF  CHAR; 

.)  OF  T_Word ; 


(’ 


T_ATTRIBUTE  VALUE  «  RECORD 
CASE  INTEGER  OF 
0  :  (  AS.VARIANT 

1  :  (  AS  INTEGER.l 

2  :  (  AS_INTEGER_2 

3  :  (  AS_INTEGER_4 

4  :  (  AS  REAL_4 

5  :  (  AS_REAL_8 

6  :  (  AS_LOGICAL 

7  :  (  ASlENUMERATION 

8  :  (  AS_Array 
END; 

T_VARIANT_VALUE  =  RECORD 
CASE  INTEGER  OF 


0 

1 

2 

END; 


ASJ/ARIANT 
AS.INTEGER 
(  AS_REAL 


T_Value  ); 

T_Integer_l 

T_Integer_2 

T  Integer_4 

SHORTREAL 

REAL 

BOOLEAN 

T_Schema_Name 

T_Array_Val ue 


T_VALUE  ) ; 
T  INTEGER_4 
REAL 


); 

); 


ROUTINE  «  PACKED  ARRAY (.  1..8  .)  OF  CHAR; 


ENTDATA 

CASE 

0 

1 


*  RECORD 
INTEGER  OF 
:  (  CHARS  : 
:  (  WORDS  : 


END; 


PACKED  ARRAY (.  l..MAX_CHARS  .)  OF  CHAR); 
ARRAY (.  l..MAX_WORDS  .)  OF  T_HEX_WORD  ); 


EXT_RET_CODE  *  INTEGER; 


*) 


*) 


*) 


*) 

*) 


*) 

*) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 


(* 

(* 


(* 


LISTINDX  -  0. .MAX_LIST ; 

LISTPSTN  =  O..MAX_LIST; 

LISTSIZE  =  O..MAX_LIST; 

ORDJCIND  -  O..MAXINT; 

RDBSIZE  -  PACKED  0. .MAX_RDB_SIZE; 

T_RULE_£LMNTS  -  (  COMPRESS,  DELETE,  USER_DELETE,  CNST_DELETE 

T.RULE  -  SET  OF  T_RULE_ELMNTS; 

T_GROUP  =  RECORD 
LAST_CNST  :  RDBSIZE; 

RULE  :  T_RULE; 

END; 

T_GROUP_ARRAY  =  ARRAY  (.  l..MAX_GROUP  .)  OF  T_GROUP; 

T_SCH_INST_ENT  -  RECORD 
KIND  :  ORDJCIND; 

POSITION  :  LISTPSTN; 

NUM_GROUP:  LISTPSTN; 

MIN_CNST  :  LISTPSTN; 

GROUP  :  T_GROUP_ARRAY ; 

END; 

ENTBLOCK  *  RECORD 
KIND  :  ORD  KIND; 

SIZE  :  0 . . MAX_CHARS ; 

SYSUSE  :  ARRAY  (.  1..4  .)  OF  BOOLEAN; 

DATA  :  ENTDATA; 


); 


*) 

*) 

*) 

*) 

*) 

*) 

*) 


*) 

*) 


*) 


unis , 

* 

* 

ENTPNTR  *  0ENTBLOCK; 

it 

* 

LISTPNTR  -  @T_SYS_LIST ; 

* 

T  INT  ITEM  = 

RECORD 

RDBEXIST 

BOOLEAN; 

MAPROB 

BOOLEAN; 

MAPROB2 

BOOLEAN; 

COLL  ADB 

ENTPNTR; 

USERS 

LISTPNTR; 

CNSTS 

LISTPNTR; 

ENPTR 

END; 

ENTPNTR; 

* 
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(* 

(* 

(* 

(* 

(* 


(* 


(* 


(* 


(* 

(* 

(* 


ENTITIES  -  (  NIL_ENT,  INT_ROOT,  INT.ITEM,  APPL_LIST  ); 

T_ENTITY  -  RECORD 
FORM  :  ENTITIES; 

I IT  :  T_INT_ITEM; 

END; 

ANYKEY  =  RECORD 
P  ;  @T_ENTITY; 

END; 

ENTKEY  =  ANYKEY; 

LISTKEY  =  ANYKEY; 

T_SYS  LIST  -  RECORD 
SIZE  :  LISTSIZE; 

LSTLNG  :  LISTSIZE; 

LIST  :  ARRAY  (.  1..MAX.LIST  .)  OF  ENTKEY; 

END; 

T_DEFN_POINTER  =  @T_DEFN_FRAME; 

T_DEFN_FRAME  =  RECORD 

NEXT  :  T  DEFN_PO INTER; 

KIND  :  ORD_KIND; 

DATATYPE  :  INTEGER; 

CASE  INTEGER  OF 

1,  2,  3,  4  :  (  OFFSET  :  INTEGER; 

SIZE  :  INTEGER  ); 

7,  8  :  (  POSITION  :  INTEGER); 

5  ;  (  SELECTOR.OFFSET  :  INTEGER  ; 

TABLE_OFFSET  :  INTEGER  ); 

END; 

T_NAME_POINTER  =  @T_NAME_FRAME ; 

T_NAME_FRAME  =  RECORD 

NAME  :  T_SCHEMA_NAME ; 

NEXT  :  T_NAME_PO INTER; 

DEFN  :  T„DEFN_POINTER; 

END; 

T  DATAREC  =  RECORD 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


NAME.ROOT  ;  T_NAME_PO INTER; 

LIST_ROOT  :  LISTKEY; 

ATTRIBUTE_VALUE  :  T_VARIANT_VALUE; 

DIMEN_VALUE  :  T_DIMEN_VALUE; 

NO_OF_DIMENSION  :  INTEGER; 

END; 

*) 

BLKDATA  =  T_DATAREC; 

*) 

END  %i NC LUDE  NVITYP  ************************************************) 
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(*  (RTSTYP)  RUN-TIME  SUBSCHEMA  CONSTANTS  AND  TYPES 
(* 

SCHANGE  CONTROL: 

REVISED  :  8  SEPTEMBER  1987,  M.  H.  CHOI,  DBMA 

ADDED  MINIMUM  OCCURENCE  FIELD  TO  T_ATTRIBUTE 
ORIGINATED:  17  SEPTEMBER  1986,  M.  H.  CHOI,  DBMA 


(* 

(* 

(* 

(* 

(* 


********** J 
*) 
*) 
*) 
*) 
*) 
*) 


CONST 

(*  ARBITRARY  SIZE  PARAMETERS: 
MAX  ARRAY_PO INTER  =  100; 
MAX_ATTRIBUTE  *  100 
MAX_ENUMERATION  =  100 
MAX_ENUM_INDEX  =  100 
MAX_ARRAY_LIST  =  100 
MAX_ARRAY_INDEX  =  100 
MAX_CL_LIST  =  100 
MAX_CL_KINDS  «  100 
TYPE 

T_STRING_8 
T  DATA  TYPE 


PACKED  ARRAY  (.1..8.)  OF  CHAR; 

(  INTEGER_DT,  REAL.DT,  STRING_DT,  LOGICAL_DT, 
EUNM_DT ,  PNTR_DT ,  ARRAY_DT  ); 


T_ATTRIBUTE  =  RECORD 
NAME 
MIN_OCC 
DATATYPE 
CASE  INTEGER  OF 
1,  2,  3,  4 


7,  8 
5,  10 


T  SCHEMA_NAME ; 
INTEGER; 

INTEGER; 

(  OFFSET 
SIZE 

(  POSITION 
(  SELECTOR_OFFSET 
TABLE  INX  POSITION 


END; 


INTEGER; 
INTEGER) ; 
INTEGER); 
INTEGER; 

:  INTEGER); 


T_ENUM_INDEX  =  ARRAY  (.  1..MAX  ENUM_INDEX  .)  OF  RECORD 

NO_OF_ENTRIES  :  INTEGER; 

TAB L E_ I NX_POS I T I ON  :  INTEGER; 

END; 

^ENUMERATION  =  ARRAY (.1. .MAX_ENUMERATION. )  OF  T_SCHEMA_NAME ; 

T_ARRAY_INDEX  =  ARRAY  (.  1 . .MAX_ARRAY_INDEX  .)  OF  RECORD 
NO_OF  DIMENS  :  INTEGER; 

TABLE  INX_POS ITION  :  INTEGER; 

END; 

T_ARRAY_LIST  =  ARRAY  (.  1 . ,MAX_ARRAY_LIST  .)  OF  RECORD 

SIZE  :  INTEGER; 

LOW_BOUND  :  INTEGER; 

END; 


*) 

*) 
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(*  *) 
T_CL_INDEX  =  ARRAY  (.  1 . .MAX_CL_LIST  .)  OF  RECORD 
NO_OF_CL  KINDS  :  INTEGER; 

TABLE_INX_POSITION  :  INTEGER; 

END; 

(*  *) 

T_CL_KINDS  =  ARRAV ( .  1 . .MAX_CL_KINDS  .)  OF  INTEGER; 

(*  *) 

T_SCHEMA_PO INTER  =  @T_SCHEMA; 

T_SCHEMA  =  RECORD 

NAME  :  T_SCHEMA_NAME; 

KIND  :  INTEGER; 

ATTRIBUTE_COUNT  :  INTEGER; 

ENUM_INDEX_OFFSET  :  INTEGER; 

ENUM_VALUE_OFFSET  :  INTEGER; 

ARRAY_INDEX_OFFSET  :  INTEGER; 

ARRAY  LIST_OFFSET  :  INTEGER; 

CL_INDEX__OFFSET  :  INTEGER; 

CL_KINDSJ)FFSET  :  INTEGER; 

ATTRIBUTE  :  ARRAY  (.  1. .MAX_ATTRIBUTE  .)  OF  T_ATTRIBUTE; 

END; 

(*  *) 

T_RUN_TIME_POINTER  =  @T_RUN_TIME; 

T_RUN_TIME  =  RECORD 
ENTITY  :  T_SCHEMA; 

ENUM_INDEX  :  T_ENUM_ INDEX; 

ENUM_VALUE  :  T  ENUMERATION; 

ARRAY_INDEX  :  T_ARRAY_INDEX; 

ARRAY_LIST  :  T_ARRAY_LIST ; 

CL_INDEX  :  T_CL_INDEX; 

CL_KINDS  :  T_CL_KINDS; 

END; 

(*  *) 

T_KIND_ADB_POINTER  =  @T_KIND_ADB; 

T_KIND_ADB  =  RECORD 

SYSTEM.AREA  :  T_SCH_INST_ENT; 

RUN.TIME  :  T_RUN_TIME; 

END; 

(*  *) 

T_ARRAY_LIST_COMPACTOR  =  RECORD 
TABLE  :  T_ARRAY_LIST ; 

TABLZ.SIZE  :  INTEGER; 

END; 

(*  *) 

T_ARRAY_INX_COMPACTOR  =  RECORD 
TABLE  :  T_ARRAY_INDEX; 

TABLE.SIZE  :  INTEGER; 

END; 

(*  *) 
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T_ENUM_INX_COKPACTOR  =  RECORD 
TABLE  :  T  ENUMJNDEX; 

TABLE.SIZE  :  INTEGER; 

END; 

(* 

T_ENUM_COMPACTOR  =  RECORD 

TABLE  :  ^ENUMERATION; 

TABLE  SIZE  :  INTEGER; 

END; 

(* 

T_CL_INX_COMPACTOR  -  RECORD 
TABLE  :  T_CL_INDEX; 

TABLE_SIZE  :  INTEGER; 

END; 

(* 

T_CL_KINDS_COMPACTOR  =  RECORD 
TABLE  :  T_CL_KINDS; 

TABLE_SIZE  :  INTEGER; 

END; 


T_DATA_VALUE  =  ARRAY  (.  1 . .MAX_ATTRIBUTE_VALUE  .)  OF  CHAR; 


T_VAR I ANT_PO INTER 
CASE  INTEGER  OF 


=  RECORD 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

END; 


(  AS_ADB_SIZE  : 

(  AS_INTEGER  : 

(  TO_ATTRIBUTE_VALUE 
(  TO_ENTITY 
(  TO_ENUMERATION 
(  TO_SCHEMA 
(  TO_S EL ECTOR 
(  TO_ENUM_INDEX 
(  AS_RUN_TIME_POINTER 
(  AS.DATA 
(  TO_ARRAY_INDEX 
(  TO_ARRAY_LIST 
(  TO_CL_INDEX 
(  TO_CL_LIST 
(  TO_ENTKEY 
{  TO_ARRAY_VALUE 
(  TO_CNSTKEY 
(  T0_INTEGER_1 
(  T0_INTEGER_2 
(  T0_INTEGER_4 
(  T0_REAL_4 
(  T0_REAL_8 
(  TO_value 


LISTPSTN 
INTEGER 
:  @T_VALUE 
ENTPNTR 

@T  ENUMERATION 


) 

) 

T_SCH  EMA_PO INTER  ) 
@T_SELECTOR  ) 

@T_ENUM_ INDEX  ) 

T_RUN_TIME_PO INTER  ); 
@T_DATA_VALUE  ) 

@T_ARRAY_INDEX  ) 

@T_ARRAY_LIST  ) 

OT_CL_INDEX  ) 

@T_CL_KINDS  ) 

ENTKEY  ) 

@T_Word  ) 

LISTPNTR  ) 

@T_INTEGER_1  ); 
@T_INTEGER_2  ); 
@T_INTEGER_4  ); 
0SHORTREAL  ); 

0REAL  ); 

T.VALUE  ) ; 


*) 


*) 


*) 


*) 

*) 


*) 
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(*  *) 

CONST 

MAX_BUFFER  -  SIZEOF  (  T_RUN  TIME  ); 

(*  *) 

(*  END  %INCLUDE  RTSTYP  ************************************************) 
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%PRINT  OFF 

(* .  *) 

(*  CONSTANTS  USED  BY  THE  SCHEMA  MANAGER  PACKAGE  *) 

(* . *) 

CONST 

(* . - . - . *) 

(*  BLANK  CONSTANTS  *) 

(* . - . - . *) 


BLANK8 
BLANK16  =  ' 

BLANK30  =  ' 

BLANK40  =  ' 

BLANK50  =  ' 
BLANK_IDENTIFIER  =  ' 
BLANK_TABLE_VARIABLE  «  ' 


(* .  .  . *) 

(*  CONSTANT  LENGTHS  *) 

(*  -*) 


IDENTIFIER_LENGTH  *  16; 

UNIQUENESS.LENGTH  =  14; 

TABLE_VARIABLE_LENGTH  =  IDENTIFIER.LENGTH  +  7; 


(* . *) 

(*  CONSTANT  LENGTH  OF  THE  ENTITY  ADB  *) 

(* . . . . *) 


ENTITY_ADB_CONST_LENGTH  =  28; 


(* . . *) 

(*  MINIMUMS  AND  MAXIMUMS  *) 

(* . - .  .  . *) 


MINIMUM_INTEGER_PRECISION  =  1; 

MINIMUM_REAL_PRECISION  =  1; 

MINIMUM_STRING_LENGTH  =  1; 

MAX I MUM_I NTEGER.PREC I S I ON  =  9; 
MAXIMUM_REAL_PRECISION  =16; 
MAXIMUM_STRING_LENGTH  =  1000; 

MINI MUM_ARRA Y_B0U ND  =  -99; 

MAXIMUM_ARRAY_BOUND  =  999; 

MAX_ARRAY_SIZE  =  1000; 
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(* . *) 

(*  ENTITY  KIND  NUMBERS  *) 

(* . *) 


PRIMITIVE  KIND  =  1000 
INTEGERjdND  =1001 
REALJGND  =  1002 
STRING  JGND  =  1003 
L0GICAL_KIND  =  1004 
ENUMERATION  JCIND  =  1005 
ENUMERITEM_KIND  =  1006 
POINTER_KIND  =  1008 
STRUCTURE  JCIND  =  1009 
ARRAY_KIND  =  1010 
SUPERTYPEJCIND  =  1016 
CLASS_KIND  =  1017 
ENTITYJCIND  =  1018 
FIELDJCIND  =  1019 
DEFINED__TYPE_KIND  =  1020 
SUBSCHEMAJGND  =  1021 
GLOBAL_F I ELDJCIND  =  1022 
BACKPATCH_KIND  =  1023 
UNRESOLVED_KIND  =  1024 
SCHEMA_KIND  =  1089 


(* . *) 

(*  CONCEPTUAL  SCHEMA  REPORT  CONSTANTS  *) 

(* . *) 

(* .  . *) 

(*  THE  MAXIMUM  PAGE  SIZE  *) 

(* .  .  . —  - . ---*) 

MAX_PAGE_SIZE  =55; 

(* .  . - . —  *) 

(*  RUN-TIME  SUBSCHEMA  CONSTANTS  *) 

(* . .  . . . . *) 


MAX_ATT  R I BUT E_VAL U E 

MAX_CHARS 

MAX_LIST 

MAX_RDB_SIZE 

MAX_WORDS 

SCHEMA_NAME_SIZE 


1000; 

1000; 

4000000; 

65535; 

MAX.CHARS  DIV  4; 
16; 


%PRINT  OFF 
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%PRINT  OFF 

(* .  *) 

(*  INCLUDES  FOR  THE  SCHEMA  EXECUTIVE  *) 

(* . *) 

%INCLUDE  SCECON; 

%INCLUDE  APLTYP; 

(* .  *) 

(*  TYPES  USED  BY  THE  SCHEMA  MANAGER  PACKAGE  *) 

(* . - . *) 

TYPE 

(* . - . *) 

(*  ENTITY  PRIMITIVE  TYPES  *) 

(* . *) 


ENTITY.TYPE  =  (INT, REEL, STRNG, LOGICAL, ARAY, LIS, SETT, ENUM, 

ENUMITM , POINTR , STRUC , DEF_TYP , CLASS , SUPERTYPE , 
ENTITY, FIELD, GBLFLD, SUBSCHEMA, SCHEMA, 
BACK_PATCH, UNRESOLVED) ; 


(* . *) 

(*  TRANSACTION  TYPES  *) 

(* . *) 


TRANS  TYPE  = 


(T_SUBSCMA, 

T_FIELD, 

T_SET,  *) 
T_ENUMITEM, 
T_STRING, 
T_SUPERTYPE, 
T_END_STRUC , 
T_END_DEF_TYP, 
T_END_SUBSCMA, 
T_UNRESOLVED) ; 


T.CLASS,  T 

T.STRUC,  T 

T_DEF_TYP,  T 
T.INTEGER,  T 
T_PO INTER,  T 
T.SUPERTYPE2, 
T_END_ENUM,  T 
T_END_ENTITY, 
T_END_GBLFLD, 


ENTITY, 

ARRAY,  (* 
DEF.TYP2, 

REAL, 

FINDJCEY, 
T_END_SUPERTYPE, 
END_POINTER, 
T_END_CLASS, 
T_END_PROC  ESS I NG , 


T_GBLFLD, 

T_LIST, 

T_ENUM, 

T_LOGICAL, 

T_PASS_KEY, 


(* . *) 

(*  NAME  TYPE  FOR  THE  ENTITIES  *) 

(* . - .  . *) 


T_NAME  =  PACKED  ARRAY ( . 1 . . 16.)  OF  CHAR; 
CHAR50  =  PACKED  ARRAY ( . 1 . .50. )  OF  CHAR; 
CHARI 50  =  PACKED  ARRAY (.1. .150.)  OF  CHAR; 
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(* .  *) 

(*  ENUMERATED  TYPES  FOR  THE  RECORD  DECLARATIONS  *) 

(* . *) 


T_STATUS  =  (FROZEN, UNFRZN); 

T.PURPS  =  (KEY, ROLE); 

T_REQ  =  (REQ , OPT) ; 

T_DEP  =  (DEP, IND) ; 

F_KEY_REC  =  RECORD 
REC_KIND  :  INTEGER; 

(*  CASE  REC_KIND  OF  *) 
END; 


(*  *) 

(*  BACKPATCH  RECORD  TYPE  *) 

(* .  *) 

BACKPATCH_REC  -  RECORD 
NAME  :  T_NAME; 

KIND  :  INTEGER; 

END; 

(* . - . *) 

(*  UNRESOLVED  RECORD  TYPE  *) 

(* . *) 


UNRESOLVED.REC  *  RECORD 
NAME  :  T_NAME ; 

KIND  :  INTEGER; 

END; 


(* . -  . --*) 

(*  SCHEMA  RECORD  TYPE  *) 

(* . - . - . *) 


SCMA  REC  =  RECORD 
NAME  :  T_NAME ; 

VERSION  :  INTEGER; 

DATE  :  ARRAY ( . 1 . . 9 . )  OF  CHAR; 

STATUS  :  T.STATUS 

END; 
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(* .  *) 

(*  SUBSCHEMA  TYPE  *) 

(* . -  *) 


SSCMA.REC  =  RECORD 
NAME  :  T_NAME ; 
COMMENT  :  CHARI 50 
OFFSET  :  INTEGER 
PHYSICAL  :  BOOLEAN 
END; 


(* . *) 

(*  CLASS  RECORD  TYPE  *) 

(* . - . *) 


CLASS_REC  =  RECORD 
NAME  :  T_NAME ; 

KIND  :  INTEGER; 
COMMENT  :  CHARI 50; 
END; 


(* . *) 

(*  ENTITY  RECORD  TYPE  *) 

(* . *) 


ENTITY_REC  =  RECORD 
NAME  :  T_NAME ; 
KIND  :  INTEGER 
COMMENT  :  CHARI 50 
PHYSICAL  :  BOOLEAN 
END; 


(* . - . *) 

(*  FIELD  RECORD  TYPE  *) 

(* . - . *) 


FIELD  REC  »  RECORD 

NAME 

:  T  NAME; 

POS 

:  INTEGER; 

(*  PURPS 

:  T  PURPS;  *) 

REQD 

:  T_REQ; 

(*  DEPND 

:  T  DEP;  *) 

COMMENT  :  CHAR50; 

CASE 

INTEGER  OF 

0  : 

(OFFSET 

INTEGER; 

SIZE 

INTEGER); 

1  : 

(POSITION 

INTEGER); 

2  : 

(SELECTOR  OFFSET 

INTEGER; 

TABLE  INX  POSITION 

INTEGER) ; 

END; 
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(* . *) 

(*  ARRAY  RECORD  TYPE  *) 

(* .  -*) 


ARAY.REC  -  RECORD 

LO_BOUND  :  INTEGER; 
HI_BOUND  :  INTEGER; 
MIN_OCCUR  :  INTEGER; 
ARRAY_TYPE  :  ENTITY_TYPE; 
END; 


(*  *) 

(*  LIST  RECORD  TYPE  *) 

(* . *) 


MINIMUM  :  INTEGER; 
MAXIMUM  :  INTEGER; 

END;  *) 


(* . *) 

(*  SET  RECORD  TYPE  *) 

(* . *) 


MINIMUM  :  INTEGER; 
MAXIMUM  ;  INTEGER; 

END;  *) 


(*  *) 

(*  ENTITY  ATTRIBUTE  DATA  BLOCK  TYPE  *) 

(* . *) 


ENTITY_ADB  =  RECORD 


ENT  KIND 

INTEGER; 

LENGTH 

INTEGER; 

SYSUSE 

INTEGER; 

VERSION 

INTEGER; 

SYS  IDENT 

INTEGER; 

IDENT 

INTEGER; 

TYP 

ENTITY  TYPE; 

DUMMY 

ARRAY ( . 1 . . 3 . )  OF  CHAR; 

CASE  TYP 

OF 

INT 

:  (I  PRECISION  : 

INTEGER 

); 

REEL 

:  (R  PRECISION  : 

INTEGER 

)s 

STRNG 

:  (S  LENGTH 

INTEGER 

); 

LOGICAL 

:  ()S 

ARAY 

:  (ARY  : 

ARAY  REC 

); 

LIS 

:  (LST 

LIST_REC 

); 
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SETT 

(SETS 

SET_REC 

) 

ENUM 

Os 

ENUMITM 

(ENUMITM  NAME 

T_NAME 

) 

POINTR 

0; 

STRUC 

0; 

DEF  TYP 

(DEF  TYP  NAME 

T  NAME 

) 

CLASS 

(CLS 

CLASS  REC 

) 

SUPERTYPE 

(SUPERTYPE  NAME 

T  NAME 

) 

ENTITY 

(ENT 

ENTITY  REC 

) 

FIELD 

(FLD 

FIELD.REC 

) 

6BLFLD 

0; 

SUBSCHEMA 

(SSCMA 

SSCMA  REC 

) 

SCHEMA 

(SCMA 

SCMA  REC 

) 

BACK  PATCH 

(BACKPATCH 

BACKPATCH  REC 

) 

UNRESOLVED 

(UNRESOLVE 

UNRESOLVED_REC) 

END; 


ENTBLOCK  -  ENTITY_ADB; 


(* . - . *) 

(*  TRANSACTION  TYPE  *) 

(* . *) 


TRANSACTION  *  RECORD 
T_TYP  :  TRANS  TYPE; 
CASE  T  TYP  :  OF 


T  SUBSCMA 

(SSCMA 

:  SSCMA  REC 

); 

T  CLASS 

(CLS 

:  CLASS_REC 

); 

T  SUPERTYPE, 

T  SUPERTYPE2 

(SUPERTYPE  NAME 

:  T  NAME 

); 

T  ENTITY 

(ENT 

:  ENTITY_REC 

); 

T  GBLFLD 

0; 

T  FIELD 

(FLD 

:  FIELD_REC 

); 

T  STRUC 

0; 

T  ARRAY 

(ARY 

:  ARAY  REC 

); 

T  LIST 

(LST 

:  LIST  REC 

); 

T  SET 

(SETS 

:  SET_REC 

); 

T  DEF  TYP, 

T  DEF  TYP2, 

T  END  DEF  TYP 

(DEFTYP  NAME 

:  T_NAME 

); 

T  ENUM 

0; 

T  ENUMITEM 

(ENUMITEM  NAME 

:  T  NAME 

); 

T  INTEGER 

(I  PRECISION 

:  INTEGER 

); 

T  REAL 

(R  PRECISION 

:  INTEGER 

); 

T  LOGICAL 

Os 

T  STRING 

(S  LENGTH 

:  INTEGER 

); 

T  POINTER 

0; 

T  FIND  KEY 

(FNDKEY 

;  F  KEY  REC 

); 

T  PASS  KEY 

(PASSKEY 

:  ENTKEY 

); 

*) 

*) 
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T_END  STRUC 
T_END  ENUM 
T_END  POINTER 
T_END  ENTITY 
T_END  CLASS 
T_END~SUPERTYPE 
T_END  SUBSCMA 
T_END  6BLFLD 
TJJNRESOLVED 
END; 


0; 

0; 

0; 

0; 

0; 

0; 

0; 

0; 

(UNRESOLVE 


UNRESOLVED_REC) ; 


(* . - .  . *) 

(*  TRANSACTION  STACK  TYPE  *) 

(* .  *) 


TRANSPTR  =  @T_STACK; 

T_STACK  =  RECORD 

STACKPTR  :  TRANSPTR; 
STACKDATA  :  TRANSACTION 
END; 


(* . *) 

(*  KEY  STACK  TYPE  *) 

(* . *) 


KEYPTR  =  @K_STACK; 

K_STACK  *  RECORD 

K.STACKPTR  :  KEYPTR; 
KEY.DATA  :  LISTKEY 
END; 


(*  *) 

(*  ERROR  TYPES  *) 

(*  *) 


T_SCE_ERROR  - 
(OK, 

DIALOG_FAILED, 

TRANSACTION_PROCESSING_ERROR, 

STACK.UNDERFLOW, 

MAS_ROUT I NE_ERROR , 
UNKNOWN_TYPE, 

SIZE  OUT_OF_RANGE) ; 
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(* . *) 

(*  WARNING  TYPES  *) 

(* . *) 


T_SCE_WARNING  - 
(OKW, 

INVALID_KEY_RETURNED, 

I NVAL I D_CASE_OPT I ON , 
MAX_ARRAY_SIZE_EXCEEDED, 
CANNOT_UPDATE, 
NO_ARRAY_ENTITY , 
NOT_ENOUGH  ROOM); 


(* . - . *) 

(*  ERROR  RETURN  CODE  TYPES  *) 

(* . - . - .  .  . *) 


RETURN_CODE  =  RECORD 
ERROR  :  T_SCE_ERROR; 
WARNING  :  T_SCE  WARNING; 
END; 

RET_REC  =  RECORD 
RC  :  RETURN_CODE ; 
ROUT_NAME  :  STRING (8) 
END; 


(* . *) 

(*  CHARACTER  STRING  TYPES  *) 

(* .  . *) 


CHAR8  *  PACKED  ARRAY ( . 1 . .8. )  OF  CHAR; 

CHAR9  *  PACKED  ARRAY ( . 1 . .9. )  OF  CHAR; 

CHARI 2  «  PACKED  ARRAY (.1. .12.)  OF  CHAR; 

CHAR16  -  PACKED  ARRAY( . 1 . . 16. )  OF  CHAR; 

CHAR23  *  PACKED  ARRAY ( . 1 . .23. )  OF  CHAR; 

CHAR30  *  PACKED  ARRAY ( . 1 . .30. )  OF  CHAR; 

CHAR40  «  PACKED  ARRAY ( . 1 . .40. )  OF  CHAR; 

IDCHAR  -  PACKED  ARRAY  ( . 1 . . IDENTI F I ER_LENGTH . )  OF  CHAR; 
TABCHAR  =  PACKED  ARRAY  ( . 1 . .TABLE_VARIABLE_LENGTH. )  OF  CHAR; 
CRTABCHAR  =  PACKED  ARRAY  (.1..40.)  OF  CHAR; 
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(* . - . — *> 

(*  ARRAY  OF  ENTITY  TYPES  *) 

(* . . *) 

T_ARRAY16  =  ARRAY(.l. .MAX_ARRAY_SIZE.)  OF  CHAR16; 

T_ARRAY23  *  ARRA Y ( . 1 . . MAX_ARRA Y_S I Z E . )  OF  CHAR23; 

T_ARRAYID  -  ARRAY ( .  1 . . MAX_ARRA Y_S I Z E . )  OF  IDCHAR; 

T_ARRAYTV  *  ARRAY ( . 1 . . MAX_ARRA Y_S I Z E . )  OF  TABCHAR; 

T_ARRAYRV  =  ARRAY (.1. .MAX_ARRAY_SIZE. )  OF  CRTABCHAR; 

(* . - . — .  . *) 

(*  MESSAGE  TYPE  *) 

(* . *) 

MESSAGE  =  CHAR8 ; 

(* . . *) 

(*  OPERATION  TYPE  *) 

(*  *) 

OPERATIONS  *  (EDIT, REPORT,S_FILE, EXIT, $  RETURN, CR_SUB,CR_CLASS, 

CR_SUPR , CR_ENT , CR_DEF, CR  GBLFLD , UP_SUB , UP_CLASS , UP_ENT 
UP_SUPR,UP_GBLFLD,UP_LOCAL, REVIEW, ACCEPT, DISPLAY, 

LIST, NO_MORE,INCLDS, DATA  DIC, RUNTIME, 
CONCEPTUAL_SCHEMA,CROSS_REFER, UNDEFINED, 

ADD , REMOVE , DELETE , UPDATE , MULTI PLE.SEL , SAVE , 

RETRIEVE, UP_DEF, REV_ENT , REV_DEF, REV_SUPR , REV_GBLFLD , 
REV_SUB, REV_CLASS , REV_LOCAL , DEFAULT, CR_OPTION_ONE , 
CR_OPT I ON_TWO , CR_OPT I ON_THREE , CR_OPT I ON_FOUR , 
CR_OPTION_FIVE,CR_OPTION_SIX,CR_OPTION_SEVEN, 
CR_OPTION_EIGHT,CR_OPTION_NINE,CR_OPTION_TEN, 
PHYSICAL_SUBSCHEMA) ; 

(* . . . *) 

(*  FIELD  TYPE  INDICATES  THE  TYPE  OF  THE  USER  OF  THE  FIELD  *) 

(* . . *) 

T.FIELDTYPE  =  (ENTITE, GLOBAL, STRUCTURE, SUPR) ; 

(* . — . *) 

(*  FIELD  DEFINITION  TYPE  *) 

(* . -*) 

T_FIELD_DEF  =  (IN_ADB, IN_KEYBLOCK, IN_CNST_REC) ; 
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(* .  . .  *) 

(*  HATCH  RECORD  INDICATES  IF  THE  NAME  AND/OR  KIND  NUMBER  IS  *) 
(*  IDENTICAL  *) 
(* . - . *) 


MATCH  «  RECORD 
NAME  :  BOOLEAN; 
NUMBER  :  BOOLEAN 
END; 


(* . - . . —  - . *) 

(*  WITHIN  RECORD  INDICATES  IF  RETURN  OR  EXIT  WAS  CHOSEN  WITHIN  *) 
(*  ANOTHER  ROUTINE  *) 
(* . —  - . . . *) 


WITHIN  =  RECORD 
ROUTINE  :  BOOLEAN; 
RET  :  BOOLEAN; 

XIT  :  BOOLEAN 
END; 


(* . - . . . *) 

(*  TYPES  FOR  THE  CONCEPTUAL  SCHEMA  REPORT  *) 

(* . *) 


PAGES  =  (CLASS_PAGE, 

DEFINED_TYPE_PAGE, 
SUPERTYPE.PAGE, 
ENTITY_PAGE, 
GLOBAL_FIELD_PAGE, 
SUBSCHEMA_PAGE) ; 

HEADING_TYPE  =  (DEFINITION, 
INDEX); 

PAGE_PTR  =  @PAGE_REC; 

PAGE_REC  =  RECORD 
PAGE.NUMBER  :  INTEGER; 
NEXT_PAGE  :  PAGE.PTR 
END; 


(* . - . - . -*) 

(*  'PAGE.PTR'  IS  USED  TO  LINK  TOGETHER  THE  PAGE  NUMBER  OF  THOSE  *) 
(*  PAGES  THAT  BEGIN  A  NEW  ENTITY,  CLASS,  OR  SUBSCHEMA.  WHEN  THE  *) 
(*  INDICES  ARE  PRINTED  OUT,  THE  CHAIN  OF  PAGE  NUMBERS  CREATED  IS  *) 
(*  USED.  -  *) 
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(* . - .  *) 

(*  TYPES  FOR  THE  RUN-TIME  SUBSCHEMA  *) 

(* . . .  *) 


T_SCHEMA_NAME 

T_ATTRIBUTE_VALUE 

T_PS_ORDER 

T_HEX_BYTE 

T_HEX_WORO 

T_SELECTOR 

T_INTE6ER_1 

T_INTEGER_2 

T_INTEGER_4 

T_VALUE 

T  WORD 


=  PACKED  ARRAY  (.  1. .SCHEMA_NAME_SIZE  .)  OF  CHAR; 
=  ARRAY  (.  l..MAX_ATTRIBUTE_VALUE  .)  OF  CHAR; 

=  ARRAY  (.  1..100  .)  OF  INTEGER; 

=  PACKED  0. .255; 

=  ARRAY  (.  1 . .4  .)  OF  T_HEX_BYTE; 

=  PACKED  0 . . 9 ; 

=  PACKED  -128.. 127; 

=  PACKED  -32768.-32767; 

=  MININT. .MAXINT; 

«  ARRAY ( . 1 . .MAX_ATTRIBUTE_VALUE. )  OF  CHAR; 

=  ARRAY ( . 1 . . 4 . )  OF  CHAR; 


ENTPNTR  =  (3ENTBL0CK; 


LISTPNTR  =  @T_SYS_LIST; 

RDBSIZE  =  PACKED  0. .MAX_RDB_SIZE; 

T_SYS_LIST  =  RECORD 
SIZE  :  LISTSIZE; 

LSTLNG  :  LISTSIZE; 

LIST  :  ARRAY  (.  l..MAX_LIST  .)  OF  ENTKEY; 
END; 


T_SCH_INST_ENT  -  RECORD 
KIND  :  ORD_KIND; 

POSITION  :  LISTPSTN; 

NUM  GROUP:  LISTPSTN; 

MIN_CNST  :  LISTPSTN; 

END; 

T_ENTITY_INDEX  =  ARRAY  (.  1..1000  .)  OF  RECORD 
NAME  :  T_SCHEMA_NAME ; 

KIND  :  INTEGER; 

END; 
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